自定义QTP的report函数

Function LogEvent(ByVal strType, ByVal strProcedure, ByVal strMessage)
   Select Case strType
  Case "FAIL"  Reporter.ReportEvent micFail, strProcedure, strMessage
  Case "WARNING"  Reporter.ReportEvent micWarning, strProcedure, strMessage
  Case "PASS"  Reporter.ReportEvent micPass, strProcedure, strMessage
  Case "INFORMATION" Reporter.ReportEvent micDone, strProcedure, strMessage
  Case Else  Reporter.ReportEvent micWarning, "LogEvent", "Invalid Parameter strType: " & strType
   End Select
End function

使用：

Logevent "PASS","Uninstall Result","Uninstall SQL Server 2005 successfully!"