|
楼主 |
发表于 2011-9-1 22:40:47
|
显示全部楼层
江西省宜春市
yueshengpeng 发表于 2011-9-1 22:34
你提交后他会返回成功或者失败的信息的,加个判断,然后如果成功了就删除第一个,然后下一个会补上来的,或 ...
[e]
.版本 2
.支持库 iext
.支持库 internet
.子程序 验证2
.局部变量 局_返回文本, 文本型
.局部变量 CDKEY, 文本型
.判断循环首 (取文本长度 (编辑框查询验证码.内容) = 4)
局_返回文本 = 到文本 (彗星HTTP读文件 (“http://app.gameact.qq.com/comm-c ... 52348296&cdkey=” + CDKEY + “&goodset=PID10751110224152429000&servercode=DNFHZ&verifyCode=” + 编辑框查询验证码.内容 + “&aid=21000127&userdata=zone*325”))
标签显示状态.标题 = “查询中...”
CDKEY = CDKEY列表框.取标题 (i, 1)
.如果真 (倒找文本 (局_返回文本, “很抱歉,您还没有登录,请登录后重试”, , 假) ≠ -1)
CDKEY列表框.置标题 (i, 2, “请登陆QQ”)
编辑框查询验证码.内容 = “”
.如果真结束
.如果真 (倒找文本 (局_返回文本, “验证码错误,请重新输入”, , 假) ≠ -1)
CDKEY列表框.置标题 (i, 2, “验证码错误”)
CDKEY列表框.置标题 (i, 3, 到文本 (取现行时间 ()))
图片框验证码.图片 = HTTP读文件 (“http://captcha.qq.com/getimage?aid=21018118&0.” + 取验证码随机数 ())
编辑框查询验证码.内容 = “”
.如果真结束
.如果真 (倒找文本 (局_返回文本, “您的CDKEY已经被使用”, , 假) ≠ -1)
CDKEY列表框.置标题 (i, 2, “已使用”)
CDKEY列表框.置标题 (i, 3, 到文本 (取现行时间 ()))
图片框验证码.图片 = HTTP读文件 (“http://captcha.qq.com/getimage?aid=21018118&0.” + 取验证码随机数 ())
编辑框查询验证码.内容 = “”
.如果真结束
.如果真 (倒找文本 (局_返回文本, “非常抱歉,您已经达到兑换频率限制”, , 假) ≠ -1)
CDKEY列表框.置标题 (i, 2, “未使用”)
CDKEY列表框.置标题 (i, 3, 到文本 (取现行时间 ()))
图片框验证码.图片 = HTTP读文件 (“http://captcha.qq.com/getimage?aid=21018118&0.” + 取验证码随机数 ())
编辑框查询验证码.内容 = “”
.如果真结束
.如果真 (倒找文本 (局_返回文本, “该CDKEY不存在,请您确认后输入”, , 假) ≠ -1)
CDKEY列表框.置标题 (i, 2, “不存在”)
CDKEY列表框.置标题 (i, 3, 到文本 (取现行时间 ()))
图片框验证码.图片 = HTTP读文件 (“http://captcha.qq.com/getimage?aid=21018118&0.” + 取验证码随机数 ())
编辑框查询验证码.内容 = “”
.如果真结束
.判断循环尾 ()
[/e]
|
|