QTP on error 错误处理机制

lan_7366

大家好，我是新手，有个问题想请教大家。
我录制了一个脚本（测试项目是C++项目），现在需要进行错误处理。包括两个方面的错误。一个是程序中的错误，一个是脚本错误。对于这两种错误我的想法是，无论是遇到程序bug还是遇到脚本错误，都先进行截图，并放到指定目录，然后继续进行下一个迭代循环。
问题是：该如何实现这个想法呢？

shotstar

问题一：不能在发生错误的时候截图。该怎么修改？
使用场景恢复，设置any error的时候调用你的这个function。
问题二：怎么修改才能对于程序错误和脚本错误都记录下来？
程序错误的情况有很多，对于能够引发脚本的错误的程序错误（比如某个对象不见了或者意外弹出一个对话框），这种用场景恢复都可以处理。对于不会引发脚本错误的程序错误，比如显示的文字错误或者其他情况，只能你自己做一些检查点，可以判断检查点不通过的时候去调用你的function。

lan_7366

这个是我的代码，麻烦大家帮忙看一下！
问题一：不能在发生错误的时候截图。该怎么修改？
问题二：怎么修改才能对于程序错误和脚本错误都记录下来？
Function RecoverFunctions(Object,Method,Argument,retVal)
   Dim objFSO
   Dim strDesktopFolder
   Dim objFolder
   Dim PathWay
   Dim FileName
   Dim TimeStamp
   Dim WshShell
   Dim strStepinfo
   Dim strDetails
        Dim CheckFolderExists

   
        strDesktopFolder ="C:\ErrorScreenCapture"
        Set objFSO=CreateObject ("Scripting.FileSystemObject")
  CheckFolderExists =objFSO.FolderExists(strDesktopFolder)
        If CheckFolderExists=True Then
        Set objFolder=objFSO.GetFolder(strDesktopFolder)
                else CreateFolderDemo strDesktopFolder
               
    End If
       
        PathWay="C:\ErrorScreenCapture"
        TimeStamp=year(now) & month(now) & day(now) & hour(now) & minute(now)
        msgbox TimeStamp
     FileName=PathWay&TimeStamp&".bmp"
         msgbox FileName
         Desktop.CaptureBitmap FileName

        reporter.Filter=0
        reporter.ReportEvent 1,"测试失败","将error截图保存下来"
        reporter.Filter=3
       
        On Error Resume Next
        Err.Raise
        strStepinfo="T发生非预期错误，测试退出"
        strDetails = "错误编号：" & CStr(Err.Number) & "，错误描述：" & Err.Description
       
         reporter.Filter = 0   
    Reporter.ReportEvent micFail, strStepInfo,  " " & Arguments(0) & " 出现错误，错误编号：" & retVal  
        reporter.Filter = 3  
       
        Err.clear
        On Error GoTo 0

'End Function

Function CreateFolderDemo(sFlodername)
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.CreateFolder(strDesktopFolder)
End Function

gztester

On Error Resume Next