QTP判断某个对象是否存在
上一篇 /
下一篇 2012-03-27 19:45:39
/ 个人分类:QTP
代码如下,以判断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 bjws=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
收藏
举报
TAG: