|
发表于 2011-7-2 17:35:36
|
显示全部楼层
广东省珠海市
[e].版本 2
.支持库 iext
.局部变量 返回文本, 文本型
.局部变量 链接, 文本型
处理事件 ()
超级列表框1.全部删除 ()
返回文本 = UTF8转ANSI (彗星HTTP读文件 (“q.3g.qq.com/g/s?sid=” + sid + “&”, “POST”, , , “u=” + 编辑框1.内容 + “&p=” + 编辑框2.内容 + “&modifySKey=0&to_qqchat=1&aid=nLoginHandle”, ))
' 输出调试文本 (返回文本)
.如果真 (寻找文本 (返回文本, “看不清,换一张”, , 假) ≠ -1)
验证码ID = 取指定内容 (返回文本, “<img src=” + #引号 + “”, “.gif”)
载入 (窗口_验证码, , 真)
返回文本 = UTF8转ANSI (彗星HTTP读文件 (“q.3g.qq.com/g/s?sid=” + sid, “POST”, , , “aid=nSafeHandleLogin&u=” + 编辑框1.内容 + “&p=” + 取指定内容 (返回文本, “p” + #引号 + “ value=” + #引号, #引号) + “&extend=” + 验证码ID + “&r_sid=” + 取指定内容 (验证码ID + “/”, “/”, “/”) + “&hexp=true&auto=0&modifySKey=0&loginTitle=&q_status=10&loginType=1&bid=0&only3g=0&to_qqchat=1&verify=” + 验证码, ))
' 输出调试文本 (返回文本)
.版本 2
.支持库 iext
.支持库 EThread
.版本 2
.支持库 iext
.支持库 EThread
.判断开始 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
信息框 (“登录成功!”, 0, )
信息框 (“登陆失败!”, 0, )
.默认
.判断结束
[/e]{:3_226:}{:3_227:}{:3_227:} |
|