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

迷失回忆

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

  

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

子程序名	返回值类型	公开	备 注
_按钮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 /> .如果真结束

aManQ

比较吊，看看研究下

103029110

比较吊，看看研究下

heckvo

你这样写容易被盗号

空竹

楼主 我推荐你去找个免费空间做更新

反客为主

研究一下，顶顶顶顶

迷失回忆

空竹 发表于 2018-4-6 09:11
楼主 我推荐你去找个免费空间做更新

试过，但是免费的不是限流就是经常进不去，比较麻烦

迷失回忆

heckvo 发表于 2018-4-6 05:39
你这样写容易被盗号

哈哈哈zc的新的邮箱专用不就好了 哈哈哈

空竹

迷失回忆 发表于 2018-4-6 10:19
试过，但是免费的不是限流就是经常进不去，比较麻烦

3v空间还是不错的 拿来做更新的话。记得不要上传.txt后缀 吧.txt改成.c就能读取了

迷失回忆

空竹 发表于 2018-4-6 13:09
3v空间还是不错的 拿来做更新的话。记得不要上传.txt后缀 吧.txt改成.c就能读取了

谢谢，我去试试