' Arguments應該是1個或多個參數,此處只考慮了1個的情況,以后需要維護。
reporter.Filter = 3
'清除Error并退出Test
If err.number<>0 Then
Err.Clear
End If
' Reporter.ReportEvent micFail, strStepInfo, Method & " " & Arguments(0) & " 出現錯誤,錯誤編號:" & retVal
On Error Goto 0
systemutil.CloseProcessByName("iexplore.exe")
ExitTest
End Function
原文轉自:http://www.anti-gravitydesign.com