QTP如何打开浏览器,并进入网站,关闭浏览器
'打开IE,进入系统------方法1:快
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.baidu"
'打开IE,进入系统------方法2:慢
SystemUtil.Run"http://www.51testing"
'打开IE,进入系统1后,再跳转到系统2
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://www.51testing"
Browser("micClass:=Browser").Page("micClass:=Page").Sync : wait 2
Browser("micClass:=Browser").Navigate "http://www.hao123"
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"
Browser("CreationTime:=1").Navigate "http://www.hao123"
'关闭浏览器
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"
Browser("micClass:=Browser").Navigate "http://www.baidu"
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"
Browser("creationtime:=1").Page("micClass:=Page").Sync:wait 2
'关闭新的标签
Browser("hwnd:="&testHWND).close
Browser("creationtime:=0").Refresh:wait 3
更多推荐
QTP如何打开浏览器,并进入网站,关闭浏览器
发布评论