大神看看这个TX网页登录代码有问题吗，输入验证码也显示错误

phinex

大神看看这个TX网页登录代码有问题吗，输入验证码也显示错误

[e]
.版本 2
.支持库 spec

.子程序 Login, 整数型
.参数 uin, 文本型
.参数 pw, 文本型
.局部变量 url, 文本型
.局部变量 back, 文本型
.局部变量 code_, 文本型
.局部变量 pw_, 文本型
.局部变量 pwd, 文本型
.局部变量 code_s, 整数型

url ＝ “http://check.ptlogin2.qq.com/check?regmaster=&uin=” ＋ uin ＋ “&appid=21000118&js_ver=10067&js_type=1&login_sig=O-b4diDKGJicUND00tI*qaH5bA5-6ZdlV3tCg4FpvFs-qg6jJrBZMEtd2n0AkGuk&u1=http%3A%2F%2Fx5.qq.com%2Fcomm-htdocs%2Flogin%2Flogincallback.htm&r=” ＋ 时间_取随机时间戳 ()
back ＝ 到文本 (网页_访问 (url, , , cookies))
code_ ＝ 文本_取出中间文本 (back, “'1','”, “'”)
pw_ ＝ “\” ＋ 文本_取出中间文本 (back, “\”, “'”)
调试输出 (back, code_, pw_)
.如果真 (取文本长度 (code_) ≠ 4)
图片框_验证码.图片 ＝ 网页_访问 (“http://captcha.qq.com/getimage?uin=” ＋ uin ＋ “&aid=21000118&” ＋ 时间_取随机时间戳 (), , , cookies)
.判断循环首 (取文本长度 (编辑框_验证码.内容) ≠ 4)
程序_延时 (500)
.判断循环尾 ()
code_ ＝ 到大写 (编辑框_验证码.内容)
编辑框_验证码.内容 ＝ “”
图片框_验证码.图片 ＝ { }
.如果真结束
pwd ＝ enPwd (pw, code_, pw_)
url ＝ “http://ptlogin2.qq.com/login?u=” ＋ uin ＋ “&p=” ＋ pwd ＋ “&verifycode=” ＋ code_ ＋ “&aid=21000118&u1=http%3A%2F%2Fx5.qq.com%2Fcomm-htdocs%2Flogin%2Flogincallback.htm&h=1&ptredirect=0&ptlang=2052&daid=8&from_ui=1&dumy=&low_login_enable=0®master=&fp=loginerroralert&action=5-4-1392293588254&mibao_css=&t=1&g=1&js_ver=10067&js_type=1&login_sig=O-b4diDKGJicUND00tI*qaH5bA5-6ZdlV3tCg4FpvFs-qg6jJrBZMEtd2n0AkGuk&pt_rsa=0”
back ＝ 到文本 (网页_访问 (url, , , cookies))
调试输出 (back)
code_s ＝ 寻找文本 (back, “ptuiCB('4'”, , 假)
.如果真 (寻找文本 (back, “帐号或密码不正确”, , 假) ≠ -1)
信息框_皮肤 (窗口1.取窗口句柄 (), “帐号或密码不正确！”, #警告图标, “QQ登陆提示”)
.如果真结束
.如果真 (code_s ≠ -1)
信息框_皮肤 (窗口1.取窗口句柄 (), “验证码错误！”, #警告图标, “QQ登陆提示”)
.如果真结束
code_ ＝ “”
.判断开始 (寻找文本 (back, “登录成功”, , 假) ≠ -1)
url ＝ 文本_取出中间文本 (back, “'0','0','”, “','”)
网页_访问 (url, , , cookies, , , , 真)
返回 (1)
.默认
调试输出 (0, back)
返回 (0)

[/e]

补充内容 (2014-4-12 00:55):
code_ ＝ 文本_取出中间文本 (back, “'0','”, “'”)   写成0也是错误 可是调试是登录成功

望还想

需要验证码 ptui_checkVC('1','Q0IXeqI_ht3UCowpdLVNgr1DUvRFmJA9','\x00\x00\x00\x00\x10\x28\x30\x11');

不需要验证码 ptui_checkVC('0','!KWL','\x00\x00\x00\x00\x08\x2f\x68\xce'); 这种情况也是有验证码的（!KWL）提交这个就行

pwd ＝ enPwd (pw, code_, 编辑框_验证码.内容)

login_sig=  是变化的要取的吧。

action=5-4-1392293588254   action= 到文本 (取随机数 (1, 9)) ＋ “-” ＋ 文本_取随机数字 (1，9) ＋ “-” ＋ 时间_取现行时间戳 ()

我也是新手。你试试看。
给你一个我做的 QQ登录.rar (131.95 KB, 下载次数: 8)

2014-4-12 01:37 上传

点击文件名下载附件

phinex

望还想 发表于 2014-4-12 01:37
需要验证码 ptui_checkVC('1','Q0IXeqI_ht3UCowpdLVNgr1DUvRFmJA9','\x00\x00\x00\x00\x10\x28\x30\x11');
...

已经解决了  是判断代码问题