程序更新自身失败

真人秀，代开Q钻

请问大佬们，程序检测更新自身，我这样写 我自己电脑win10系统  可以正常更新替换自身， 别的系统不行 ，比如win7系统 更新下载替换自身就失败 有什么办法可以解决？

兰色的夜晚

更新自身的话   用CMD 做一下延时中转   下载到临时目录    然后执行CMD  延时1秒   立即结束自身    通过CMD    将临时文件  移过来覆盖自身.

真人秀，代开Q钻

兰色的夜晚 发表于 2025-2-13 11:51
更新自身的话   用CMD 做一下延时中转   下载到临时目录    然后执行CMD  延时1秒   立即结束自身    通过C ...

怎么写代码

鹏书

你直接在好之后直接运他 然后用 程序_删除自身 () 这个方法把自己给删了就好了 就是新下载得后面带一个版本号让名字不一样就好了

算法艺术家

可以用这个代码

  

子程序名	返回值类型	公开	备 注
程序热更新	逻辑型		需提前把更新文件写到 取运行目录 () ＋ “\更新.exe” 可在写入新文件后运行或程序每次启动时运行

变量名	类 型	静态	数组	备 注
自己名	文本型
更新名	文本型
临时名	文本型
目录名	文本型

目录名 ＝ 取运行目录 () ＋ “\”
临时名 ＝ 目录名 ＋ “tmp”
如果真 (文件是否存在 (临时名) ＝ 真)  ' 擦屁股
删除文件 (临时名)
自己名 ＝ 目录名 ＋ 取执行文件名 ()
更新名 ＝ 目录名 ＋ “更新.exe”
如果真 (文件是否存在 (更新名) ＝ 真)
置文件属性 (自己名, 0)
文件更名 (自己名, 临时名)
延时 (5)
处理事件 ()
文件更名 (更新名, 自己名)
程序_重启 ()
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 程序热更新, 逻辑型, 公开, 需提前把更新文件写到 取运行目录 () ＋ “\更新.exe” 可在写入新文件后运行或程序每次启动时运行   <br /> .局部变量 自己名, 文本型<br /> .局部变量 更新名, 文本型<br /> .局部变量 临时名, 文本型<br /> .局部变量 目录名, 文本型<br /> <br /> <br /> 目录名 ＝ 取运行目录 () ＋ “\”<br /> 临时名 ＝ 目录名 ＋ “tmp”<br /> .如果真 (文件是否存在 (临时名) ＝ 真)  ' 擦屁股<br />     删除文件 (临时名)<br /> .如果真结束<br /> 自己名 ＝ 目录名 ＋ 取执行文件名 ()<br /> 更新名 ＝ 目录名 ＋ “更新.exe”<br /> .如果真 (文件是否存在 (更新名) ＝ 真)<br />     置文件属性 (自己名, 0)<br />     文件更名 (自己名, 临时名)<br />     延时 (5)<br />     处理事件 ()<br />     文件更名 (更新名, 自己名)<br />     程序_重启 ()<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)

linqing4

if not "%1"=="wkdxz" mshta vbscript:createobject("wscript.shell").run("""%~f0"" wkdxz",vbhide)(window.close)&&exit
ping 127.0.0.1 -n 5 >nul
taskkill /f /t /im 程序名称.exe
ping 127.0.0.1 -n 2 >nul
ren D:\桌面\新建文件夹\程序名称.exe 程序名称_old.exe
ren D:\桌面\新建文件夹\程序名称_new.exe 程序名称.exe
D:\桌面\新建文件夹\程序名称.exe
attrib -h -s -r -a %0
del %0

补充内容 (2025-2-13 14:02):
CMD批处理运行即可，替换路径和程序名称.exe

补充内容 (2025-2-13 14:03):
自动将旧的程序重命名为程序名称_old.exe

算法艺术家

这个也可以删除自己

  

子程序名	返回值类型	公开	备 注
文件延迟删除	逻辑型		如果文件不存在返回假
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型				完整路径
时间	整数型				单位：秒

变量名	类 型	静态	数组	备 注
命令	文本型

如果真 (文件是否存在 (文件路径))
命令 ＝ “cmd /c ping 127.0.0.1 -n ” ＋ 到文本 (时间) ＋ “ >nul & del ” ＋ #引号 ＋ 文件路径 ＋ #引号
运行 (命令, 假, 1)
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 文件延迟删除, 逻辑型, 公开, 如果文件不存在返回假<br /> .参数 文件路径, 文本型, , 完整路径<br /> .参数 时间, 整数型, , 单位：秒<br /> .局部变量 命令, 文本型<br /> <br /> .如果真 (文件是否存在 (文件路径))<br />     命令 ＝ “cmd /c ping 127.0.0.1 -n ” ＋ 到文本 (时间) ＋ “ >nul & del ” ＋ #引号 ＋ 文件路径 ＋ #引号<br />     运行 (命令, 假, 1)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)

兰色的夜晚

On Error Resume Next
WScript.sleep 800
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.deleteFile "老文件路径"
fso.CopyFile "update临时文件","新文件路径",True
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run """新文件路径"""
fso.deleteFile "VBS路径"
fso.deleteFile "update临时文件"



上面就是完整的  bat 文件   你可以保存到常量   子文本替换()    需要的完整路径
#更新VBS内容 -----------------------------------------------

.版本 2

    ' //////////////////////////获取文件信息////////////////////////////////////////////////////////////////////////
    局部_临时文件vbs ＝ 取运行目录 () ＋ “\” ＋ “update_” ＋ 到文本 (新系统_取启动时间2 ()) ＋ “.vbs”

    VBS ＝ #更新VBS内容
    .如果真 (全局_文件更新完是否执行 ＝ 假)  ' 是否 执行新文件
        VBS ＝ 子文本替换 (VBS, #文件更新完是否执行_行, “”, , , 假)
    .如果真结束
    .如果真 (全局_下载更新删除旧文件 ＝ 假)  ' 是否 删除旧文件
        VBS ＝ 子文本替换 (VBS, #下载更新删除旧文件_行, “”, , , 假)
    .如果真结束
    VBS ＝ 子文本替换 (VBS, “老文件路径”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), , , 假)
    VBS ＝ 子文本替换 (VBS, “新文件路径”, 取运行目录 () ＋ “\” ＋ 局部_文件.文件名, , , 假)
    VBS ＝ 子文本替换 (VBS, “update临时文件”, 局部_临时文件tmp, , , 假)
    VBS ＝ 子文本替换 (VBS, “VBS路径”, 局部_临时文件vbs, , , 假)

    处理事件 ()
    写到文件 (局部_临时文件vbs, 到字节集 (VBS))
    处理事件 ()

    .如果真 (全局_是否结束主窗口 ＝ 假)  ' 是否 结束当前进程!
        处理事件 ()
        运行 (“wscript.exe ” ＋ #引号 ＋ 局部_临时文件vbs ＋ #引号, 假, )
        处理事件 ()
        销毁 ()
        返回 ()
    .如果真结束