BAT或VBS结束EXE问题
来源:百度知道 编辑:UC知道 时间:2024/09/22 21:30:50
三楼的第二方案很有用。能减少占用内存的方法吗?如4楼说的VBS。
'vbs
Main "a.exe", "b.exe"
'--------------------------------------------------------------
Sub Main(sProcessNameToMonitor, sProcessNameToTerminate)
sProcessNameToMonitor_l = LCase(sProcessNameToMonitor)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancedeletionevent " _
& "within 1 where TargetInstance isa 'Win32_Process'")
Do
Set objLatestProcess = colMonitoredProcesses.NextEvent
If LCase(objLatestProcess.TargetInstance.Name) = sProcessNameToMonitor_l Then
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & sP