猴岛注册易语言源码例程

猴岛注册易语言源码例程

@追梦人`

.版本 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&regname=” ＋ 帐号 ＋ “&regpwd=” ＋ 密码 ＋ “&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”, 到字节集 (编辑框_保存数据.内容))