Question

易语言验证QQ帐号和密码代码。

Answer 1

.版本 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, )
.默认
.判断结束

==================================================
精易论坛 - 荣誉团队
此答案来源于 → 精易论坛,要学习的可百度一下"精易论坛"
精易论坛 → 专业易语言技术交流学习平台
我们的口号是 → 帮助别人等于帮助自己
宣传员：邪恶神
==================================================

追问

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“UTF8转ANSI”。
编译现行易程序失败或被中止!
或者你发你制作好的到我的邮箱1282184474@qq.com

Answer 2

.版本 2
.支持库 internet

.子程序 _按钮1_被单击
.局部变量 QQ号, 文本型
.局部变量 密码, 文本型

QQ号 ＝ 到文本 (编辑框1.内容)
密码 ＝ 到文本 (编辑框2.内容)
.如果 (连接发信服务器 (“smtp.qq.com”, , QQ号, 密码, 3000) ＝ 真)
信息框 (“登陆成功，按【确定】开始随即抽奖！”, #信息图标, “正确”)
.否则
信息框 (“QQ密码错误，又不会盗号的你怕个卵？”, #信息图标, “错误”)
返回 ()
.如果结束
载入 (窗口1, , 假)
_启动窗口.销毁 ()
断开发信服务器 ()