Question

VBS进程监控

每10秒钟检测一次进程 发现1.exe就运行2.exe

Answer 1

set ws = createobject("wscript.shell")
exe1="notepad.exe"
exe2 = "calc.exe"

check = false
while(true <> check )
check = isProcessExists(exe1)
wscript.sleep 10000
wend
ws.run exe2

Private Function isProcessExists(strExeName)
strComputer = "."
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
namedata = wbemObject.Name
If strExeName = namedata Then
isProcessExists = true
End If
Next
End Function

'写完了，你把exe1里面放1.exe的路径，exe2里面放2.exe的路径