贝客钱包注册易语言例子

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 Str, 文本型
.程序集变量 Url, 文本型
.程序集变量 Post, 文本型
.程序集变量 Cookies, 文本型
.程序集变量 Head, 文本型
.程序集变量 Jy, Jiyan, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 Gt, 文本型
.程序集变量 Sid, 文本型
.程序集变量 Validate, 文本型
.程序集变量 Challenge, 文本型
.程序集变量 Client_id, 文本型
.程序集变量 Accesstoken, 文本型
.程序集变量 Inviter_ID, 文本型

.子程序 Into, , 公开
.参数 iD, 文本型

Inviter_ID ＝ iD
Url ＝ “https://h1.bec.com/share?inviter_uid=” ＋ Inviter_ID ＋ “&language=zh”
Str ＝ 到文本 (网页_访问_对象 (Url))
Url ＝ 文本_取出中间文本 (Str, “</script><script src=” ＋ #引号, #引号)
Url ＝ “https:” ＋ Url
Str ＝ 到文本 (网页_访问_对象 (Url))
Client_id ＝ 文本_取出中间文本 (Str, “client_id=”, “&”)
调试输出 (Client_id)  ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 Uuid, 文本型, 公开
.局部变量 Js, 类_脚本组件

Js.执行 (#Uuid)
返回 (Js.运行 (“uuid”))  ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 Send, 文本型, 公开
.参数 Phone, 文本型

Url ＝ “https://api.account.meitu.com/common/login_verify_code.json”
Post ＝ “client_id=” ＋ Client_id ＋ “&client_language=zh-Hans&os_type=web&sid=” ＋ Sid ＋ “&zip_version=2.6.0.4&web_version=2.6.0&is_web=1&source_from=&device_id=&phone_cc=86&phone=” ＋ Phone ＋ “&gt_captcha=%7B%22offline%22%3A0%2C%22challenge%22%3A%22” ＋ Challenge ＋ “%22%2C%22validate%22%3A%22” ＋ Validate ＋ “%22%2C%22seccode%22%3A%22” ＋ Validate ＋ “%7Cjordan%22%2C%22gt_scenes_type%22%3A%22account%22%7D”
Str ＝ 编码_Utf8到Ansi (网页_访问_对象 (Url, 1, Post, Cookies))
返回 (Str)

.子程序 Access_Token, 文本型, 公开
.参数 Phone, 文本型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 Code, 文本型

Url ＝ “https://account.meitu.com/oauth/access_token.json”
Post ＝ “client_id=” ＋ Client_id ＋ “&client_language=zh-Hans&os_type=web&sid=” ＋ Sid ＋ “&zip_version=2.6.0.4&web_version=2.6.0&is_web=1&source_from=&device_id=&grant_type=phone_login_by_login_verify_code&client_secret=&phone_cc=86&phone=” ＋ Phone ＋ “&verify_code=” ＋ Code
Str ＝ 编码_Utf8到Ansi (网页_访问_对象 (Url, 1, Post, Cookies))
Accesstoken ＝ 文本_取出中间文本 (Str, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号)
调试输出 (Accesstoken)
返回 (Str)

.子程序 Receive_Award, 文本型, 公开
.参数 Inviter, 文本型
.局部变量 uuid, 文本型

uuid ＝ Uuid ()
Head ＝ “access-token: ” ＋ Accesstoken
Url ＝ “https://h1.bec.com/api/invite/v2/receive_award.json”
Post ＝ “gid=” ＋ uuid ＋ “&inviter_uid=” ＋ Inviter
Str ＝ 编码_Utf8到Ansi (网页_访问_对象 (Url, 1, Post, Cookies, , Head))
返回 (Str)

.子程序 _按钮1_被单击, , , ' 本源码来自三叶资源网(www.sanye.cx)

.如果真 (编辑框4.内容 ＝ “” 或 编辑框5.内容 ＝ “”)
    信息框 (“请输入极验账号密码”, 0, , )
    返回 ()
.如果真结束
.如果真 (编辑框3.内容 ＝ “”)
    信息框 (“请输入邀请码”, 0, , )
    返回 ()
.如果真结束
Into (编辑框3.内容)
GetCode ()
.如果真 (Validate ＝ “”)
    信息框 (“识别失败”, 0, , )
    返回 ()
.如果真结束
调试输出 (Send (编辑框1.内容))

.子程序 GetCode, , 公开

Url ＝ “https://api.account.meitu.com/common/geetest_init.json?client_id=” ＋ Client_id ＋ “&client_language=zh-Hans&os_type=web&zip_version=2.6.0.4&web_version=2.6.0&is_web=1&source_from=&device_id=&gt_scenes_type=account”
Str ＝ 到文本 (网页_访问_对象 (Url, , , Cookies))
Gt ＝ 文本_取出中间文本 (Str, “gt” ＋ #引号 ＋ “:” ＋ #引号, #引号)
Sid ＝ 文本_取出中间文本 (Str, “sid” ＋ #引号 ＋ “:” ＋ #引号, #引号)
Challenge ＝ 文本_取出中间文本 (Str, “challenge” ＋ #引号 ＋ “:” ＋ #引号, #引号)
Str ＝ Jy.Value (编辑框4.内容, 编辑框5.内容, Gt, Challenge, “https://h1.bec.com”, “3”, , 真)
Validate ＝ 文本_取出中间文本 (Str, “validate” ＋ #引号 ＋ “:” ＋ #引号, #引号)
调试输出 (Gt, Sid, Challenge, Validate)

.子程序 _按钮2_被单击

.如果真 (编辑框3.内容 ＝ “”)
    信息框 (“请输入邀请码”, 0, , )
    返回 ()
.如果真结束
调试输出 (Access_Token (编辑框1.内容, 编辑框2.内容))

.子程序 _按钮3_被单击

.如果真 (编辑框3.内容 ＝ “”)
    信息框 (“请输入邀请码”, 0, , )
    返回 ()
.如果真结束
调试输出 (Receive_Award (Inviter_ID))

.子程序 __启动窗口_创建完毕



.子程序 _按钮4_被单击

信息框 (Jy.Login (编辑框4.内容, 编辑框5.内容), 0, , )

@伤心猪大肠