请知悉:本文最近一次更新为 12年 前,文中内容可能已经过时。

起始代码

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)

如您从本文得到了有价值的信息或帮助,请考虑扫描文末二维码捐赠和鼓励。

尊重他人劳动成果。转载请务必附上原文链接,我将感激不尽。


与《VBS-关闭进程,删除文件,重命名,执行程序,延时,删除自身》相关的博文:


留言

avatar
😀
😀😁😂😅😭🤭😋😘🤔😰😱🤪💪👍👎🤝🌹👌