开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2057|回复: 7
收起左侧

[求助] PHP论坛 易语言注册后再次打开软件验证码不显示,要在PHP后台删除用户才能正常显示...

[复制链接]
结帖率:93% (28/30)
发表于 2013-5-12 17:42:30 | 显示全部楼层 |阅读模式   江苏省泰州市
1.jpg 点击注册
2.jpg 提交
3.jpg 注册成功
6.jpg 5.jpg 再次打开程序验证码显示不了,非要在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&reg;name=” + 用户名.内容 + “&reg;pwd=” + 密码.内容 + “&reg;pwdrepeat=” + 确认密码.内容 + “&reg;email=” + 邮箱.内容 + “&apartment=110101&question=0&customquest=&answer=&gdcode=&gdcode=” + 验证码.内容 + “&rgpermit=1”
返回文本2 = 到文本 (网页_访问 (提交地址2, 1, , , 提交数据2, , ))

.如果 (文本_取出中间文本 (返回文本2, “<title>战言”, “ - Powered by phpwind</title>”) = “综合网络”)
信息框 (“注册成功”, #信息图标, “提示”)
.否则
信息框 (“注册失败”, #错误图标, “提示”)
.如果结束

输出调试文本 (返回文本2)



[/e]

在线求解决!!!谢谢!!!
4.jpg
结帖率:93% (28/30)
 楼主| 发表于 2013-5-12 17:44:13 | 显示全部楼层   江苏省泰州市
急求!!!有哪位好心的人帮我下,谢谢了!!!
回复 支持 反对

使用道具 举报

结帖率:100% (36/36)

签到天数: 1 天

发表于 2013-5-12 17:47:32 | 显示全部楼层   广东省汕头市
会不会是IP限制?
你调试输出返回文本2,看看返回的是什么,
回复 支持 反对

使用道具 举报

结帖率:100% (7/7)
发表于 2013-5-12 17:55:16 | 显示全部楼层   天津市天津市
清除缓存试试,精易模块里应该有
回复 支持 反对

使用道具 举报

发表于 2013-5-12 18:52:39 | 显示全部楼层   安徽省安庆市
楼主挺牛的啊,就是不知道实现怎样的功能?
回复 支持 反对

使用道具 举报

结帖率:93% (28/30)
 楼主| 发表于 2013-5-13 07:17:45 | 显示全部楼层   江苏省泰州市
求解答啊!!!有哪位好心人帮忙下!!!!谢谢了
回复 支持 反对

使用道具 举报

结帖率:93% (28/30)
 楼主| 发表于 2013-5-13 15:23:28 | 显示全部楼层   江苏省泰州市
求解答啊!!!有哪位好心人帮忙下!!!!谢谢了

有没有知道的帮忙下!!!!为啥就没有人知道!!急求
回复 支持 反对

使用道具 举报

结帖率:93% (28/30)
 楼主| 发表于 2013-5-13 15:24:31 | 显示全部楼层   江苏省泰州市
急求!!各位大大们,帮帮我把~~
回复 支持 反对

使用道具 举报

  高级模式
B Color Image Link Quote Code Smilies |上传

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表