Question

易语言自动更新下载文件

检测到更新版本号之后，自动下载文件到本地，来完成更新。

Answer 1

这个是代码，直接复制到易语言里就可以了，不过需要一个新浪微博，可以去注册。代码里有新浪微博文章的教程

.版本 2
.支持库 iconv
.支持库 internet
.支持库 spec
.支持库 iext
.支持库 eAPI

.程序集 窗口程序集_启动窗口
.程序集变量 当前版本, 文本型

.子程序 __启动窗口_创建完毕

当前版本 ＝ “1.0”
检查更新 ()

.子程序 检查更新
.局部变量 返回文本, 文本型
.局部变量 最新版本, 文本型
.局部变量 更新说明, 文本型
.局部变量 窗口标题, 文本型
.局部变量 分割的文本, 文本型, , "0"
.局部变量 i1, 整数型

返回文本 ＝ 到文本 (编码转换 (HTTP读文件 (“http://blog.sina.com.cn/s/blog_1522415ce0102wei7.html”), #编码_UTF_8, #编码_GB18030, )) ' 这个是你的新浪微博文章的地址，如果不知道怎么写，可以去看看我的
返回文本 ＝ 取中间内容 (返回文本, “////开始”, “////结束”)
调试输出 (返回文本)
最新版本 ＝ 取中间内容 (返回文本, “最新版本=”, “</P>”)

调试输出 (最新版本)
.判断开始 (最新版本 ＝ “”)
信息框 (“更新失效请联系作者”, 0, “”)
.默认
.如果真 (到数值 (最新版本) ＜ 到数值 (当前版本))
信息框 (“当前版本为最新了”, 0, , )
返回 ()
.如果真结束

.如果真 (到数值 (最新版本) ＞ 到数值 (当前版本))
.如果真 (信息框 (“当前版本：” ＋ 当前版本 ＋ #换行符 ＋ “最新版本：” ＋ 最新版本 ＋ #换行符 ＋ “更新内容：” ＋ #换行符 ＋ 透明标签1.标题, #是否钮, “是否下载最新版？”, ) ＝ #是钮)
打开指定网址 (“www.360.com”) ' 这个是下载地址，如果要不打开下载的话，就添加一个超文本浏览框，让超文本浏览框的地址等于下载地址
' 例如：超文本框1.地址=“www.360.com”
销毁 ()
.如果真结束

.如果真结束

.判断结束

.子程序 取中间内容, 文本型, 公开
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 ＝ 取文本长度 (完整内容)
临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
临时文本 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
总长度 ＝ 取文本长度 (临时文本)
临时位置 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
临时文本 ＝ 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)

Answer 2

调用模块下载会简单一些。

举一个调用模块的例子：

材料：

1. 易语言

2. 超级模块

3. 精易模块

4. 网络空间（这个必须，如果有博客的话就麻烦一点）

 

我在网络空间中保存这样一个txt文件，假设我的服务器名为abcd.1234.com

 

// -update.txt-----------------------------------------------------------

{
    ["updateVersion"="2"]
    ["updateFile"=
] 
    ["updateMsg"="升级到新版本"]
}

第二种写法：

2|http://abcd.1234.com/update.exe|升级到新版本

 

看个人喜好了

 

然后在程序代码里面写（这里以第二种写法为例子）：

 

.版本 2
.支持库 internet

.程序集 窗口程序集_启动窗口
.程序集变量 升级源码, 文本型, , "0"
.程序集变量 版本号, 整数型

 

.子程序 __启动窗口_创建完毕

 

版本号 ＝ 1
升级源码 ＝ 分割文本 (编码_Utf8到Ansi (HTTP读文件 (“http://abcd.1234.com/update.txt”)), “|”, )

 

.如果真 (到整数 (升级源码 [1]) ＞ 版本号)
    信息框 (升级源码 [3], 0, “新版本！”, _启动窗口)
    下载 (升级源码 [2], 取临时目录 (3) ＋ “\update.exe”)

 

这样就行了。