未来已来
如何获得一个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: