QTP的那些事--判断进程是否存在

最新推荐文章于 2023-03-14 17:34:21 发布

转载最新推荐文章于 2023-03-14 17:34:21 发布 · 249 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/alterhu/archive/2012/02/15/2352435.html

文章标签：

#shell

代码如下，以判断ie进程是否存在为例：

on error resume next
set y=getobject("winmgmts:\\.\root\cimv2")
set ws=createobject("wscript.shell")
set x=y.execquery("select * from win32_process where name='iexplore.exe'")
for each i in x
     msgbox "IE进程存在"
     wscript.quit
next
msgbox "IE进程不存在"

代码如下，以QQ进程是否存在为例：

on error resume next
set y=getobject("winmgmts:\\.\root\cimv2")
set ws=createobject("wscript.shell")
set x=y.execquery("select * from win32_process where name='qq.exe'") 
for each i in x
msgbox "发现qq进程"
ws.run "123.bat"
wscript.quit
next
msgbox "没有qq进程"
ws.run "456.bat"

也可以采用如下额的方式：采用tasklist命令的方式'tasklist^|findstr /i "%DstPro%"'

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
Do
 objws.Run "c:\a.vbs",,True
 WScript.Sleep 3000
 objws.Run "tskill iexplore"
 objws.Run "c:\b.vbs",,True
 WScript.Sleep 3000
 objws.Run "tskill iexplore"
 objws.Run "c:\c.vbs",,True
 WScript.Sleep 3000
 objws.Run "tskill iexplore"
 objws.Run "c:\d.vbs",,True
 WScript.Sleep 3000
 objws.Run "tskill iexplore"
Loop