打开个记事本,运行后没有反映
On Error Resume Next
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\\.\\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
Close_Process("notepad.exe")