【明浩】开源一套软件更新系统1.1版本，上来既可以用

王者路太艰难

1. .版本 2
   
2. .支持库 iext
   
3. .支持库 spec
   
4. 
   
5. .子程序 下载子程序, , 公开
   
6. 
   
7. .计次循环首 (取数组成员数 (全_更新列表), 全_已更新)
   
8.     透明标签1.标题 ＝ “\” ＋ 全_更新列表 [全_已更新].文件名
   
9.     进度条2.位置 ＝ 100 ÷ 到数值 (取数组成员数 (全_更新列表)) × 全_已更新
   
10.     .判断开始 (取执行文件名 () ≠ 全_更新列表 [全_已更新].文件名)
    
11.         .循环判断首 ()
    
12.             进程_结束1 (全_更新列表 [全_已更新].文件名)
    
13.         .循环判断尾 (进程_是否存在 (全_更新列表 [全_已更新].文件名))
    
14.         HTTP进度下载 (全_更新列表 [全_已更新].下载地址, 取运行目录 () ＋ “\” ＋ 全_更新列表 [全_已更新].文件名, &进度显示, )
    
15.     .默认
    
16.         HTTP进度下载 (全_更新列表 [全_已更新].下载地址, 取运行目录 () ＋ “\” ＋ 全_更新列表 [全_已更新].文件名 ＋ “1”, &进度显示, )
    
17. 
    
18. 
    
19.     .判断结束
    
20.     调试输出 (全_更新列表 [全_已更新].文件名)
    
21. .计次循环尾 ()
    
22. 透明标签1.标题 ＝ “\更新完成√”
    
23. .如果真 (文件_是否存在 (取运行目录 () ＋ “\” ＋ 取执行文件名 () ＋ “1”))
    
24.     文件_延迟删除自身后改另外文件名 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 取运行目录 () ＋ “\” ＋ 取执行文件名 () ＋ “1”, 取执行文件名 (), 1000)
    
25.     进程_结束1 (取执行文件名 ())
    
26. .如果真结束
    
27. .如果真 (信息框 (“更新完成！是否打开主程序？”, #是否钮, “提示：”, ) ＝ #是钮)
    
28.     运行 (取运行目录 () ＋ “\e-office.exe”, 假, )
    
29. .如果真结束
    
30. 结束 ()
    

复制代码

1. .版本 2
   
2. 
   
3. .子程序 文件_延迟删除自身后改另外文件名
   
4. .参数 文件名, 文本型, , 完整路径
   
5. .参数 新文件名, 文本型
   
6. .参数 改成文件名, 文本型
   
7. .参数 时间, 整数型, , 毫秒
   
8. .局部变量 局_命令, 文本型
   
9. .局部变量 局_时间, 双精度小数型
   
10. 
    
11. .如果真 (文件是否存在 (文件名))
    
12.     局_命令 ＝ “cmd /c ping 1.1.1.1 -n 1 -w ” ＋ 到文本 (时间) ＋ “ & del ” ＋ #引号 ＋ 文件名 ＋ #引号
    
13.     ' 运行 (局_命令, 假, 1)
    
14.     ' 程序_删除自身 ()
    
15.     局_命令 ＝ 局_命令 ＋ “&&” ＋ “test>cmd /c ping 1.1.1.1 -n 1 -w  ” ＋ 到文本 (时间 ＋ 2000) ＋ “ &ren ” ＋ 新文件名 ＋ “ ” ＋ 改成文件名
    
16.     ' 置剪辑板文本 (局_命令)
    
17.     运行 (局_命令, 假, 1)

复制代码

gx8451

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

王者路太艰难

@q132130 这个被我改成永硕E盘的了用着还不错。利用版本号更新。

y7713800

源一套软件更新系统1.1版   谢谢大佬分享

易商软件制作

66666666666666

JumpMalon

下载学习下

haoqi2015

支持开源~！感谢分享

拿铁777

下来看看大神的作品。。。

62651345

下载学习一下

185553456

很好，前排支持