软件在线更新并且下载后自动压缩模块源码

列表 ＝ HTTP读文件 (更新列表地址)
写到文件 (取特定目录 (11) ＋ “\update.edb”, 列表)
数据库 ＝ 取特定目录 (11) ＋ “\update.edb”
.如果真 (打开 (数据库, , , , , , ) ＝ 假)  ' 看看能不能打开这个数据库，如果打不开证明没有下载
    信息框 (“无法打开更新列表！” ＋ #换行符 ＋ #换行符 ＋ “产生此错误的原因：                    ” ＋ #换行符 ＋ “1.可能是您没有连接到网络” ＋ #换行符 ＋ “2.更新列表已损坏或不存在”, 16, “错误”)
    销毁 ()
    返回 ()
.如果真结束
到首记录 ()
本地版本 ＝ 到数值 (删全部空 (取字节集数据 (读入文件 (取运行目录 () ＋ “\” ＋ 读 (5)), #文本型)))
' 读取列表中设置的本地版本文件中的版本信息，没有试过能不能直接转换为数值
本地版本路径 ＝ 取运行目录 () ＋ “\” ＋ 读 (5)
ftp版本 ＝ 读 (4)
.如果 (ftp版本 ≤ 本地版本)
    删除进入许可证 (许可证1)
    删除进入许可证 (许可证2)
    全部关闭 ()
    结束 ()
    返回 ()
.否则
    最小化升级.可视 ＝ 真
    最小化升级.边框 ＝ 4
    最小化升级.移动 (, , 400, 123)
    最小化升级.位置 ＝ 1
    标签1.标题 ＝ “注意:发现网上有新的升级版本,您现在是否需要更新?”