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
QTP杀进程方法
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
