监听win 邮件消息

summeralone

易语言 怎么实现 监听win 客户Duan的邮件消息,有没有例子,求助各位大佬

dcgg5201314

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

判断 (选择框1.选中 ＝ 假)
返回 ()
启动邮件扫描 ()

时钟1.时钟周期 ＝ 0

子程序名	返回值类型	公开	备 注
启动邮件扫描

变量名	类 型	静态	数组	备 注
i	整数型
k	整数型

写文本行 (文件号, “开始检测收件箱：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
调试输出 (“开始检测收件箱：”)
判断循环首 (真)
调试输出 (取现行时间 ())
程序_延时 (10)
邮件服务器联通状态 ＝ 连接收信服务器 (“pop.dhzq.com.cn”, 110, “邮箱账号”, “邮箱密码”, 5000, 3)
判断 (邮件服务器联通状态 ＝ 假)
写文本行 (文件号, “error：链接邮件服务器失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“error：链接邮件服务器失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
销毁 ()



写文本行 (文件号, “连接邮件服务器成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“连接邮件服务器成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
调试输出 (邮件服务器联通状态)
程序_延时 (10)
获取邮件信息 (邮件数目, 邮箱大小)
调试输出 (邮件数目)
程序_延时 (10)
判断 (邮件数目 ＞ 邮件保留数目)
计次循环首 (邮件数目 － 邮件保留数目, k)
删除邮件 (k)
计次循环尾 ()
写文本行 (文件号, “已经清理多余邮件 ” ＋ 到文本 (邮件数目 － 邮件保留数目) ＋ “封 ” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“已经清理多余邮件 ” ＋ 到文本 (邮件数目 － 邮件保留数目) ＋ “封 ” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )


程序_延时 (10)
计次循环首 (邮件数目, i)
信息 ＝ 接收邮件 (i)
信息.取主题 ()
信息.取日期 ()
程序_延时 (20, )
调试输出 (信息.取主题 ())
邮件主题 ＝ 邮件编码判断 (信息.取主题 ())
调试输出 (邮件主题)
判断 (邮件主题 ＝ 日期格式转换 (信息.取日期 ()) ＋ 配置的邮件主题 且 日期格式转换 (信息.取日期 ()) ＝ 日期格式转换 (取现行时间 ()))
写文本行 (文件号, “发现当日邮件开始处理：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“发现当日邮件开始处理：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
程序_延时 (20, )
附件 ＝ 信息.取附件 ()
程序_延时 (20)
调试输出 (信息.取附件个数 ())
判断 (信息.取附件个数 () ＜ 1)
写文本行 (文件号, “error：附件为空*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“error：附件为空*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
销毁 ()



调试输出 (附件名)
附件名 ＝ 邮件编码判断 (附件 [1].取文件名 ())
附件上的日期 ＝ 文本区分_只取数字 (附件名)
调试输出 (“附件上的日期”, 附件上的日期)
程序_延时 (20)
写文本行 (文件号, “发现附件：” ＋ 附件名 ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“发现附件：” ＋ 附件名 ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
调试输出 (附件 [1].取编码方式 ())
程序_延时 (20)
程序_延时 (50)
删除目录 (附件目录地址)
程序_延时 (50)
判断 (写到文件 (附件目录地址 ＋ “\” ＋ 附件名, 附件 [1].取数据 ()) ＝ 假)
写文本行 (文件号, “error：附件下载失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“error：附件下载失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
销毁 ()



程序_延时 (100)
winrar初始化状态 ＝ rar_初始化 (, )
判断 (winrar初始化状态 ＝ 假)
写文本行 (文件号, “error:WinRAR初始化失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“error:WinRAR初始化失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
销毁 ()
写文本行 (文件号, “WinRAR初始化成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“WinRAR初始化成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )

解压错误信息 ＝ rar_解压 (附件目录地址 ＋ “\” ＋ 附件名, 附件目录地址 ＋ “\”, , 真, 真, 假)
判断 (解压错误信息 ≠ “”)
调试输出 (解压错误信息)
写文本行 (文件号, 解压错误信息 ＋ “*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (解压错误信息 ＋ “*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
销毁 ()
写文本行 (文件号, “附件解压成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“附件解压成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )

程序_延时 (20, )
断开收信服务器 ()
程序_延时 (20, )
跳出循环 ()



计次循环尾 ()
判断 (邮件主题 ＝ 日期格式转换 (信息.取日期 ()) ＋ 配置的邮件主题 且 日期格式转换 (信息.取日期 ()) ＝ 日期格式转换 (取现行时间 ()))
调试输出 (“开始准备发信~”)
写文本行 (文件号, “开始准备发信：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
编辑框1.加入文本 (“开始准备发信：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
执行发信 ()
跳出循环 ()




调试输出 (“还未发现邮件~继续等待扫描”)
编辑框1.加入文本 (“还未发现邮件~继续等待扫描：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符 )
写文本行 (文件号, “还未发现邮件~继续等待扫描：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))
程序_延时 (到数值 (扫描间隔) × 1000)
程序_延时 (50)
断开收信服务器 ()
程序_延时 (50)
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
pop3	邮件接收支持库

.版本 2<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> <br /> .判断开始 (选择框1.选中 ＝ 假)<br />     返回 ()<br /> .默认<br />     启动邮件扫描 ()<br /> .判断结束<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> <br /> .版本 2<br /> .支持库 spec<br /> .支持库 pop3<br /> <br /> .子程序 启动邮件扫描<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> <br /> 写文本行 (文件号, “开始检测收件箱：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br /> 调试输出 (“开始检测收件箱：”)<br /> .判断循环首 (真)<br />     调试输出 (取现行时间 ())<br />     程序_延时 (10)<br />     邮件服务器联通状态 ＝ 连接收信服务器 (“pop.dhzq.com.cn”, 110, “邮箱账号”, “邮箱密码”, 5000, 3)<br />     .判断开始 (邮件服务器联通状态 ＝ 假)<br />         写文本行 (文件号, “error：链接邮件服务器失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />         编辑框1.加入文本 (“error：链接邮件服务器失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />         销毁 ()<br />     .默认<br /> <br />     .判断结束<br /> <br />     写文本行 (文件号, “连接邮件服务器成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />     编辑框1.加入文本 (“连接邮件服务器成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br /> <br />     调试输出 (邮件服务器联通状态)<br />     程序_延时 (10)<br />     获取邮件信息 (邮件数目, 邮箱大小)<br />     调试输出 (邮件数目)<br />     程序_延时 (10)<br /> <br />     .判断开始 (邮件数目 ＞ 邮件保留数目)<br />         .计次循环首 (邮件数目 － 邮件保留数目, k)<br />             删除邮件 (k)<br />         .计次循环尾 ()<br />         写文本行 (文件号, “已经清理多余邮件 ” ＋ 到文本 (邮件数目 － 邮件保留数目) ＋ “封 ” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />         编辑框1.加入文本 (“已经清理多余邮件 ” ＋ 到文本 (邮件数目 － 邮件保留数目) ＋ “封 ” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />     .默认<br /> <br />     .判断结束<br />     程序_延时 (10)<br />     .计次循环首 (邮件数目, i)<br />         信息 ＝ 接收邮件 (i)<br />         信息.取主题 ()<br />         信息.取日期 ()<br />         程序_延时 (20, )<br /> <br />         调试输出 (信息.取主题 ())<br /> <br />         邮件主题 ＝ 邮件编码判断 (信息.取主题 ())<br /> <br />         调试输出 (邮件主题)<br /> <br />         .判断开始 (邮件主题 ＝ 日期格式转换 (信息.取日期 ()) ＋ 配置的邮件主题 且 日期格式转换 (信息.取日期 ()) ＝ 日期格式转换 (取现行时间 ()))<br />             写文本行 (文件号, “发现当日邮件开始处理：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />             编辑框1.加入文本 (“发现当日邮件开始处理：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br /> <br />             程序_延时 (20, )<br />             附件 ＝ 信息.取附件 ()<br />             程序_延时 (20)<br />             调试输出 (信息.取附件个数 ())<br /> <br />             .判断开始 (信息.取附件个数 () ＜ 1)<br />                 写文本行 (文件号, “error：附件为空*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />                 编辑框1.加入文本 (“error：附件为空*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />                 销毁 ()<br />             .默认<br /> <br />             .判断结束<br /> <br />             调试输出 (附件名)<br />             附件名 ＝ 邮件编码判断 (附件 [1].取文件名 ())<br />             附件上的日期 ＝ 文本区分_只取数字 (附件名)<br />             调试输出 (“附件上的日期”, 附件上的日期)<br />             程序_延时 (20)<br /> <br />             写文本行 (文件号, “发现附件：” ＋ 附件名 ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />             编辑框1.加入文本 (“发现附件：” ＋ 附件名 ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br /> <br />             调试输出 (附件 [1].取编码方式 ())<br />             程序_延时 (20)<br /> <br />             程序_延时 (50)<br />             删除目录 (附件目录地址)<br />             程序_延时 (50)<br /> <br />             .判断开始 (写到文件 (附件目录地址 ＋ “\” ＋ 附件名, 附件 [1].取数据 ()) ＝ 假)<br />                 写文本行 (文件号, “error：附件下载失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />                 编辑框1.加入文本 (“error：附件下载失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />                 销毁 ()<br />             .默认<br /> <br />             .判断结束<br /> <br />             程序_延时 (100)<br />             winrar初始化状态 ＝ rar_初始化 (, )<br />             .判断开始 (winrar初始化状态 ＝ 假)<br />                 写文本行 (文件号, “error:WinRAR初始化失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />                 编辑框1.加入文本 (“error:WinRAR初始化失败*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />                 销毁 ()<br />             .默认<br />                 写文本行 (文件号, “WinRAR初始化成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />                 编辑框1.加入文本 (“WinRAR初始化成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />             .判断结束<br /> <br /> <br />             解压错误信息 ＝ rar_解压 (附件目录地址 ＋ “\” ＋ 附件名, 附件目录地址 ＋ “\”, , 真, 真, 假)<br />             .判断开始 (解压错误信息 ≠ “”)<br />                 调试输出 (解压错误信息)<br />                 写文本行 (文件号, 解压错误信息 ＋ “*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />                 编辑框1.加入文本 (解压错误信息 ＋ “*****” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />                 销毁 ()<br />             .默认<br />                 写文本行 (文件号, “附件解压成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />                 编辑框1.加入文本 (“附件解压成功：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />             .判断结束<br /> <br />             程序_延时 (20, )<br />             断开收信服务器 ()<br />             程序_延时 (20, )<br />             跳出循环 ()<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> <br />     .判断开始 (邮件主题 ＝ 日期格式转换 (信息.取日期 ()) ＋ 配置的邮件主题 且 日期格式转换 (信息.取日期 ()) ＝ 日期格式转换 (取现行时间 ()))<br />         调试输出 (“开始准备发信~”)<br />         写文本行 (文件号, “开始准备发信：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />         编辑框1.加入文本 (“开始准备发信：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />         执行发信 ()<br />         跳出循环 ()<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br />     调试输出 (“还未发现邮件~继续等待扫描”)<br />     编辑框1.加入文本 (“还未发现邮件~继续等待扫描：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()) ＋ #换行符)<br />     写文本行 (文件号, “还未发现邮件~继续等待扫描：” ＋ 时间_时间戳转文本 (时间_取现行时间戳 ()))<br />     程序_延时 (到数值 (扫描间隔) × 1000)<br />     程序_延时 (50)<br />     断开收信服务器 ()<br />     程序_延时 (50)<br /> .判断循环尾 ()

补充内容 (2022-7-19 07:30):
简单点  写个市中   ，然后每秒去扫收件箱就好了吧

补充内容 (2022-7-19 07:30):
时钟

r3gp22

dcgg5201314 发表于 2022-7-19 07:29
[e=0].版本 2

.子程序 _时钟1_周期事件

老哥，你这也太卷了吧....写这么多

summeralone

dcgg5201314 发表于 2022-7-19 07:29
[e=0].版本 2

.子程序 _时钟1_周期事件

大佬,客户Duan已经登入在电脑上,不知道账号密码,能自动获取吗