.版本 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_创建完毕