使用Reporter.ReportEvent向测试报告里增加结果

以下是做了个简单的登录

With Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("51Testing软件测试网-中国软件测试人的精神家园")
    .WebEdit("username").Set ""
    .WebEdit("password").Set ""
    .WebButton("WebButton").Click
    Wait 5    
End With
getURL=Browser("micClass:=Browser").Object.LocationURL
If getURL="http://www.51testing.com/batch.login.php?action=login" Then
    Reporter.ReportEvent micPass,"step1","已经登录成功"
Else
    With Browser("51Testing软件测试网-中国软件测试人的精神家园").Page("登录站点-中国软件测试人的精神家园")
    .WebEdit("username").Set ""
    .WebEdit("password").Set ""
    .WebButton("登录").Click
    End With
End If