用于场景恢复的函数(2)

　　' 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.ltesting.net