QTP Web 操作

上一篇 / 下一篇  2014-04-16 10:44:35 / 个人分类:QTP 相关

QTP如何打开浏览器,并进入网站,关闭浏览器

'打开IE,进入系统------方法1:快
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.baidu.com"

'打开IE,进入系统------方法2:慢
SystemUtil.Run"http://www.51testing.com"

'打开IE,进入系统1后,再跳转到系统2
 SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.51testing.com"
Browser("micClass:=Browser").Page("micClass:=Page").Sync : wait 2
Browser("micClass:=Browser").Navigate "http://www.hao123.com"
checkURL = Trim(Browser("micClass:=Browser").Object.LocationURL)
print checkURL


'打开多个浏览器,进入不同页面
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE"
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE"

Browser("CreationTime:=0").Navigate "http://www.51testing.com"
Browser("CreationTime:=1").Navigate "http://www.hao123.com"

'关闭浏览器

Browser("micClass:=Browser").Close


部分Browser方法,如Navigate、Back、Home、Refresh等在某些人的机器上是好用的,但在另外一些人的机器上就不好用了。脚本执行到这些方法,并不会抛出错误;而且qtp日志里看到的状态是"done".

    经过一段时间的观察,终于发现这些机器上IE加载项(IE"工具"->"管理加载项")的不同:

    BHOManager Class插件的问题。文件名是BHOManager.dll,部分人的机器上该插件被禁用或删除掉了,猜测原因可能是使用了某些清理ie的工具导致。

    解决该问题的方法很简单:

    如果是被禁用了,只要重新启用即可;如果是被删除掉了,可以重新安装qtp,或者从别处拷贝BHOManager.dll文件过来,用regsvr32 BHOManager.dll注册后就可以了。


 SystemUtil.Run "http://www.51testing.com"  
Browser("micClass:=Browser").Navigate "http://www.baidu.com"    
Browser("micClass:=Browser").Page("micClass:=Page").Sync:wait 1

'打开新的标签
Browser("micClass:=Browser").OpenNewTab:wait 1
Dim testHWND 
testHWND = Browser("creationtime:=1").GetROProperty("HWND")
Browser("creationtime:=1").Navigate "http://www.qq.com"
Browser("creationtime:=1").Page("micClass:=Page").Sync:wait 2

'关闭新的标签
Browser("hwnd:="&testHWND).close
Browser("creationtime:=0").Refresh:wait 3


TAG:

 

评分:0

我来说两句

Open Toolbar