易语言怎么连接网络判断QQ账号密码是否正确?求源码!
展开全部
.版本 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, )
.默认
.判断结束
.支持库 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, )
.默认
.判断结束
追问
看不懂,麻烦解释下!谢谢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询