QTP关闭所有浏览器

wyrf584

各位大大，有一个小问题请问下哈~~
我想关闭所有已打开的浏览器，使用以下方法：
1.SystemUtil.CloseProcessByName("iexplore.exe")
2.用循环判断Browser("index:=0").Exist(0)
第一种方法会判断很久，第二种方法当判断到最后一个的时候总是要好几秒
请问有没有更快的办法呀

skyzhu

Set ie = Description.Create()
ie("version").value  = "internet explorer 6"
For i = 0 to desktop.ChildObjects(ie).count - 1
        desktop.ChildObjects(ie).item(0).close
Next

zzxxbb112

也可以使用WMI

feiyunkai

set WMI=getobject("winmgmts:")
set iexplore=WMI.execquery("select * from win32_process where name='iexplore.EXE'") '查找iexplore.EXE进程
for each pro in iexplore                                                                  
pro.terminate                                                                           '结束所有iexplore.EXE进程
next

lvguobin

Kill就行了。

yahuu

执行bat语句 taskkill /IM iexplore.exe /F /T
一步搞定