3GQQ登录验证码问题

拼饭

.版本 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”))
调试输出 (返回文本)

拼饭

已自行解决