在线升级UP程序 自动替换 忽略名称带(1)

芷新

  

文件名 ＝ 到文本 (取执行文件名 ())
如果真 (寻找文本 (文件名, “.exe”, , 假) ＜ -1)
文件名 ＝ 文件名 ＋ “.exe”  //这里防止 原文件名带有空格或者 xxx (1).exe  或者   XXX 副本 .exe

安装目录 ＝ 取运行目录 ()
写到文件 (取运行目录 () ＋ “\updata.exe”, #updata )
执行 (4, 取运行目录 () ＋ “\updata.exe”, 下载地址_全局 ＋ “ ” ＋ 安装目录 ＋ “ ” ＋ 文件名, , )
结束 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br />             文件名 ＝ 到文本 (取执行文件名 ())<br />             .如果真 (寻找文本 (文件名, “.exe”, , 假) ＜ -1)<br />                 文件名 ＝ 文件名 ＋ “.exe”  //这里防止 原文件名带有空格或者 xxx (1).exe  或者   XXX 副本 .exe <br />             .如果真结束<br /> <br />             安装目录 ＝ 取运行目录 ()<br />             写到文件 (取运行目录 () ＋ “\updata.exe”, #updata)<br />             执行 (4, 取运行目录 () ＋ “\updata.exe”, 下载地址_全局 ＋ “ ” ＋ 安装目录 ＋ “ ” ＋ 文件名, , )<br /> <br />             结束 ()

updata.e 生成一个通用升级程序 exe 如软件需升级 写入上面面代码  带运行参数执行该程序即可完成自动更新及自动替换本身.   
updata.exe  通过运行参数得到下载地址,文件名及路径等参数 所以 升级程序是通用的

根据论坛中一个例子修改 忘记是那个连接了  避免了文件带 空格  或者 (1) 副本 等  
原上传的自动更新自动替换老是失败 所以换成了这个
未闻花名皮肤模块_4.2 和 逍遥模块3.5  已上传

  

安装目录 ＝ 取运行目录 ()
写到文件 (取运行目录 () ＋ “\updata.exe”, #updata )
执行 (4, 取运行目录 () ＋ “\updata.exe”, 下载地址_全局 ＋ “ ” ＋ 安装目录 ＋ “ ” ＋ 文件名, , )
结束 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br />             安装目录 ＝ 取运行目录 ()<br />             写到文件 (取运行目录 () ＋ “\updata.exe”, #updata)<br />             执行 (4, 取运行目录 () ＋ “\updata.exe”, 下载地址_全局 ＋ “ ” ＋ 安装目录 ＋ “ ” ＋ 文件名, , )<br /> <br />             结束 ()

  

变量名	类 型	静态	数组	备 注
临_文件名	文本型

当前进度位置 ＝ BT.取进度完成百分比 ()
如果真 (当前进度位置 ＝ 100)
如果 (BT.取已下载大小 () ＝ BT.取下载文件总大小 ())
删除文件 (旧版本文件名)
处理事件 ()
复制文件 (安装目录 ＋ “\data\” ＋ 文件名, 旧版本文件名)
临_文件名 ＝ 子文本替换 (文件名, “.tmp”, “”, , , 真)
临_文件名 ＝ 子文本替换 (文件名, “.exe”, “”, , , 真)
创建快捷方式 (取特定目录 (3) ＋ “/” ＋ 临_文件名 ＋ “.lnk”, 取运行目录 () ＋ “/” ＋ 旧版本文件名, , , )
时钟2.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 0
按钮1.禁止 ＝ 假
' 按钮1.可视 ＝ 真
' 按钮1.标题 ＝ “3秒后执行新程序”
处理事件 ()
延迟 (3000)
执行 (4, 旧版本文件名, , , )
处理事件 ()
延迟 (20)
结束 ()
延迟 (20)
销毁 ()



按钮1.标题 ＝ “下载失败,点此重新开始”
按钮1.可视 ＝ 真

i支持库列表	支持库注释
shell	操作系统界面功能支持库
exui	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 exui<br /> .支持库 spec<br /> <br /> .局部变量 临_文件名, 文本型<br /> <br /> 当前进度位置 ＝ BT.取进度完成百分比 ()<br /> .如果真 (当前进度位置 ＝ 100)<br />     .如果 (BT.取已下载大小 () ＝ BT.取下载文件总大小 ())<br /> <br />         删除文件 (旧版本文件名)<br />         处理事件 ()<br /> <br />         复制文件 (安装目录 ＋ “\data\” ＋ 文件名, 旧版本文件名)<br />         临_文件名 ＝ 子文本替换 (文件名, “.tmp”, “”, , , 真)<br />         临_文件名 ＝ 子文本替换 (文件名, “.exe”, “”, , , 真)<br /> <br />         创建快捷方式 (取特定目录 (3) ＋ “/” ＋ 临_文件名 ＋ “.lnk”, 取运行目录 () ＋ “/” ＋ 旧版本文件名, , , )<br /> <br />         时钟2.时钟周期 ＝ 0<br />         时钟1.时钟周期 ＝ 0<br /> <br />         按钮1.禁止 ＝ 假<br />         ' 按钮1.可视 ＝ 真<br />         ' 按钮1.标题 ＝ “3秒后执行新程序”<br />         处理事件 ()<br />         延迟 (3000)<br />         执行 (4, 旧版本文件名, , , )<br />         处理事件 ()<br /> <br />         延迟 (20)<br />         结束 ()<br /> <br />         延迟 (20)<br />         销毁 ()<br /> <br />     .否则<br /> <br />         按钮1.标题 ＝ “下载失败,点此重新开始”<br />         按钮1.可视 ＝ 真<br />     .如果结束

主程序.e (2.29 MB, 下载次数: 55)

2024-2-15 14:46 上传

点击文件名下载附件
下载积分: 精币 -2 枚

升级管理器-up.e (694.39 KB, 下载次数: 56)

2024-2-15 14:44 上传

点击文件名下载附件
下载积分: 精币 -2 枚

所需模块.zip (258.89 KB, 下载次数: 50)

2024-2-15 14:44 上传

点击文件名下载附件
下载积分: 精币 -2 枚

nb694011076

66666666666666666666666

nb694011076

6666666666666666666666

nb694011076

666666666666666666

sostemp

新技能已get√技术

寂寞伴着我

为什么不能防一个包呢？

9skybug

这个不错的，很给力这个不错的，很给力

jjkwong

这个不错的，很给力

amycarl

新技能已get√

du8571901

hacker446686365 发表于 2024-4-22 12:34
可以分享，怎么联系

[email protected]