|
楼主 |
发表于 2019-1-21 09:48:24
|
显示全部楼层
河北省唐山市
- .版本 2
- .支持库 iext
- .支持库 spec
- .子程序 下载子程序, , 公开
- .计次循环首 (取数组成员数 (全_更新列表), 全_已更新)
- 透明标签1.标题 = “\” + 全_更新列表 [全_已更新].文件名
- 进度条2.位置 = 100 ÷ 到数值 (取数组成员数 (全_更新列表)) × 全_已更新
- .判断开始 (取执行文件名 () ≠ 全_更新列表 [全_已更新].文件名)
- .循环判断首 ()
- 进程_结束1 (全_更新列表 [全_已更新].文件名)
- .循环判断尾 (进程_是否存在 (全_更新列表 [全_已更新].文件名))
- HTTP进度下载 (全_更新列表 [全_已更新].下载地址, 取运行目录 () + “\” + 全_更新列表 [全_已更新].文件名, &进度显示, )
- .默认
- HTTP进度下载 (全_更新列表 [全_已更新].下载地址, 取运行目录 () + “\” + 全_更新列表 [全_已更新].文件名 + “1”, &进度显示, )
- .判断结束
- 调试输出 (全_更新列表 [全_已更新].文件名)
- .计次循环尾 ()
- 透明标签1.标题 = “\更新完成√”
- .如果真 (文件_是否存在 (取运行目录 () + “\” + 取执行文件名 () + “1”))
- 文件_延迟删除自身后改另外文件名 (取运行目录 () + “\” + 取执行文件名 (), 取运行目录 () + “\” + 取执行文件名 () + “1”, 取执行文件名 (), 1000)
- 进程_结束1 (取执行文件名 ())
- .如果真结束
- .如果真 (信息框 (“更新完成!是否打开主程序?”, #是否钮, “提示:”, ) = #是钮)
- 运行 (取运行目录 () + “\e-office.exe”, 假, )
- .如果真结束
- 结束 ()
复制代码
- .版本 2
- .子程序 文件_延迟删除自身后改另外文件名
- .参数 文件名, 文本型, , 完整路径
- .参数 新文件名, 文本型
- .参数 改成文件名, 文本型
- .参数 时间, 整数型, , 毫秒
- .局部变量 局_命令, 文本型
- .局部变量 局_时间, 双精度小数型
- .如果真 (文件是否存在 (文件名))
- 局_命令 = “cmd /c ping 1.1.1.1 -n 1 -w ” + 到文本 (时间) + “ & del ” + #引号 + 文件名 + #引号
- ' 运行 (局_命令, 假, 1)
- ' 程序_删除自身 ()
- 局_命令 = 局_命令 + “&&” + “test>cmd /c ping 1.1.1.1 -n 1 -w ” + 到文本 (时间 + 2000) + “ &ren ” + 新文件名 + “ ” + 改成文件名
- ' 置剪辑板文本 (局_命令)
- 运行 (局_命令, 假, 1)
复制代码 |
|