|
.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集2
.程序集变量 验证码地址, 文本型
.程序集变量 返回文本, 文本型
.子程序 _按钮1_被单击
.局部变量 sid, 文本型
.局部变量 vdata, 文本型
.局部变量 登录地址, 文本型
返回文本 = 彗星URL解码_UTF8 (彗星HTTP读文本 (“pt.3g.qq.com”))
sid = 文本_取出中间文本 (返回文本, “sid=”, “&”)
vdata = 文本_取出中间文本 (返回文本, “vdata=”, #引号)
返回文本 = 彗星URL解码_UTF8 (彗星HTTP读文本 (“http://pt.3g.qq.com/handleLogin?sid=” + sid + “&vdata=” + vdata, “POST”, , , “login_url=http%3A%2F%2Fpt.3g.qq.com%2Fs%3Faid%3DnLogin%26go_url%3D&sidtype=1&nopre=0&q_from=&loginTitle=%E6%89%8B%E6%9C%BA%E8%85%BE%E8%AE%AF%E7%BD%91&bid=0&qq=” + 编辑框_QQ.内容 + “&pwd=” + 编辑框_MM.内容 + “&loginType=3&loginsubmit=%E7%99%BB%E5%BD%95”))
.如果真 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
信息框 (“登录成功”, 0, “提示”)
.如果真结束
.如果真 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
信息框 (“账号或密码错误!请重新输入”, 0, “提示”)
.如果真结束
.如果真 (寻找文本 (返回文本, “验证码”, , 假) ≠ -1)
验证码地址 = 文本_取出中间文本 (返回文本, #验证码地址前, #验证码地址后)
图片框_code.图片 = HTTP读文件 (验证码地址)
.如果真结束
调试输出 (返回文本)
.子程序 _图片框_code_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框_code.图片 = HTTP读文件 (验证码地址)
.子程序 _按钮2_被单击
.局部变量 vdata, 文本型
.局部变量 hexpwd, 文本型
.局部变量 sid, 文本型
.局部变量 r_sid, 文本型
.局部变量 rip, 文本型
hexpwd = 文本_取出中间文本 (返回文本, #hexpwd前, #hexpwd后)
sid = 文本_取出中间文本 (返回文本, “sid=”, “&”)
r_sid = 文本_取出中间文本 (返回文本, #r_sid前, #hexpwd后)
rip = 文本_取出中间文本 (返回文本, #rip前, #hexpwd后)
vdata = 文本_取出中间文本 (返回文本, “vdata=”, #引号)
返回文本 = 彗星URL解码_UTF8 (彗星HTTP读文本 (“http://pt.3g.qq.com/handleLogin?sid=” + sid + “&vdata=” + vdata + “”, “POST”, , , “qq=” + 编辑框_QQ.内容 + “&u_token=” + 编辑框_QQ.内容 + “&hexpwd=” + hexpwd + “&sid=” + sid + “&hexp=true&nopre=0&auto=0&loginTitle=%E6%89%8B%E6%9C%BA%E8%85%BE%E8%AE%AF%E7%BD%91&q_from=&modifySKey=0&q_status=20&r=11565&loginType=3&login_url=http%3A%2F%2Fpt.3g.qq.com%2Fs%3Faid%3DnLogin%26go_url%3D&extend=http%3A%2F%2Fnvcsz.gtimg.com%2F1071530668%2F1697061804468980514&r_sid=” + r_sid + “&bid_code=qqchatLogin&bid=0&rip=” + rip + “&verify=” + 编辑框_验证码.内容 + “&submitlogin=%E9%A9%AC%E4%B8%8A%E7%99%BB%E5%BD%95”))
调试输出 (返回文本)
|
-
-
zj.zip
141.32 KB, 下载次数: 23, 下载积分: 精币 -2 枚
|