使用邮箱获取更新软件 大神清喷 望指正

迷失回忆

思路是提取邮箱退后一封邮件取标题，分隔为有更新和版本号

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
邮件	邮件信息
邮件个数	整数型
邮件大小	整数型
邮件标题	文本型
邮件标题2	文本型		2
附件	附件信息		0
附件数据	字节集
附件文件名	文本型
连接	逻辑型
文件写入完毕	逻辑型
版本号	文本型

连接 ＝ 连接收信服务器 ( #邮箱POP3, 110, #邮箱账号, #邮箱密码, 5000, 2)  ' 后期可添加等待画面，这里就不加了
如果真 (连接 ＝ 假)
信息框 (“链接服务器失败，请检查网络是否通畅。”, 0, “告警 :”, )
返回 ()
获取邮件信息 (邮件个数, 邮件大小)  ' 取所有的文件数量 和 大小
邮件 ＝ 接收邮件 (邮件个数)  ' 这里接收的是最后一封
邮件标题 ＝ 邮件.取主题 ()
邮件标题2 ＝ 分割文本 (邮件标题, “|”, )  ' 更新的时候标题我写的是 “有更新|ver:2.0”
如果真 (邮件标题2 [1] ＝ “有更新”)
版本号 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “update”, “ver”, )  ' 获取本地版本号
如果真 (版本号 ＝ 邮件标题2 [2])
信息框 (“您已是最新版本”, 0, “提示 :”, )
返回 ()
编辑框1.内容 ＝ “正在更新”
附件 ＝ 邮件.取附件 ()
附件数据 ＝ 附件 [1].取数据 ()
附件文件名 ＝ 附件 [1].取文件名 ()
文件写入完毕 ＝ 写到文件 (取当前目录 () ＋ “\” ＋ 附件文件名, 附件数据)
如果 (文件写入完毕 ＝ 真)
编辑框1.内容 ＝ “更新成功”
编辑框1.内容 ＝ “更新失败”

如果真 (邮件标题 ≠ “有更新”)
信息框 (“您已是最新版本”, 0, “提示 :”, )

i支持库列表	支持库注释
pop3	邮件接收支持库

.版本 2<br /> .支持库 pop3<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 邮件, 邮件信息<br /> .局部变量 邮件个数, 整数型<br /> .局部变量 邮件大小, 整数型<br /> .局部变量 邮件标题, 文本型<br /> .局部变量 邮件标题2, 文本型, , "2"<br /> .局部变量 附件, 附件信息, , "0"<br /> .局部变量 附件数据, 字节集<br /> .局部变量 附件文件名, 文本型<br /> .局部变量 连接, 逻辑型<br /> .局部变量 文件写入完毕, 逻辑型<br /> .局部变量 版本号, 文本型<br /> <br /> 连接 ＝ 连接收信服务器 (#邮箱POP3, 110, #邮箱账号, #邮箱密码, 5000, 2)  ' 后期可添加等待画面，这里就不加了<br /> .如果真 (连接 ＝ 假)<br />     信息框 (“链接服务器失败，请检查网络是否通畅。”, 0, “告警 :”, )<br />     返回 ()<br /> .如果真结束<br /> 获取邮件信息 (邮件个数, 邮件大小)  ' 取所有的文件数量 和 大小<br /> 邮件 ＝ 接收邮件 (邮件个数)  ' 这里接收的是最后一封<br /> 邮件标题 ＝ 邮件.取主题 ()<br /> 邮件标题2 ＝ 分割文本 (邮件标题, “|”, )  ' 更新的时候标题我写的是 “有更新|ver:2.0”<br /> .如果真 (邮件标题2 [1] ＝ “有更新”)<br />     版本号 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “update”, “ver”, )  ' 获取本地版本号<br />     .如果真 (版本号 ＝ 邮件标题2 [2])<br />         信息框 (“您已是最新版本”, 0, “提示 :”, )<br />         返回 ()<br />     .如果真结束<br />     编辑框1.内容 ＝ “正在更新”<br />     附件 ＝ 邮件.取附件 ()<br />     附件数据 ＝ 附件 [1].取数据 ()<br />     附件文件名 ＝ 附件 [1].取文件名 ()<br />     文件写入完毕 ＝ 写到文件 (取当前目录 () ＋ “\” ＋ 附件文件名, 附件数据)<br />     .如果 (文件写入完毕 ＝ 真)<br />         编辑框1.内容 ＝ “更新成功”<br />     .否则<br />         编辑框1.内容 ＝ “更新失败”<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果真 (邮件标题 ≠ “有更新”)<br />     信息框 (“您已是最新版本”, 0, “提示 :”, )<br /> .如果真结束

nbw008

谢谢楼主分享，下载学习一下！

312508236

这个应该是可以用到的

312508236

这个应该是可以用到的

1929791319

6666666666666666666

小神哥

这个应该是可以用到的

123）

好像很厉害的样子。。。

zifeiyu1990

让人抓个包你这邮箱就没了，所以用邮箱做更新只有实验价值，没有实际价值

as2788967125

可以可以，但是这个邮箱可能得必须设置一定的权限，不然收到邮件就判断有点浪费内存

石头怪

好像很厉害的样子。。。

风九幽

可以可以，但是这个邮箱可能得必须设置一定的权限，不然收到邮件就判断有点浪费内存