使用邮箱获取更新软件大神清喷望指正 - 精易论坛

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

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