|

点击注册
提交
注册成功
再次打开程序验证码显示不了,非要在PHP论坛后台删除刚才注册的用户验证码才能显示!
以下是代码,求大神们指导下!!谢谢
登录代码:
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 获取登陆验证码, 文本型
写注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, “http://www.zy2762.com”)
论坛地址 = “www.zy2762.com”
获取登陆验证码 = 到文本 (网页_访问 (“http://www.zy2762.com/login.php”, , , ))
登陆sessionid = 文本_取出中间文本 (获取登陆验证码, “sessionid=”, #引号)
输出调试文本 (登陆sessionid)
验证码显示.图片 = 网页_验证码读取 (“http://pin.aliyun.com/get_img?identity=www.zy2762.com&kjtype=default&sessionid=” + 登陆sessionid + “&nowtime=”)
.子程序 _登陆_被单击
.局部变量 返回文本, 文本型
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.如果真 (用户名.内容 = “”)
状态条.置文本 (0, “用户名不能为空,请输入用户名!”)
返回 ()
.如果真结束
.如果真 (密码.内容 = “”)
状态条.置文本 (0, “密码不能为空,请输入密码!”)
返回 ()
.如果真结束
.如果真 (验证码.内容 = “”)
状态条.置文本 (0, “验证码不能为空,请输入验证码!”)
返回 ()
.如果真结束
提交地址 = “http://” + 论坛地址 + “/login.php?”
提交数据 = “forward=&jumpurl=http%3A%2F%2F” + 论坛地址 + “%2Findex.php&step=2&pwuser=” + 用户名.内容 + “&pwpwd=” + 密码.内容 + “&question=0&customquest=&answer=&gdcode=” + 验证码.内容 + “&hideid=0&cktime=0&submit=%B5%C7%C2%BC”
返回文本 = 到文本 (网页_访问 (提交地址, 1, , , 提交数据, , ))
输出调试文本 (返回文本)
.如果 (寻找文本 (返回文本, “您已经顺利登录”, , 假) > -1)
状态条.置文本 (0, “登录成功,正在载入界面,请稍候......”)
信息框 (“登陆成功”, #信息图标, “提示”)
载入 (窗口1, , 真)
.否则
.如果 (寻找文本 (返回文本, “不存在”, , 假) > -1)
状态条.置文本 (0, “用户 ” + 用户名.内容 + “ 不存在”)
信息框 (“用户 ” + 用户名.内容 + “ 不存在”, #警告图标, “提示”)
.否则
.如果 (寻找文本 (返回文本, “用户名或密码错误”, , 假) > -1)
状态条.置文本 (0, “用户名或密码错误!”)
信息框 (“用户名或密码错误” + 文本_取出中间文本 (返回文本, “用户名或密码错误”, “</p><p class=”), #警告图标, “提示”)
.否则
.如果 (寻找文本 (返回文本, “已经连续 6 次密码输入错误”, , 假) > -1)
信息框 (“已经连续 6 次输入错误,您将在 10 分钟内无法登录,还剩余 ” + 文本_取出中间文本 (返回文本, “还剩余 ”, “ 秒”) + “ 秒”, #警告图标, “提示”)
.否则
.如果 (寻找文本 (返回文本, “验证码不正确或已过期”, , 假) > -1)
状态条.置文本 (0, “验证码不正确或已过期!”)
信息框 (“验证码不正确或已过期”, #警告图标, “提示”)
验证码显示.图片 = 网页_验证码读取 (“http://pin.aliyun.com/get_img?identity=www.zy2762.com&kjtype=default&sessionid=” + 登陆sessionid + “&nowtime=”)
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.子程序 _验证码显示_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
验证码显示.图片 = 网页_验证码读取 (“http://pin.aliyun.com/get_img?identity=www.zy2762.com&kjtype=default&sessionid=” + 登陆sessionid + “&nowtime=”)
.子程序 _注册_被单击
载入 (注册窗口, , 假)
[/e]
注册代码:
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集2
.子程序 _注册窗口_创建完毕
.局部变量 获取注册验证码, 文本型
获取注册验证码 = 到文本 (网页_访问 (“http://www.zy2762.com/register.php”, , , ))
注册sessionid = 文本_取出中间文本 (获取注册验证码, “sessionid=”, #引号)
输出调试文本 (注册sessionid)
验证码显示.图片 = 网页_验证码读取 (“http://pin.aliyun.com/get_img?identity=www.zy2762.com&kjtype=default&sessionid=” + 注册sessionid + “&nowtime=”)
.子程序 _获取验证码_被单击
.子程序 _验证码显示_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
验证码显示.图片 = 网页_验证码读取 (“http://pin.aliyun.com/get_img?identity=www.zy2762.com&kjtype=default&sessionid=” + 注册sessionid + “&nowtime=”)
.子程序 _提交_被单击
.局部变量 返回文本2, 文本型
.局部变量 提交地址2, 文本型
.局部变量 提交数据2, 文本型
.如果真 (用户名.内容 = “”)
状态条1.置文本 (0, “用户名不能为空,请输入用户名!”)
返回 ()
.如果真结束
.如果真 (密码.内容 = “”)
状态条1.置文本 (0, “密码不能为空,请输入密码!”)
返回 ()
.如果真结束
.如果真 (确认密码.内容 = “”)
状态条1.置文本 (0, “确认密码不能为空,请再次输入密码!”)
返回 ()
.如果真结束
.如果真 (邮箱.内容 = “”)
状态条1.置文本 (0, “邮箱不能为空,请输入邮箱!”)
返回 ()
.如果真结束
.如果真 (验证码.内容 = “”)
状态条1.置文本 (0, “验证码不能为空,请输入验证码!”)
返回 ()
.如果真结束
提交地址2 = “http://www.zy2762.com/register.php?”
提交数据2 = “forward=&step=2&_hexie=7839ce1a®name=” + 用户名.内容 + “®pwd=” + 密码.内容 + “®pwdrepeat=” + 确认密码.内容 + “®email=” + 邮箱.内容 + “&apartment=110101&question=0&customquest=&answer=&gdcode=&gdcode=” + 验证码.内容 + “&rgpermit=1”
返回文本2 = 到文本 (网页_访问 (提交地址2, 1, , , 提交数据2, , ))
.如果 (文本_取出中间文本 (返回文本2, “<title>战言”, “ - Powered by phpwind</title>”) = “综合网络”)
信息框 (“注册成功”, #信息图标, “提示”)
.否则
信息框 (“注册失败”, #错误图标, “提示”)
.如果结束
输出调试文本 (返回文本2)
[/e]
在线求解决!!!谢谢!!! |
|