|
3#
楼主 |
发表于 2013-11-28 16:09:05
|
只看该作者
回复 2# joykao
'step 1---------------------------------------------------->
SystemUtil.Run"http://oa.sumavision.com"
Browser("micClass:=Browser").Navigate "www.baidu.com"
Browser("micClass:=Browser").Page("micClass:=Page").Link("name:=登录").Click
Browser("micClass:=Browser").Page("micClass:=page").Sync:Wait 1 'Sync方法保证当前页面的工作完全结束
'Checkpoint Start------------------------------------------>
checkURL = Trim(Browser("micClass:=Browser").Object.LocationURL)
If checkURL = "http://www.baidu.com/" Then
Reporter.ReportEvent micPass,"step1_checkURL","Passed"
Else
Reporter.ReportEvent micFail,"step1_checkURL","Failed"
End If
'End of checkpoint----------------------------------------->
'step 2---------------------------------------------------->
Browser("micClass:=Browser").OpenNewTab:Wait 1 'IE须设置为:当有新页面时以新选项卡打开
Browser("micClass:=Browser").Navigate "www.baidu.com"
句柄操作不明白 可以细讲一下么 谢谢你了 就是最后一句没法执行 |
|