|
SystemUtil.Run"www.51testing.com"
Browser("micClass:=Browser").Navigate"bbs.51testing.com"
Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 1
checkURL=Trim(Browser("micClass:=Browser").Object.LocationURL)
If checkURL="http://www.51testing.com/" Then
Reporter.ReportEvent micPass,"Step 1","Passed"
Else
Reporter.ReportEvent micFail,"Step 1","Failed"
End If
Browser("micClass:=Browser").opennewtab:Wait 1
testHWND=Browser("name:=欢迎使用选项卡浏览").GetROProperty("hwnd")
Browser("name:=欢迎使用选项卡浏览").Navigate"bbs.51testing.com"
我想在网页上打开新的选项卡,但是运行程序之后提示:
对象不支持此属性或方法: 'Browser(...).opennewtab'
这句话是什么意思?如果我想打开新的选项卡,代码应该怎么写?
另外,我运行之后打开的浏览器,经常会出现http://newtours.mercury.com/cgi-sys/defaultwebpage.cgi 这个画面。但偶尔会成功打开bbs.51testing.com
请各位大神帮忙,谢谢
|
|