51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2106|回复: 6
打印 上一主题 下一主题

[求助] QTP怎么才能操作同一浏览器下的两个选项卡中的一个,使用句柄操作不了

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2014-3-7 10:33:41 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
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
*****************
在执行关闭第二个选项卡时,提示对象不可见,从运行上看,第二个选项卡不是活动项,但是第二个选项卡却能够执行输入账号密码登陆的操作
求助:怎么使用句柄关掉第二个选项卡,或者怎么让第二个选项卡设置为激活状态
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    7#
    发表于 2014-3-18 08:58:45 | 只看该作者
    回复 1# cgysylove


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

    使用道具 举报

  • TA的每日心情

    2024-10-20 14:47
  • 签到天数: 564 天

    连续签到: 1 天

    [LV.9]测试副司令

    6#
    发表于 2014-3-12 17:39:23 | 只看该作者
    试下这个脚本 用调试试下
    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
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2024-10-20 14:47
  • 签到天数: 564 天

    连续签到: 1 天

    [LV.9]测试副司令

    5#
    发表于 2014-3-12 17:38:41 | 只看该作者
    回复 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
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
     楼主| 发表于 2014-3-9 16:34:30 | 只看该作者
    回复 3# joykao
    qtp11
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2020-12-8 11:20
  • 签到天数: 605 天

    连续签到: 1 天

    [LV.9]测试副司令

    3#
    发表于 2014-3-7 12:36:14 | 只看该作者
    应该是可以用的。。你用的是IE9?qtp版本是多少呢?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    2#
     楼主| 发表于 2014-3-7 10:44:34 | 只看该作者
    自己顶,希望能解决
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-27 17:45 , Processed in 0.077299 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表