易程序万能在线自动更新模块

西北老狼

经常做软件需要在线自动更新程序，网上找了好多示例或者模块，都不是很满意，基本上不能替换自己本身或者说压根没法下载甚至就是打开网页手动下载，最近在家闲来无事，就自己写了一个在线更新的模块，模块里基本集成了大部分功能，适用大部分易语言程序在线自动更新，初学的易语言小白一看都会用，为了让大家看的更明白一点，我也写了调用的源码和模块一并附上，希望对大家有所帮助，如有问题，欢迎大家跟帖，我会及时修正，废话不多说，上东西，最实在。
以下是调用模块写的源码，能让大家看的更明白一点

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_最新程序版本号	文本型
集_最新程序更新内容	文本型
集_主程序下载地址	文本型
集_主程序文件名称	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

程序_禁止重复运行 (“c87b0da397231bc16ae166fcc6fc400f”, 真, “当前程序已经在运行,请勿重复运行！”, #警告图标, 真)  ' 调用精易模块
集_最新程序版本号 ＝ “V2020.2.26.01”  ' 版本号类型请自行定义或从网络获取返回，此处只用作演示
集_最新程序更新内容 ＝ “1、精易论坛易语言！” ＋ #换行符 ＋ “2、我喜欢易语言，我爱学习易语言！”  ' 更新内容请自行配置读取从网络获取返回，此处只用作演示
集_主程序下载地址 ＝ “”  ' 下载地址请自行配置读取从网络获取返回，此处只用作演示
集_主程序文件名称 ＝ “软件更新测试”  ' 根据自己软件的名称填写
如果 (集_最新程序版本号 ≠ “” 且 集_最新程序更新内容 ≠ “” 且 集_主程序下载地址 ≠ “”)
_启动窗口.标题 ＝ “Update   最新版本:” ＋ 集_最新程序版本号
编辑框_更新内容.内容 ＝ 集_最新程序更新内容
信息框 (“获取更新信息失败，请重新启动程序！”, 48, “更新提示”, )
结束 ()

子程序名	返回值类型	公开	备 注
_按钮_更新_被单击			#开始执行更新程序

时钟1.时钟周期 ＝ 100
按钮_更新.禁止 ＝ 真
程序更新下载参数配置 (集_主程序下载地址, 集_主程序文件名称, 集_最新程序版本号)  ' 在线更新模块中已集成，请看参数说明

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			#取出相关下载文件中的数据、状态在窗口上显示

进度条_下载.位置 ＝ 下载进度 ()  ' 在线更新模块中已集成，请看参数说明
如果 (进度条_下载.位置 ＝ 100)  ' 在线更新模块中已集成，请看参数说明
时钟1.时钟周期 ＝ 0
_启动窗口.标题 ＝ “更新完毕！”
信息框 (“更新成功！”, 64, “更新提示”, )
运行 (取运行目录 () ＋ “\” ＋ 集_主程序文件名称 ＋ “.exe”, 假, )
结束 ()
_启动窗口.标题 ＝ “正在更新程序中，更新进度:” ＋ 到文本 (进度条_下载.位置) ＋ “%” ＋ “(已下载:” ＋ 到文本 (已下载文件大小 ()) ＋ “M/大小:” ＋ 到文本 (下载文件大小 ()) ＋ “M）”  ' 在线更新模块中已集成，请看参数说明

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_最新程序版本号, 文本型<br /> .程序集变量 集_最新程序更新内容, 文本型<br /> .程序集变量 集_主程序下载地址, 文本型<br /> .程序集变量 集_主程序文件名称, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 程序_禁止重复运行 (“c87b0da397231bc16ae166fcc6fc400f”, 真, “当前程序已经在运行,请勿重复运行！”, #警告图标, 真)  ' 调用精易模块<br /> 集_最新程序版本号 ＝ “V2020.2.26.01”  ' 版本号类型请自行定义或从网络获取返回，此处只用作演示<br /> 集_最新程序更新内容 ＝ “1、精易论坛易语言！” ＋ #换行符 ＋ “2、我喜欢易语言，我爱学习易语言！”  ' 更新内容请自行配置读取从网络获取返回，此处只用作演示<br /> 集_主程序下载地址 ＝ “”  ' 下载地址请自行配置读取从网络获取返回，此处只用作演示<br /> 集_主程序文件名称 ＝ “软件更新测试”  ' 根据自己软件的名称填写<br /> .如果 (集_最新程序版本号 ≠ “” 且 集_最新程序更新内容 ≠ “” 且 集_主程序下载地址 ≠ “”)<br />     _启动窗口.标题 ＝ “Update   最新版本:” ＋ 集_最新程序版本号<br />     编辑框_更新内容.内容 ＝ 集_最新程序更新内容<br /> .否则<br />     信息框 (“获取更新信息失败，请重新启动程序！”, 48, “更新提示”, )<br />     结束 ()<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮_更新_被单击, , , #开始执行更新程序<br /> <br /> 时钟1.时钟周期 ＝ 100<br /> 按钮_更新.禁止 ＝ 真<br /> 程序更新下载参数配置 (集_主程序下载地址, 集_主程序文件名称, 集_最新程序版本号)  ' 在线更新模块中已集成，请看参数说明<br /> <br /> .子程序 _时钟1_周期事件, , , #取出相关下载文件中的数据、状态在窗口上显示<br /> <br /> 进度条_下载.位置 ＝ 下载进度 ()  ' 在线更新模块中已集成，请看参数说明<br /> .如果 (进度条_下载.位置 ＝ 100)  ' 在线更新模块中已集成，请看参数说明<br />     时钟1.时钟周期 ＝ 0<br />     _启动窗口.标题 ＝ “更新完毕！”<br />     信息框 (“更新成功！”, 64, “更新提示”, )<br />     运行 (取运行目录 () ＋ “\” ＋ 集_主程序文件名称 ＋ “.exe”, 假, )<br />     结束 ()<br /> .否则<br />     _启动窗口.标题 ＝ “正在更新程序中，更新进度:” ＋ 到文本 (进度条_下载.位置) ＋ “%” ＋ “(已下载:” ＋ 到文本 (已下载文件大小 ()) ＋ “M/大小:” ＋ 到文本 (下载文件大小 ()) ＋ “M）”  ' 在线更新模块中已集成，请看参数说明<br /> .如果结束

w322zkkw

w322zkkw

274347868

不支持https 2.不能删除就版本

274347868

奉上小小***希望笑纳  s

274347868

奉上小小***希望笑纳

kenny8848

不错 我来学习一下

renxiawou

111111111111111111111111

luo620

楼主用心了 谢谢

1326554131

666666666666666666

z3505171

        开源精神必须支持~