QTP等待页面同步 验证跳转是否成功

打开IE，进入51testing
SystemUtil.Run"C:\Program Files\Internet Explorer\IEXPLORE.EXE",http://www.51testing.com

'等待页面同步
Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 1

'再跳转到bbs
Browser("micClass:=Browser").Navigate "http://bbs.51testing.com"
Browser("micClass:=Browser").Page("micClass:=Page").Sync:Wait 1

'提取IE中的URL
actURL=Trim(Browser("micClass:=Browser").Object.LocationURL)
expURL="http://bbs.51testing.com/"

'验证是否跳转成功，即：URL是不是bbs的
If actURL=expURL Then
 reporter.ReportEvent micPass,"页面跳转成功！！！","预期URL为："&expURL&"        实际URL为："&actURL
Else
 reporter.ReportEvent micFail,"页面跳转失败！！！","预期URL为："&expURL&"        实际URL为："&actURL
End If

'关闭浏览器

Browser("micClass:=Browser").Close