|
问题就是:
即使我没有正确输入密码,程序都会提示“登录已经成功。”这是为什么呢。我怀疑自己的代码写错了。求高手~
我写的代码是:- .版本 2
- .支持库 Md5
- .支持库 internet
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 自动登录, 文本型
- .局部变量 POST_地址, 文本型
- .局部变量 POST_数据, 文本型
- .局部变量 登录_返回数据, 文本型
- .局部变量 欢迎语, 文本型
- 登录_返回数据 = “”
- ' http://www.3600gz.cn/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1
- ' username=%CE%E1%B0%AE%B1%E0%B3%CC&cookietime=2592000&password=914925289940d24c911578076ba78834&quickforward=yes&handlekey=ls
- .判断开始 (选择框1.选中 = 真)
- 自动登录 = “yes”
- .默认
- .判断结束
- POST_地址 = “http://www.3600gz.cn/member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&inajax=1”
- POST_数据 = “username=” + 编码_URL编码GBK (编辑框1.内容) + “&cookietime=2592000&password=” + 字符串加密 (编辑框2.内容) + “&quickforward=” + 自动登录 + “&handlekey=ls”
- 登录_返回数据 = 到文本 (网页_访问1 (POST_地址, 1, , , POST_数据, , , ))
- .判断开始 (寻找文本 (登录_返回数据, “欢迎您回来”, , 假) ≠ -1)
- 欢迎语 = 文本_取出中间文本 (登录_返回数据, “showDialog('”, “,现在将转入登录前页面',”, )
- 信息框 (欢迎语, 0, “提示:登录已成功!”)
- .默认
- .判断结束
- 输出调试文本 (登录_返回数据)
- ' 输出调试文本 (字符串加密 (编辑框2.内容))
- ' 输出调试文本 (编码_URL解码GBK (“%CE%E1%B0%AE%B1%E0%B3%CC”))
- ' 输出调试文本 (编码_URL编码GBK (编辑框1.内容))
- .子程序 __启动窗口_创建完毕
- 窗口_热键注册 (取窗口句柄 (), , #回车键, &_按钮1_被单击, “登录”)
- 按钮1.图片 = HTTP读文件 (“http://www.3600gz.cn/static/image/common/pn.png”)
- .子程序 __启动窗口_将被销毁
- 窗口_热键卸载 (取窗口句柄 (), “登录”)
- 网页_清除Cookie (“http://www.3600gz.cn”)
复制代码 |
求助知识:请将问题描述清楚,最好把你有问题的源码打包上传上来,这样更方便大家帮助你。 友情提醒:本版被采纳的主题可在 申请荣誉值 帖子申请荣誉值,获得 3点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
|