|
楼主 |
发表于 2011-9-5 11:31:53
|
显示全部楼层
福建省宁德市
.版本 2
.支持库 spec
.子程序 开始, , , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
' 进入许可区 (许可证号)
号码 = 到整数 (读配置项 (取运行目录 () + “/记录.ini”, “记录”, “号码”, ))
号码 = 号码 + 1
编辑框_账号.内容 = 到文本 (到数值 (号码))
写配置项 (取运行目录 () + “/记录.ini”, “记录”, “号码”, 到文本 (号码))
提交数据 = “GameCode=11&SerCode=19&Aount=” + 编辑框_账号.内容
返回信息 = 到文本 (网页_访问 (提交地址2, 1, , , 提交数据, 1, ))
调试输出 (返回信息)
' 退出许可区 (许可证号)
延时 (1)
.如果 (返回信息 = “”)
开始 ()
.否则
.如果结束
账号 ()
验证码 ()
提交 ()
调试输出 (返回信息1)
.判断开始 (寻找文本 (返回信息1, “账号已经被使用”, , 假) ≠ -1)
' 账号 ()
开始 ()
.判断 (寻找文本 (返回信息1, “验证码错误”, , 假) ≠ -1)
账号 ()
验证码 ()
.判断 (寻找文本 (返回信息1, “5461”, , 假) ≠ -1)
开始 ()
.默认
.判断结束
查号 ()
延时 (1)
|
|