51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1880|回复: 4
打印 上一主题 下一主题

[原创] 如何判断IE是否打开

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-6-30 17:58:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教个问题:在QTP里如何判断IE是否打开,如果未打开的话就打开,否则关闭后再打开。
这个代码要怎么写啊?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2008-6-30 18:04:51 | 只看该作者
没必要判断,每次运行测试前都SystemUtil.CloseProcessByName "iexplorer.exe"就OK了
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2008-6-30 22:41:02 | 只看该作者
用这个试试:
If Browser("micclass:=Browser").Exist (0) Then
'...
End If



推荐新书《QTP自动化测试实践》,该书配套源代码可下载:
http://blog.csdn.net/Testing_is_ ... /06/28/2594010.aspx
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2015-6-29 10:24
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    4#
    发表于 2008-6-30 22:53:44 | 只看该作者
    试过这个SystemUtil.CloseProcessByName "iexplorer.exe"有时候ie就是没关掉,而且有多个页面的话这样也不行吧。

    Dim IEBrowser
    Dim BrowserObject
    Dim BrowserCount
    Set IEBrowser = Description.Create()
    IEBrowser("micclass").Value = "Browser"

    Set BrowserObjects =  Desktop.ChildObjects(IEBrowser)
    BrowserCount = BrowserObjects.Count
    For i = 0 to BrowserCount -1
            BrowserObjects(i).Close
    Next
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2008-7-1 10:27:16 | 只看该作者

    谢谢大家

    非常感谢大家的支持啊。
    我用的是这种方法
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where name='iexplore.exe'")
    If (colProcessList.count<>0) Then
            For Each objItem in  colProcessList
                    objItem.terminate()
            Next  
    End If
    SystemUtil.Run "iexplore.exe",""
    wait 3

    但有个问题,单步调试有时会出现个“一般通讯故障的错误对话框”,而运行(非单步调试)刚没有任何问题,好奇怪哦。

    [ 本帖最后由 andyzlp232 于 2008-7-1 17:28 编辑 ]
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-24 08:37 , Processed in 0.070692 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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