猴岛注册易语言源码例程
.版本 2
.支持库 spec
.支持库 iext
.支持库 EThread
.程序集 窗口程序集_启动窗口
.子程序 注册
.局部变量 访问返回, 文本型
.局部变量 访问cook, 文本型
.局部变量 注册返回, 文本型
.局部变量 帐号, 文本型
.局部变量 密码, 文本型
.局部变量 索引, 整数型
.计次循环首 (到整数 (编辑框_数量.内容), )
帐号 = 文本_取随机字母 (8, )
密码 = 编辑框_密码.内容
访问返回 = 到文本 (网页_访问_对象 (“https://user.zixia.com/index.php?app=register&forward=”, 0, , , 访问cook, , , , , , , , , , , ))
注册返回 = 到文本 (网页_访问_对象 (“https://user.zixia.com/index.php?app=saveuser”, 1, “forward=&step=2&_hexie=1a40ee60®name=” + 帐号 + “®pwd=” + 密码 + “&rgpermit=1”, 访问cook, , , , , , , , , , , , ))
调试输出 (注册返回)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1))
超级列表框1.置标题 (索引, 1, 帐号)
超级列表框1.置标题 (索引, 2, 密码)
.判断开始 (寻找文本 (注册返回, “成功”, , 假) ≠ -1)
超级列表框1.置标题 (索引, 3, “注册成功”)
.默认
超级列表框1.置标题 (索引, 3, “注册失败”)
.判断结束
程序_延时 (到整数 (编辑框_延时.内容), 1)
.计次循环尾 ()
.子程序 _按钮1_被单击
启动线程 (&注册, , )
.子程序 _按钮2_被单击
.局部变量 行, 整数型
.计次循环首 (超级列表框1.取表项数 (), 行)
编辑框_保存数据.加入文本 (超级列表框1.取标题 (行 - 1, 1) + “----” + 超级列表框1.取标题 (行 - 1, 2) + #换行符)
行 = 行 + 1
.计次循环尾 ()
写到文件 (取运行目录 () + “\猴岛帐号.txt”, 到字节集 (编辑框_保存数据.内容))