2012年给力新作《精通QTP——自动化测试技术领航》试读以及答疑专用贴

00weiweicao00

现在一直在看这本书，更适合web测试，我觉得非常不错，我也是51的学员，书写的不浅，有些深度的，我觉得很值得一看，也很实用，现在再看第二章，跟着例子一点一点写，现在已经完全不用录制了，所以我觉得这本书的引导性很好。有一个例子是新建选项卡，将新建的选项卡操作，但是我这里总是跑到第一个选项卡上去，试了hwnd定位，也不管用。有什么方法呢。因为有些地方我没用描述性编程，是对象库编程。

00weiweicao00

回复 92# yujie6832
很感谢您能回答我的问题，在书的202页。我写的代码是
SystemUtil.Run "www.51testing.com"
Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试网-中国软件测试人的精神家园").Sync   '这句我自己加的，书上没有
'Browser("micClass:=Browser").Navigate "bbs.51testing.com"     这是书上写的
'Browser("micClass:=Browser").Page("micClass:=Page").Sync :wait 1    这是书上写的
Browser("51Testing软件测试网-中国软件测试人的精神家园").Navigate "bbs.51testing.com"
Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛 软件测试 |").Sync :wait 1
Browser("51Testing软件测试论坛 软件测试 |").OpenNewTab :wait 3
'------------------------------------------------------------------------------------------------------------
testHWHD2 = Browser("Browser").GetROProperty("hwnd")     '我觉得这里获取的应该是第二个选项卡的句柄
Browser("Browser").Navigate "bbs.51testing.com"                     '将第二个选项卡跳转到论坛
testHWHD1 = Browser("51Testing软件测试论坛 软件测试 |").GetROProperty("hwnd")      '这里我其实是想获取第一个选项卡的句柄
'------------------------------------------------------------------------------------------------------------
Browser("51Testing软件测试论坛 软件测试 |").Page("51Testing软件测试论坛 软件测试 |").Link("登录").Click  '这里打开的是第一个选项卡，可是我加的是第二个选项卡的对象，可以高光识别到两个选项卡都有
'Browser("micClass:=Browser").Page("micClass:=Page").Link("text:=登录").Click
Browser("51Testing软件测试论坛 软件测试 |").Page("登陆界面").WebEdit("username").Set "00weiweicao00"  '在第一个选项卡登录了
Browser("51Testing软件测试论坛 软件测试 |").Page("登陆界面").WebEdit("password").SetSecure "4f3a12d9cdaae1bae9b278aec2b3b8af188c8b59688e"
Browser("51Testing软件测试论坛 软件测试 |").Page("登陆界面").WebButton("登录").Click
oExist=Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试论坛 软件测试 |").Link("退出").Exist (2)
If oExist  Then
        reporter.ReportEvent micPass ,"step2","通过"
        else
        reporter.ReportEvent micFail ,"step2","失败"
End If
'------------------------------------------------------------------------------------------------------------
Browser("hwnd:="&testHWHD2).close      '我想关闭第二个选项卡，可是运行到这里卡住了，但是如果我写成hwnd:="&testHWHD1，能关闭第一个选项卡
Browser("hwnd:="&testHWHD1).Refresh:wait 1
oExist=Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试论坛 软件测试 |").Link("退出").Exist (2)
If oExist  Then
        reporter.ReportEvent micPass ,"step3","通过"
        else
        reporter.ReportEvent micFail ,"step3","失败"
End If