未来已来

如何获得一个ie已经存在的实例

上一篇 / 下一篇  2009-08-02 17:12:23 / 个人分类:自动化测试

 

   最近一个朋友在做自动化测试过程中想实现一个时时监控的功能,如只要前台有人打开网页,后台qtp就开始对页面上进行校验,这个功能很新颖第一次听同行有这样的思路。该工具的实现难点在于后台什么时候触发qtp执行自动化测试,这一点通过hook的技术可以实现,进入系统消息链,监控特定消息,然后触发qtp。hook的开发还需要一段时间,他暂时先不是同步进行校验,测试人员打开ie之后先手工出发校验。这里涉及到如何获得已经存在的ie的实例,也就是测试人员打开ie后,打开网页执行测试,同时点击执行qtp脚本,qtp开始在测试人员打开的那个页面上进行校验。这里主要用internet controls,ie application对象实现。

Dim objSW 'As SHDocVw.ShellWindows
Dim objIE 'As SHDocVw.InternetExplorer
Dim objDoc 'As Object

Set objSW = New SHDocVw.ShellWindows
    For Each objIE In objSW
       If InStr(1, UCase(objIE.FullName), "IEXPLORE.EXE") <> 0 Then
          If objIE.LocationURL = "目标链接地址" Then
            Set objIE = objSW.Item
            Exit For
          End If
       End If
    Next 'objIE
'下面一行为控制代码,替换需要的操作代码
 objIE.Navigate "www.sohu.com"

Set objSW = Nothing
Set objIE = Nothing

以上代码在vb中调试通过


TAG:

测试啊测试。。。。。。 引用 删除 小狐狸如如   /   2010-07-10 16:09:17
最近也一直在想着这个事情,终于看到了,非常感谢
  只是我把这段代码复制到VBS运行时,提示:not defined: 'SHDocVw',请问下需要如何解决呢?
 

评分:0

我来说两句

Open Toolbar