.版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 人, 整数型 .程序集变量 次, 整数型 .程序集变量 B, 整数型 .程序集变量 t, 整数型 .子程序 __启动窗口_创建完毕 编辑框3.内容 ＝ “60” 编辑框4.内容 ＝ “120” .子程序 _按钮1_被单击 key ＝ 编辑框2.内容 透明标签12.标题 ＝ “正在尝试注册登录” 线程_启动 (&开始) .子程序 开始 .如果真 (到整数 (人数.内容) ＝ 0 且 到整数 (次数.内容) ＝ 0) 获取手机号 () 返回 () .如果真结束 .如果真 (到整数 (人数.内容) ≠ 0 且 到整数 (次数.内容) ＝ 0) .判断开始 (人 ＝ 到整数 (人数.内容)) 信息框 (“操作完成，执行次数：” ＋ 到文本 (次), 0, , ) .默认 获取手机号 () .判断结束 .如果真结束 .如果真 (到整数 (人数.内容) ＝ 0 且 到整数 (次数.内容) ≠ 0) .判断开始 (次 ＝ 到整数 (次数.内容)) 信息框 (“操作完成，执行次数：” ＋ 到文本 (次), 0, , ) .默认 获取手机号 () .判断结束 .如果真结束 .子程序 获取手机号 .局部变量 待解析, 文本型 次 ＝ 次 ＋ 1 透明标签8.标题 ＝ 到文本 (次) ＋ “次” 待解析 ＝ 到文本 (网页_访问_对象 (“http://47.97.118.96:9180/service.asmx/GetHM2Str?token=” ＋ key ＋ “&xmid=173946&sl=1&lx=0&a1=&a2=&pk=&ks=0&rj=0 ”)) 调试输出 (待解析) 号码 ＝ 文本_取右边 (待解析, “hm=”) .判断开始 (号码 ＝ “”) .如果真 (待解析 ＝ “-8”) 释放号码 () .如果真结束 返回 () .默认 引索 ＝ 超级列表框1.插入表项 (-1, 号码, , , , ) .判断开始 (登录 (号码)) 获取验证码 () .默认 超级列表框1.置标题 (引索, 2, “该用户已存在”) 释放号码 () 获取手机号 () .判断结束 .判断结束 .子程序 释放号码 网页_访问_对象 (“http://47.96.183.58:9180/service.asmx/sfHmStr?token=” ＋ key ＋ “&hm=” ＋ 号码) .子程序 获取验证码 网页_访问_对象 (“https://api.galanz.com/prod/app/sms/sendMsg”, 1, “mobile=” ＋ 号码 ＋ “&msgType=sms_moblie_register”) 获取短信 () .子程序 获取短信 .局部变量 待解析, 文本型 .局部变量 i, 整数型 待解析 ＝ 到文本 (网页_访问_对象 (“http://47.97.118.96:9180/service.asmx/GetYzm2Str?token=” ＋ key ＋ “&hm=” ＋ 号码 ＋ “&xmid=173946&sf=1”)) .判断循环首 (待解析 ＝ “1”) 待解析 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://47.97.118.96:9180/service.asmx/GetYzm2Str?token=” ＋ key ＋ “&hm=” ＋ 号码 ＋ “&xmid=173946&sf=1”)) 超级列表框1.置标题 (引索, 1, “第” ＋ 到文本 (i) ＋ “次获取验证码”) 验证码 ＝ 文本_取出中间文本 (待解析, “验证码”, “，”) i ＝ i ＋ 1 延迟 (1000) .如果真 (验证码 ＝ “-1”) 获取手机号 () 返回 () .如果真结束 .如果真 (i ＝ 15) 超级列表框1.置标题 (引索, 1, “获取超时”) 获取手机号 () 返回 () .如果真结束 调试输出 (待解析) .判断循环尾 () 超级列表框1.置标题 (引索, 1, 验证码) 注册 () .子程序 注册, 逻辑型 .局部变量 post, 文本型 .局部变量 待解析, 文本型 post ＝ “mobile=” ＋ 号码 ＋ “&password=a12345&code=” ＋ 验证码 ＋ “&invitationCode=” ＋ 编辑框1.内容 待解析 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://api.galanz.com/prod/app/appRegister”, 1, post)) 调试输出 (待解析) .如果真 (寻找文本 (待解析, “该用户已存在”, , 假) ≠ -1) 超级列表框1.置标题 (引索, 2, “该用户已存在”) 获取手机号 () 返回 (假) .如果真结束 .如果真 (寻找文本 (待解析, “操作成功”, , 假) ≠ -1) 超级列表框1.置标题 (引索, 2, “注册成功”) 登录 (号码) 返回 (真) .如果真结束 .如果真 (验证码 ＝ “”) 超级列表框1.置标题 (引索, 2, “验证码错误”) 获取手机号 () 返回 (假) .如果真结束 .判断开始 (t ＞ 10) 超级列表框1.置标题 (引索, 2, “注册失败”) t ＝ 0 B ＝ B ＋ 1 透明标签2.标题 ＝ “注册失败：” ＋ 到文本 (B) ＋ “次” 获取手机号 () .默认 t ＝ t ＋ 1 超级列表框1.置标题 (引索, 2, “第：” ＋ 到文本 (t) ＋ “次注册”) 延迟 (1000) 注册 () .判断结束 返回 (假) .子程序 登录, 逻辑型 .参数 手机号, 文本型 .局部变量 待解析, 文本型 .局部变量 post, 文本型 .局部变量 结果, 逻辑型 .局部变量 i, 整数型 post ＝ “password=a12345&username=” ＋ 手机号 待解析 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://api.galanz.com/prod/app/app_login”, 1, post)) .判断开始 (寻找文本 (待解析, “用户名不存在”, , 假) ≠ -1) 结果 ＝ 真 .默认 结果 ＝ 假 .如果真 (寻找文本 (待解析, “处理成功”, , 假) ≠ -1) 超级列表框1.置标题 (引索, 3, “登录成功”) 人 ＝ 人 ＋ 1 透明标签9.标题 ＝ 到文本 (人) ＋ “人” 置随机数种子 () i ＝ 取随机数 (到整数 (编辑框3.内容), 到整数 (编辑框4.内容)) .判断循环首 (i ≠ 0) 透明标签12.标题 ＝ “休息” ＋ 到文本 (i) ＋ “秒后继续” i ＝ i － 1 延迟 (1000) .判断循环尾 () 透明标签12.标题 ＝ “正在尝试注册” 开始 () .如果真结束 .判断结束 调试输出 (待解析) 返回 (结果)