下面程式碼複製到記事本,儲存為字尾名為VBS的指令碼檔案,然後執行。
當notepad.exe(記事本)執行時,calc.exe(計算器)就執行。(你改為你自己的程式A和程式B就行了。但是現在還有bug,如果notepad在執行,calc就算被關了也還是會執行,稍後再幫你修改一下)
checkProcess="notepad.exe""監控的程式
startProcess="calc.exe""要執行的程式
startProcessPath="%SystemRoot%\system32\calc.exe""要執行的程式的路徑
setos=Wscript.CreateObject("Wscript.shell")
do
processOne=false
processTwo=false
SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
foreachprocessinobjWMIService
ifprocess.name=checkProcessthenprocessOne=True
ifprocess.name=startProcessthenprocessTwo=True
next
ifprocessOne=TrueandprocessTwo=falsethen
os.runstartProcessPath
endif
wscript.sleep500
loop
下面程式碼複製到記事本,儲存為字尾名為VBS的指令碼檔案,然後執行。
當notepad.exe(記事本)執行時,calc.exe(計算器)就執行。(你改為你自己的程式A和程式B就行了。但是現在還有bug,如果notepad在執行,calc就算被關了也還是會執行,稍後再幫你修改一下)
checkProcess="notepad.exe""監控的程式
startProcess="calc.exe""要執行的程式
startProcessPath="%SystemRoot%\system32\calc.exe""要執行的程式的路徑
setos=Wscript.CreateObject("Wscript.shell")
do
processOne=false
processTwo=false
SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
foreachprocessinobjWMIService
ifprocess.name=checkProcessthenprocessOne=True
ifprocess.name=startProcessthenprocessTwo=True
next
ifprocessOne=TrueandprocessTwo=falsethen
os.runstartProcessPath
endif
wscript.sleep500
loop