百变大侦探邀请协议源码

.版本 2
.支持库 spec
.支持库 iext

.程序集 窗口程序集_窗口1
.程序集变量 token, 文本型

.子程序 _按钮_登录_被单击

子程序_登录 ()

.子程序 子程序_登录
.局部变量 str, 文本型, , "0"
.局部变量 info, 文本型

易码_登录 (编辑框_账号.内容, 编辑框_密码.内容, token, info)
.如果真 (token ＝ “”)
    信息框 (“登录失败”, 0, , )
    返回 ()
.如果真结束
调试输出 (token)
str ＝ 分割文本 (info, “|”, )
透明标签_余额.标题 ＝ 取文本左边 (str [5], 3) ＋ “元”

.子程序 _按钮_开始执行_被单击

.计次循环首 (到整数 (编辑框_数量.内容), )
    子程序_主程序 ()
.计次循环尾 ()

.子程序 子程序_主程序
.局部变量 phone, 文本型
.局部变量 验证码, 文本型
.局部变量 str, 文本型
.局部变量 ticket, 文本型
.局部变量 data, 文本型
.局部变量 string, 文本型
.局部变量 app_token, 文本型
.局部变量 datachange, 文本型
.局部变量 str返回, 文本型
.局部变量 new协议, 文本型
.局部变量 name, 文本型
.局部变量 inteview, 文本型
.局部变量 邀请返回, 文本型
.局部变量 sy, 整数型

sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
.如果真 (取反 (易码_取号 (token, “24364”, phone, “170.171.180”)))  ' 接平台
    返回 ()
.如果真结束
超级列表框1.置标题 (sy, 1, phone)
超级列表框1.置标题 (sy, 3, “发送验证码”)
str ＝ 到文本 (网页_访问_对象 (“https://api.mszmapp.com/user/sms”, 1, “{” ＋ #引号 ＋ “phone” ＋ #引号 ＋ “:” ＋ #引号 ＋ phone ＋ #引号 ＋ “,” ＋ #引号 ＋ “type” ＋ #引号 ＋ “:1}”, , , #常量_发送短信协议, , , , , , , , , , , , , ))
ticket ＝ 文本_取出中间文本 (str, #常量_ticket前, #引号, , )
超级列表框1.置标题 (sy, 3, “取短信验证码”)
.如果真 (取反 (易码_取短信 (token, “24364”, phone, 验证码)))  ' 接码的
    返回 ()
.如果真结束
超级列表框1.置标题 (sy, 2, 验证码)
data ＝ 文本_替换 (#常量_登录提交的数据, , , , “[yzm]”, 验证码, “[phone]”, phone, “[ticket]”, ticket, , , , )
超级列表框1.置标题 (sy, 3, “登录账号”)
string ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://api.mszmapp.com/user/login”, 1, data, , , #常量_发送短信协议, , , , , , , , , , , , , )))
app_token ＝ 文本_取出中间文本 (string, #常量_登录后token前, #引号, , )
name ＝ 文本_取随机字母 (2, 3) ＋ 文本_取随机数字 (3, ) ＋ 文本_取随机汉字 (1, 1)
datachange ＝ 文本_替换 (#常量_提交的名字数据, , , , “[name]”, name, , , , , , , , )
new协议 ＝ 文本_替换 (#常量_新协议, , , , “[tic]”, app_token, , , , , , , , )
超级列表框1.置标题 (sy, 3, “更改新名字:” ＋ name)
str返回 ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://api.mszmapp.com/user/info”, 1, datachange, , , new协议, , , , , , , , , , , , , )))
inteview ＝ 文本_替换 (#常量_邀请提交, , , , “[邀请码]”, 编辑框_邀请码.内容, , , , , , , , )
邀请返回 ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://api.mszmapp.com/user/invite”, 1, inteview, , , new协议, , , , , , , , , , , , , )))
超级列表框1.置标题 (sy, 3, “指定邀请码邀请完毕”)
调试输出 (“邀请返回” ＋ 邀请返回)
易码_拉黑 (token, “24364”, phone)
超级列表框1.置标题 (sy, 4, “成功”)

.子程序 _窗口1_创建完毕

@TBit