易语言利用服务器更新,【原创】利用FTP实现软件自动更新

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

.版本 2

.支持库 internet

.支持库 EThread

.支持库 downlib

.支持库 iext .子程序 版本比较

.局部变量 现行版本, 文本型

.局部变量 执行版本, 文本型

.局部变量 link, 文本型现行版本 ＝ 到文本 (HTTP读文件 (“在网站上放置版本号的TXT文件”))

标签2.标题 ＝ “服务器版本：” ＋ 现行版本

执行版本 ＝ 到文本 (读入文件 (“本地版本”))

标签3.标题 ＝ “当前版本：” ＋ 执行版本

.判断开始 (执行版本 ≠ 现行版本)

_启动窗口.标题 ＝ “开始更新…”

编辑框1.内容 ＝ 到文本 (HTTP读文件 (“更新内容公告”))

link ＝ 到文本 (HTTP读文件 (“下载地址文件，在网站上放置。TXT比较方便，顺便，我喜欢在TXT内加一个结束符，以单行/end表示”))

下载地址 ＝ 分割文本 (link, #换行符, )

启动线程 (&执行下载, , )

.默认

_启动窗口.标题 ＝ “当前版本已经为最新”

信息框 (“当前版本已经为最新”, 0, )

更新完成 ＝ 真 ' 更新是否完成为窗口可否被销毁的返回值

.判断结束

.子程序 执行下载更新完成 ＝ 假

.计次循环首 (取数组成员数 (下载地址) － 1, i)

下载 (下载地址 [i]