51Testing软件测试论坛

标题: QTP关闭多余的browser窗口 [打印本页]

作者: Robel.Yi 时间: 2008-10-30 11:02
标题: QTP关闭多余的browser窗口
今天有朋友问我这个问题，怎么判断打开了几个浏览器窗口，干脆在这里发个帖子吧，其它朋友也可以看到。
要判断打开了几个浏览器窗口，我们使用description对象就可以了，增加几句代码就可以灵活操作，请看代码：
'#############關閉所有IE窗口##############
Dim WinIe,Ie,k,m
Set WinIe=description.Create()
WinIe("micclass").value="Browser"  '所有页面的regexpwndtitle属性值都是" Microsoft Internet Explorer"，也可以用其他属性
Set Ie=desktop.ChildObjects(WinIe)
m=Ie.count
If  m>1 Then
For k=0 to m-1
Ie(k).close       ' 0为最后打开的一个,可关闭打开的几个,,循环改成for i=1 to m
Next
End If
Set ie = nothing
'#############重新打开所需的IE窗口##############
Systemutil.Run "iexplore.exe","http://tw.yahoo.com/index.html"
browser("Yahoo!奇摩").Sync

如果你要灵活操作，简单的修改下代码就能实现。

[ 本帖最后由 Robel.Yi 于 2008-10-30 11:04 编辑 ]

作者: helius 时间: 2008-10-30 11:32
谢谢分享

作者: helius 时间: 2008-10-30 11:37
提供另一个
SystemUtil.CloseProcessByName "iexplore.exe"

作者: 13554958201 时间: 2008-10-31 10:40
不错，去试试

作者: sogoc 时间: 2008-10-31 10:42
Borwser(1).Close
有1，2，3，4...之分的

作者: ivanland 时间: 2008-11-13 16:31
学习了

作者: lingxin5013 时间: 2008-11-13 16:47
browser 支持 index啊哈哈用这个也可以不过lz我顶你.

作者: 没有蛀牙 时间: 2008-11-13 17:28
谢谢分享

作者: jiangfeng9 时间: 2008-11-17 20:52
顶你搂主

作者: fei.ge 时间: 2008-11-18 11:46
赞美你楼主

作者: kaidong12 时间: 2009-7-25 16:38
标题: 回复 1# 的帖子
不错，谢谢分享

作者: kaidong12 时间: 2009-9-12 18:07
再提供一个方法：（cmd）
Set objws=CreateObject("wscript.shell")
objws.Run "tskill iexplore",0 '关闭IE
set objws=nothing

作者: whoamiyaya 时间: 2009-9-13 12:15
学习了～～

作者: lanqiaolvlang 时间: 2010-12-6 14:30
支持，学习了！不错！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)