QTP之关闭进程函数

上一篇 / 下一篇  2013-07-12 15:13:04 / 个人分类:QTP自动化测试

 '============================================================================
'   函数名称:CloseProcess
'  操作系统: win7   
'   脚本作者:  xxx     
'   编写日期: 2013-7-10
'  测试功能:关闭指定的进程
'============================================================================
 
Sub CloseProcess(sProcessName)
   For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_process") '利用wmi遍历所有进程
      If  Process.Name = sProcessName Then '判断进程名称
        Process.terminate '关闭指定进程
      End If
       Next
End Sub

 

TAG:

 

评分:0

我来说两句

Open Toolbar