.版本 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=”)
