51Testing软件测试论坛

标题: QTP怎么才能操作同一浏览器下的两个选项卡中的一个，使用句柄操作不了 [打印本页]

作者: cgysylove 时间: 2014-3-7 10:33
标题: QTP怎么才能操作同一浏览器下的两个选项卡中的一个，使用句柄操作不了
systemUtil.Run "www.51testing.com"
wait 10
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://bbs.51testing.com/" Then
Reporter.ReportEvent micPass,"STEP1","Passes"
else
Reporter.ReportEvent micFail,"STEP1","Failed"
End If
Browser("micClass:=Browser").OpenNewTab:wait 2
testHWND = Browser("name:=新建选项卡").GetRoProperty("hwnd")
msgbox testHWND
Browser("name:=新建选项卡").Navigate "bbs.51testing.com"

Browser("51Testing软件测试论坛软件测试 |").Page("51Testing软件测试论坛软件测试 |").Link("登录").Click
With Browser("51Testing软件测试论坛软件测试 |").Page("51Testing软件测试论坛软件测试 |_2")
.WebEdit("用户名").Set "cgysylove"
.WebEdit("密码").SetSecure "531875e24232f2938e43b3ac02e7f9de367c92a49218"
.WebButton("登录").Click
End With
oExist = Browser("51Testing软件测试论坛软件测试 |_2").Page("51Testing软件测试论坛软件测试 |").Link("退出").Exist (3)
If oExist Then
Reporter.ReportEvent micPass,"STEP3","Passed"
else
Reporter.ReportEvent micPass,"STEP3","Failed"
End If
msgbox testHWND
msgbox "hwnd:="&testHWND
Browser("hwnd:="&testHWND).close
Browser("micClass:=Browser").Refresh:wait 3
oExist = Browser("51Testing软件测试论坛软件测试 |_2").Page("51Testing软件测试论坛软件测试 |").Link("退出").Exist (3)
If oExist Then
Reporter.ReportEvent micPass,"STEP4","Passed"
else
Reporter.ReportEvent micPass,"STEP4","Failed"
End If
*****************
在执行关闭第二个选项卡时，提示对象不可见，从运行上看，第二个选项卡不是活动项，但是第二个选项卡却能够执行输入账号密码登陆的操作
求助：怎么使用句柄关掉第二个选项卡，或者怎么让第二个选项卡设置为激活状态

作者: cgysylove 时间: 2014-3-7 10:44
自己顶，希望能解决

作者: joykao 时间: 2014-3-7 12:36
应该是可以用的。。你用的是IE9?qtp版本是多少呢？

作者: cgysylove 时间: 2014-3-9 16:34
回复 3# joykao
qtp11

作者: 让测试飞起来 时间: 2014-3-12 17:38
回复 1# cgysylove

可以试下我的脚本

SystemUtil.Run "http://www.51testing.com"

Browser("micClass:=Browser").Navigate "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.jd.com"

Browser("creationtime:=1").Page("micClass:=Page").Sync:wait 2

Browser("hwnd:="&testHWND).close

作者: 让测试飞起来 时间: 2014-3-12 17:39
试下这个脚本用调试试下
SystemUtil.Run "http://www.51testing.com"

Browser("micClass:=Browser").Navigate "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.jd.com"

Browser("creationtime:=1").Page("micClass:=Page").Sync:wait 2

Browser("hwnd:="&testHWND).close

作者: 黑羽祭 时间: 2014-3-18 08:58
回复 1# cgysylove

不建议在选项卡之间进行操作。
我都是关掉选项卡回放的，这样脚本运行时不该有的现象会少些

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)