|
回复 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 |
|