世纪天成 账号注册器  写不出来了   共享了   源码   易语言

.版本 2
.支持库 internet

.程序集 窗口程序集1
.程序集变量 可否注册, 文本型
.程序集变量 账号随即, 整数型

.子程序 __启动窗口_创建完毕

加载皮肤 (14)
加载Aero特效 ()
去掉小衣服 ()

.判断开始 (文件是否存在 (取运行目录 () ＋ “/注册配置.dll”))
    编辑框4.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “姓名”, )
    编辑框5.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “邮箱”, )
    编辑框6.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “证件”, )
    编辑框7.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “密码”, )
    编辑框8.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “超级密码”, )
    编辑框9.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “w1”, )
    编辑框10.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “d1”, )
    编辑框11.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “w2”, )
    编辑框12.内容 ＝ 读配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “d2”, )
.默认

.判断结束


.子程序 __随即账号_被单击

置随机数种子 ()
编辑框1.内容 ＝ “ppzh” ＋ 到文本 (取随机数 (10000, 99990))


.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ HTTP读文件 (“http://member.tiancity.com/modules/ValidateReg.aspx?uid=” ＋ 编辑框1.内容 ＋ “&rnd=”)

.子程序 _编辑框1_失去焦点

.判断开始 (彗星HTTP读文本 (“http://member.tiancity.com/Handler/CommonRegChkHandler.ashx?userid=” ＋ 编辑框1.内容) ＝ 到文本 (“1020”))
    信息框 (“账号已被注册   换一个”, 0, )
    编辑框1.内容 ＝ “”
.默认

.判断结束


.子程序 _编辑框2_内容被改变

编辑框7.内容 ＝ 编辑框2.内容

.子程序 __保存密保_被单击




.判断开始 (删除文件 (取运行目录 () ＋ “/注册配置.dll”))
    信息框 (“保存成功 重启软件后生效”, 0, )
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “姓名”, 编辑框4.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “邮箱”, 编辑框5.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “证件”, 编辑框6.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “密码”, 编辑框7.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “超级密码”, 编辑框8.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “w1”, 编辑框9.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “d1”, 编辑框10.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “w2”, 编辑框11.内容)
    写配置项 (取运行目录 () ＋ “/注册配置.dll”, “注册配置.dll”, “d2”, 编辑框12.内容)

.默认
    信息框 (“保存失败 ”, 16, )
.判断结束


.子程序 __清空_被单击

编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”

.子程序 __初始密保_被单击

删除文件 (取运行目录 () ＋ “/注册配置.dll”)
.判断开始 (文件是否存在 (取运行目录 () ＋ “/注册配置.dll”))
    信息框 (“初始失败”, 16, )
.默认
    信息框 (“初始成功”, 64, )
.判断结束


.子程序 __保存账号_被单击

账号随即 ＝ 取随机数 (, )


写配置项 (取运行目录 () ＋ “/账号密码.txt”, 到文本 (账号随即), “账号”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “/账号密码.txt”, 到文本 (账号随即), “密码”, 编辑框2.内容)

.子程序 _编辑框3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ HTTP读文件 (“http://member.tiancity.com/modules/ValidateReg.aspx?uid=” ＋ 编辑框1.内容 ＋ “&rnd=”)