请知悉：本文最近一次更新为 11年 前，文中内容可能已经过时。
起始代码
On Error Resume Next关闭进程
Sub Close_Process(ProcessName)
Dim objShell
Set objShell = wscript.CreateObject("wscript.Shell")
objShell.Run "ntsd -c q -pn " & ProcessName, 0, True
End Sub
Close_Process "raserver.exe"删除文件(删除自身-修改程序名问自身即可)
Dim fso
set fso=createobject("Scripting.FileSystemObject")
fso.deleteFile "程序名.exe"重命名
Dim fso
set fso=createobject("Scripting.FileSystemObject")
fso.movefile "程序名.up","程序名.exe"执行程序
set no1=createobject("Wscript.Shell")
no1.run ("程序名.exe")延时(毫秒)
wscript.sleep(1000)如您从本文得到了有价值的信息或帮助，请考虑扫描文末二维码捐赠和鼓励。
如本文对您有用，捐赠和留言 将是对我最好的支持~（捐赠可转为站内积分）
如愿意，请向朋友推荐本站，谢谢。
尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。
留言