
CODE: [Copy to clipboard]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")
CODE: [Copy to clipboard]On Error Resume Next
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:win32_process").instances_
if Ucase(ps.name)=Ucase(ProcessName) then
ps.terminate
end if
next
end sub
Close_Process("notepad.exe")
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |