|

楼主 |
发表于 2013-7-21 10:54:13
|
显示全部楼层
广东省佛山市
编辑框1.内容(帐号)
编辑框2.内容(密码)
编辑框3.内容(验证码)
.版本 2
.支持库 script
.支持库 spec
.支持库 internet
.子程序 _按钮1_被单击
.局部变量 结果, 文本型
.局部变量 Cookie, 文本型
.局部变量 地址, 文本型
.局部变量 返回Cookies, 文本型
.局部变量 回文本, 文本型
.局部变量 密码, 文本型
.局部变量 啊, 文本型
.局部变量 str, 文本型
脚本组件1.执行 (#md5)
编辑框2.内容 = 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
编辑框2.内容 = 脚本组件1.运行 (“md5”, 编辑框2.内容 + 到大写 (删首尾空 (编辑框3.内容)))
调试输出 (编辑框2.内容 + “ 22222222”)
' 返回Cookies = 取Cookie (“http://ptlogin2.qq.com/login?u=” + 编辑框1.内容 + “&p=” + 编辑框2.内容 + “&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=1-38-1136169344812&mibao_css=&t=1&g=1&js_ver=10034&js_type=1&login_sig=h37h3Wp7S*QDsSKHFGkH3B1h0wdUNpDLEq2MivJCSy8paJ*7aMqy-v1nfWQBfkVD”, Cookie)
' 啊 = 文本_取中间文本 (啊, “ptvfsession=”, “; ETK=”)
' CoInitialize (0)
' 对象.创建 (“ScriptControl”, )
' 对象.写属性 (“Language”, “JScript”)
' 对象.数值方法 (“AddCode”, #QQmd5)
' 密码 = 对象.通用方法 (“Eval”, “md5(” + #引号 + 编辑框2.内容 + #引号 + “)”).取文本 ()
' result = 对象.通用方法 (“Eval”, “hexchar2bin(” + #引号 + 密码 + #引号 + “)”).取文本 ()
' 密码 = 对象.通用方法 (“Eval”, “md5(” + #引号 + result + ptui_cb + #引号 + “)”).取文本 ()
' 密码 = 对象.通用方法 (“Eval”, “md5(” + #引号 + 密码 + 到大写 (编辑框3.内容) + #引号 + “)”).取文本 ()
' CoUninitialize ()
地址 = “http://ptlogin2.qq.com/login?u=” + 编辑框1.内容 + “&p=” + 编辑框2.内容 + “&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=1-38-1136169344812&mibao_css=&t=1&g=1&js_ver=10034”
cookies = 文本_取中间文本 (cookies, “confirmuin=0;”, “;ptisp=ctc”)
' cookies = 网页_Cookie合并更新 (cookies, cookies)
调试输出 (cookies + “ 0000”)
str = 到文本 (网页_访问 (地址, 0, , cookies, , ))
调试输出 (cookies)
调试输出 (啊)
调试输出 (返回Cookies)
调试输出 (str)
' “http://check?regmaster=&uin=” + 编辑框1.内容 + “&appid=1006102&js_ver=10034&js_type=1&login_sig=ym*h2RRI8If6jxETKA0STa5fXSgEwIxTh*K8xkqp0crPpjrCxZEClmwurS9KlKAH&u1=http%3A%2F%2Fid.qq.com%2Findex.html&r=0.26548883348933266”
' 地址 = “ http://ptlogin2.qq.com/login?u=” + 编辑框1.内容 + “&p=” + 编辑框2.内容 + “&verifycode=” + 编辑框3.内容 + “&webqq_type=10&remember_uin=1&login2qq=1&aid=1003903&u1=http%3A%2F%2Fweb.qq.com%2Floginproxy.html%3Flogin2qq%3D1%26webqq_type%3D10&h=1&ptredirect=0&ptlang=2052&from_ui=1&pttype=1&dumy=&fp=loginerroralert&action=1-20-90064&mibao_css=m_webqq&t=1&g=1”
' 回文本 = 网页访问u (地址, 0, , 返回Cookies)
' 调试输出 (回文本)
.子程序 __启动窗口_创建完毕
.局部变量 结果, 文本型
.局部变量 啊, 文本型
.子程序 _编辑框2_失去焦点
.局部变量 结果, 文本型
.局部变量 啊, 文本型
.局部变量 取验证, 文本型
结果 = 网页访问u (“http://check.ptlogin2.qq.com/check?regmaster=&uin=” + 编辑框1.内容 + “&appid=1006102&js_ver=10034&js_type=1&login_sig=ym*h2RRI8If6jxETKA0STa5fXSgEwIxTh*K8xkqp0crPpjrCxZEClmwurS9KlKAH&u1=http%3A%2F%2Fid.qq.com%2Findex.html&r=0.26548883348933266”, 0, , , cookies, , , , , , )
啊 = 文本_取中间文本 (结果, “ptui_checkVC('”, “','”, )
.如果 (啊 = “0”)
取验证 = 文本_取中间文本 (结果, “ptui_checkVC('0','”, “','”, )
编辑框3.内容 = 取验证
.否则
图片框1.图片 = HTTP读文件 (“http://captcha.qq.com/getimage?uin=” + 删首尾空 (编辑框1.内容) + “&aid=1006102&0.3366147520475282”)
.如果结束
调试输出 (啊)
调试输出 (结果)
|
|