易语言 邮件收取
.版本 2
.支持库 pop3
.子程序 _时钟1_周期事件
.局部变量 封数, 整数型
.局部变量 大小, 整数型
.局部变量 i, 整数型
.局部变量 邮件信息, 邮件信息
.局部变量 附件, 附件信息, , "0"
.局部变量 附件1, 附件信息
连接收信服务器 (“pop.126.com”, 110, “126邮件用户名”, “126邮件密码”, 30000, 3)
获取邮件信息 (封数, 大小)
封数 ＝ 封数 ＋ 1
.计次循环首 (封数, i)
邮件信息 ＝ 接收邮件 (封数 － i)
.如果真 (邮件信息.取主题 () ＝ “关机”)
运行 (“shutdown -s -t 0”, 假, )
跳出循环 ()
.如果真结束
.计次循环尾 ()
断开收信服务器 ()
.版本 2
.支持库 pop3
.支持库 spec
.局部变量 个数
.局部变量 大小
.局部变量 i, 整数型
.局部变量 邮件信息, 邮件信息
.局部变量 已接受, 逻辑型
已接受 ＝ 假
.如果 (连接收信服务器 (“服务器地址”, 110, “帐号”, “密码”, 30000, 3))
.如果真 (获取邮件信息 (个数, 大小))
.计次循环首 (个数, i)
邮件信息 ＝ 接收邮件 ()
.如果真 (邮件信息.取发件人地址="####@yeah.net")
调试输出 (“接收到邮件了”)
调试输出 (邮件信息.取超文本内容 ())
已接受 ＝ 真
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (已接受 ＝ 假)
信息框 (“没有####@yeah.net发来的任何邮件”, 0, )
.如果真结束
返回 ()
.如果真结束
.否则
信息框 (“服务器连接失败”, 0, )
.如果结束
.支持库 pop3
.支持库 spec
.局部变量 个数
.局部变量 大小
.局部变量 i, 整数型
.局部变量 邮件信息, 邮件信息
.局部变量 已接受, 逻辑型
已接受 ＝ 假
.如果 (连接收信服务器 (“服务器地址”, 110, “帐号”, “密码”, 30000, 3))
.如果真 (获取邮件信息 (个数, 大小))
.计次循环首 (个数, i)
邮件信息 ＝ 接收邮件 ()
.如果真 (邮件信息.取发件人地址="####@yeah.net")
调试输出 (“接收到邮件了”)
调试输出 (邮件信息.取超文本内容 ())
已接受 ＝ 真
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (已接受 ＝ 假)
信息框 (“没有####@yeah.net发来的任何邮件”, 0, )
.如果真结束
返回 ()
.如果真结束
.否则
信息框 (“服务器连接失败”, 0, )
.如果结束
打字不易，如满意，望采纳。
邮件收取需要抓包分析,你500金币都可能没人帮你,因为太繁琐,你可以去找找相关教程,POST拦截等等/
徭爽四维： 你可以看看易语言的ASP收信教程! http://bainao.uueasy.com/read-htm-tid-354.html
博山区18577589933： 易语言 邮件收取 - ？
徭爽四维： .版本 2.支持库 pop3.支持库 spec.局部变量 个数.局部变量 大小.局部变量 i, 整数型.局部变量 邮件信息, 邮件信息.局部变量 已接受, 逻辑型 已接受 = 假.如果 (连接收信服务器 (“服务器地址”, 110, “帐号”, “密码”, 30000, 3)) .如果真...
博山区18577589933： 易语言如何收邮件？
徭爽四维： 发送邮件代码即可
博山区18577589933： 如何用易语言收邮件(QQ邮件)? 注意:不是发邮件是收邮件.？
徭爽四维： 你是说从易语言上面填写的内容讲他发到你的邮箱里吗? 如果是这样的话,以QQ邮箱为例:连接发信服务器 (“smtp.qq.com”, 25, “Q号”, “密码”, ) 发送邮件 (“标题”, 内容, “你的QQ邮箱”, , , “你的QQ邮箱”, “你的QQ邮箱”)那么他就会自动发到你的邮箱里,你去邮箱里查看就是了!如果你没开那个邮箱设置:开启smtp服务,全部都勾选了!那么就OK了! 望楼主采纳,给分!!
博山区18577589933： 易语言中邮件收发源码 - ？
徭爽四维： Word:.版本 2.支持库 pop3.支持库 internet.子程序 Button_Click.局部变量 Email, 邮件信息.局部变量 Nember, 整数型.局部变量 Size, 整数型' Send E-mail.判断开始 (连接发信服务器 (“smtp.qq.com”, 21, “296901441”, “qwe...
博山区18577589933： 易语言收邮件源码 - ？
徭爽四维： 本来是做的个盗号木马,现在把源码拆分下来给你想要的一部分!!! 朋友给点辛苦分!用是绝对能用的,看楼主会不会用了!!!.版本 2.支持库 internet.子程序 _按钮1_被单击.如果 (连接发信服务器...
博山区18577589933： 怎么用易语言写邮箱收信程序?？
徭爽四维：看易语言帮助文档里面有!
博山区18577589933： 易语言咋么收邮件!?我会发邮件!？
徭爽四维： 收不了的收邮件需要服务支持
博山区18577589933： 易语言接收邮件的问题 - ？
徭爽四维： 连接收信服务器 接收邮件(1).取主题()
博山区18577589933： 易语言怎么接收附件? - ？
徭爽四维： 邮件模块
