|
SystemUtil.Run"www.51testing.com"
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,"Step 1","Passed"
Else
Reporter.ReportEvent micFail,"Step 1","Failed"
End If
该程序在QTP中运行时,总是在checkURL=Trim(Browser("micClass:=Browser").Object..LocationURL)报错,提示是缺少标示符,请各位大神指点
|
|