dim a
a=Browser("Untitled Page").Page("Untitled Page").WebButton("房态查询").Check CheckPoint("房态查询")
Reporter.Filter=0
If (a=false) Then
Reporter.ReportEvent micPass,"错误报告","房态查询"
else
Browser("Untitled Page").Page("Untitled Page").WebButton("房态查询").Click
End If