验证码错误 代码全有

ㄗs瞬闲zんì动o

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

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 账号, 文本型

图片框1.图片 ＝ 网页_访问 (“http://captcha.qq.com/getimage?uin=” ＋ 账号 ＋ “&aid=1006102&0.2806336770417478”, 0)


.子程序 QQ登陆验证是否需要验证码
.参数 账号, 文本型
.参数 密码, 文本型
.局部变量 地址, 文本型
.局部变量 文本, 文本型
.局部变量 ID登陆验证码, 文本型
.局部变量 ID密码加密值, 文本型
.局部变量 IDQQ密码加密, 文本型
.局部变量 地址2, 文本型

地址 ＝ “http://check.ptlogin2.qq.com/check?regmaster=&uin=” ＋ 账号 ＋ “&appid=1006102&js_ver=10067&js_type=1&login_sig=*njs4oEMkiGBYpvE8bXJVNJ0aTmb9QEp8Pgshq*OwYQ5rxf5iXNMKsyd6WY5bOk4&u1=http%3A%2F%2Fid.qq.com%2Findex.html&r=0.13065509693292065”
文本 ＝ 到文本 (网页_访问 (地址, 0, , , ))
ID登陆验证码 ＝ 文本_取出中间文本 (文本, “','”, “','”, , )
ID密码加密值 ＝ “\” ＋ 文本_取出中间文本 (文本, “','\”, “'”, )

输出调试文本 (文本, ID登陆验证码)
.如果 (取文本长度 (ID登陆验证码) ≠ 4)

输出调试文本 (文本, ID登陆验证码, ID密码加密值)

IDQQ密码加密 ＝ _QQ密码_加密 (密码, 到大写 (编辑框3.内容), ID密码加密值)

图片框1.图片 ＝ 网页_访问 (“http://captcha.qq.com/getimage?uin=” ＋ 账号 ＋ “&aid=1006102&0.2806336770417478”, 0)

.判断循环首 (取文本长度 (编辑框3.内容) ≠ 4)
处理事件 ()
.判断循环尾 ()

地址 ＝ “http://ptlogin2.qq.com/login?u=” ＋ 账号 ＋ “&p=” ＋ IDQQ密码加密 ＋ “&verifycode=” ＋ 到大写 (编辑框3.内容) ＋ “&aid=1006102&u1=http%3A%2F%2Fid.qq.com%2Findex.html&h=1&ptredirect=1&ptlang=2052&daid=1&from_ui=1&dumy=&low_login_enable=0®master=&fp=loginerroralert&action=6-22-1391599717729&mibao_css=&t=1&g=1&js_ver=10067&js_type=1&login_sig=sEBUgPboLkkVBRadWFfmJ4bIOpDYq86OpsB-ubNVxmF0v8BYLs8RvUmZGoOxkTU4&pt_rsa=0”

文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (地址, 0, , )))


输出调试文本 (文本)





.否则
信息框 (“您的QQ为常地区登陆,无需验证码！”, 0, )
输出调试文本 (文本, ID登陆验证码, ID密码加密值)
IDQQ密码加密 ＝ _QQ密码_加密 (密码, ID登陆验证码, ID密码加密值)

地址 ＝ “http://ptlogin2.qq.com/login?u=” ＋ 账号 ＋ “&p=” ＋ IDQQ密码加密 ＋ “&verifycode=” ＋ ID登陆验证码 ＋ “&aid=1006102&u1=http%3A%2F%2Fid.qq.com%2Findex.html&h=1&ptredirect=1&ptlang=2052&daid=1&from_ui=1&dumy=&low_login_enable=0®master=&fp=loginerroralert&action=6-15-1391593332087&mibao_css=&t=1&g=1&js_ver=10067&js_type=1&login_sig=*njs4oEMkiGBYpvE8bXJVNJ0aTmb9QEp8Pgshq*OwYQ5rxf5iXNMKsyd6WY5bOk4&pt_rsa=0”
文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (地址, 0, , )))
输出调试文本 (文本)



.如果结束















.子程序 _QQ密码_加密, 文本型
.参数 参_QQ密码, 文本型
.参数 参_验证码, 文本型
.参数 参_QQ密码_加密值, 文本型
.局部变量 a, 字节集
.局部变量 b, 文本型
.局部变量 c, 文本型

a ＝ 字节集_还原 (取数据摘要 (到字节集 (参_QQ密码)))
b ＝ 到大写 (取数据摘要 (a ＋ 字节集_还原 (子文本替换 (参_QQ密码_加密值, “\x”, , , , 真))))
c ＝ 到大写 (取数据摘要 (到字节集 (b ＋ 参_验证码)))
返回 (c)

.子程序 _按钮1_被单击

QQ登陆验证是否需要验证码 (编辑框1.内容, 编辑框2.内容)


[/e]




这段代码提交了之后  在异常地区登陆的登陆提示验证码错误怎么修复 求大神

聚义堂神话

论坛好多QQ登录的源码 你搜索下载对比下就知道了

方少龙

大神们 都去约会了 你慢慢等吧 楼主 {:soso_e113:}

ㄗs瞬闲zんì动o

大神在哪里！！！