51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 5539|回复: 13
打印 上一主题 下一主题

[原创] QTP关闭多余的browser窗口

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-10-30 11:02:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
今天有朋友问我这个问题,怎么判断打开了几个浏览器窗口,干脆在这里发个帖子吧,其它朋友也可以看到。
   要判断打开了几个浏览器窗口,我们使用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 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-10-30 11:32:00 | 只看该作者
谢谢 分享
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-10-30 11:37:05 | 只看该作者
提供另一个
SystemUtil.CloseProcessByName "iexplore.exe"
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2008-10-31 10:40:16 | 只看该作者
不错,去试试
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2008-10-31 10:42:35 | 只看该作者
Borwser(1).Close
有1,2,3,4...之分的
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2008-11-13 16:31:02 | 只看该作者
学习了
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2008-11-13 16:47:14 | 只看该作者
browser 支持 index啊 哈哈 用这个也可以 不过lz我顶你.
回复 支持 反对

使用道具 举报

该用户从未签到

8#
发表于 2008-11-13 17:28:32 | 只看该作者
谢谢分享
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2008-11-17 20:52:54 | 只看该作者
顶你   搂主
回复 支持 反对

使用道具 举报

  • TA的每日心情
    难过
    2015-9-21 13:50
  • 签到天数: 4 天

    连续签到: 1 天

    [LV.2]测试排长

    10#
    发表于 2008-11-18 11:46:16 | 只看该作者
    赞美你楼主
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    11#
    发表于 2009-7-25 16:38:51 | 只看该作者

    回复 1# 的帖子

    不错,谢谢分享
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
    发表于 2009-9-12 18:07:48 | 只看该作者
    再提供一个方法:(cmd)
    Set objws=CreateObject("wscript.shell")
       objws.Run "tskill iexplore",0        '关闭IE
    set objws=nothing
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    13#
    发表于 2009-9-13 12:15:03 | 只看该作者
    学习了~~
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    昨天 17:31
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    14#
    发表于 2010-12-6 14:30:37 | 只看该作者
    支持,学习了!不错!
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-8 03:51 , Processed in 0.087285 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表