defanive

将下列文件保存为VBSExc.bat，将想运行的vbs拖入其中

'&Echo Off&Cls 2>Nul 3>Nul
'&If "%~1"=="" Exit
'&CScript "%~f0" "%~1" //E:VBS //Nologo
'&Set /p PID=<x.tmp
'&Del /f x.tmp
'&Echo 任意键结束VBS运行&Pause>Nul
'&Taskkill /f /PID %PID% >Nul
'&Exit
PID=CreateObject("WScript.Shell").Exec("WScript " & WScript.Arguments(0)).ProcessID
CreateObject("Scripting.FileSystemObject").CreateTextFile("x.tmp").WriteLine(PID)
复制代码