QTP场景恢复之用例失败自动截图

以下代码是在QC里运行QTP来执行脚本过程，当执行过程中发现用例失败后就会自动截图，然后把用例返回到最初始的状态，模拟了场景恢复的机制

 Class QCImageErrorCapture
    Dim qtpApp
    Sub Class_Initialize()
           Set qtpApp = CreateObject("QuickTest.Application")
         If qtpApp.CurrentDocumentType = "Test" Then
             qtpApp.Test.Settings.Run.DisableSmartIdentification = False'False
             qtpApp.Test.Settings.Run.OnError = "Stop" '"NextStep"      "stop"
         else
             qtpApp.BusinessComponent.Settings.Run.OnError = "Stop"
         End If
    End Sub
     Sub Class_Terminate()
         'Check if the current test has failed. If failed then only capture screenshot
         If Reporter.RunStatus = micFail Then 'and qtpApp.CurrentDocumentType = "test" Then
             CaptureAndAttachDesktop
         End If
     End Sub

     Private Sub CaptureAndAttachDesktop()
         'QC is not connected
         If QCUtil.IsConnected = False then Exit Sub

         'The test is not running from Test Lab
         If QcUtil.CurrentRun is Nothing Then Exit Sub

         On error resume next
         'Hide QTP to make sure we don't get QTP in snapshot
 '        Set qtpApp = CreateObject("QuickTest.Application")
 '        qtpApp.Test.Settings.Run.DisableSmartIdentification = True
 '        msgbox "display"
         qtpApp.visible = False

         'GIve time for QTP to get hidden
         Wait 

         'Capture the screenshot to the report folder
         Desktop.CaptureBitmap Reporter.ReportPath & "/Report/ErrorImage.png", True
         qtpApp.visible = True
 '        Browser("title:=视博云业务全流程管理平台").Close

 '        SystemUtil.CloseProcessByName "iexplore.exe"
 '        isFail = True

         Reporter.ReportEvent micFail, "失败截图", "失败截图", Reporter.ReportPath & "/Report/ErrorImage.png"

         If qtpApp.CurrentDocumentType = "Test" Then
             Browser("title:=视博云业务全流程管理平台").Page("title:=视博云业务全流程管理平台").Frame("html id:=FM_Logo").Image("file name:=icon_exit.png").Click
             wait
             Browser("title:=视博云业务全流程管理平台").Dialog("text:=来自网页的消息", "nativeclass:=#32770").WinButton("text:=确定").Click
         end if

         'Add the capture to QC
 '        Set oAttachments = QCutil.CurrentRun.Attachments
 '        Set oAttachment = oAttachments.AddItem(null)
 '        oAttachment.FileName = Reporter.ReportPath & "/Report/ErrorImage.png"
 '        oAttachment.Type = 1 'File

         'Check if the current test is a QTP Test or Business Component
 '        Select Case LCase(qtpApp.CurrentDocumentType)
 '            Case "test"
 '                    print "test"
 '                    oAttachment.Description = "Name: " & qtpApp.Test.Name & vbNewLine & "Error: " & qtpApp.Test.LastRunResults.LastError
 '            Case "business component"
 '                    oAttachment.Description = "Name: " & qtpApp.BusinessComponent.Name & vbNewLine & "Error: " & qtpApp.BusinessComponent.LastRunResults.LastError
 '
 '                    'We can also add the Business COmponent to a User Defined Field
 '                    'QCUtil.CurrentTestSetTest.Field("TC_USER_01") = qtpApp.BusinessComponent.Name
 '                    'QCUtil.CurrentTestSetTest.Post
 '        End Select
 '
 '        'Add the attachment
 '        oAttachment.Post
 '        print "post"
     End Sub
 End Class

 'Create the object in one of the attached libraries. When the Test or Business component ends
 'the screenshot will be captured
 Set oErrorCapture = new QCImageErrorCapture