QTP中的场景恢复

1、how can we get the status of an action as pass/fail at the end of the action

首先:Create a recovery scenario as below

Triger Event:Test-Run Error

Error:Any Errot

Recovery Operation:

Operation type:Function Call

the function shows as below:

Function actionTrueOrFalse1(Object, Method, Arguments, retVal)
'On error resume next
sCurrentAction=environment.value("CurrentAction")
environment.value(sCurrentAction)="Failed"
environment.Value("RunStatus")="Failed"
End Function
 

然后：create a user-defined environment variable "CurrentAction" with a blank value

in every action，start the action with the code as below

'On error resume next
sCurrentAction=datatable.LocalSheet.Name
sCurrentAction=replace(sCurrentAction," ","_")
sCurrentAction=replace(sCurrentAction," [","_")
sCurrentAction=replace(sCurrentAction," ]","_")

'save the old action name,so that in case we call another action,then the old actionname can not be lost
soldaction=environment.Value("CurrentAction")
msgbox soldaction

environment.Value("CurrentAction")=sCurrentAction
environment.Value(sCurrentAction)="Passed"
'On error goto 0

Dim x
x=2
 window("hwnd:=-1").Exist(0)  'we use the dump step or a statement like:"recovery.Active" at any position to force the activation of the recovery scenario
msgbox x

 

we end every action with the code as given below

soldaction=environment.Value("CurrentAction")
datatable("status",dtGlobalSheet)=environment.Value(sCurrentAction)

 

then check the result file,you will find the result in the runtime datatable,as shown below

 

2、In errors occurs，how to capture the errors picture using recovery scenario

we can use the function as below

Function MapCapture2(Object, Method, Arguments, retVal)
Dim PathWay,myTime,FileName
     PathWay="D:\cora\QTP\DCSAutomation\DCS\ErrorScreenCapture\"
     myTime=now( )
    TimeStamp=year(myTime)&month(myTime)&day(myTime)&hour(myTime)&minute(myTime)&second(mytime)
     FileName=PathWay&TimeStamp&".bmp"
     Desktop.CaptureBitmap FileName
End Function

 

 3,error handling
'example1
On error resume next
Call ErrorFunc()
If Err.number<>0 Then
 msgbox "Error occured inside function"
End If

Public Function ErrorFunc()
  x=3/0
 msgbox "Function completed"
'End Function

'example2
Dim globalErrHander
Function FunWithError()
   Dim x,y
   x=2+4
   y=x-2-4
   x=x/y
End Function

Function FunWithErrHanlder()
   On error resume next
   Call FunWithError()
   If Err.Number<>0 Then
    Call globalErrHander()
   End If
End Function

public Function OnErrorGoTo(byval FunctionName)
 Set globalErrHander=GetRef(FunctionName)
End Function

Function errHandler()
   msgbox "Source="&Err.Source&",#="&"err.number"&",Desc="&err.description
End Function

OnErrorGoTo "errHandler"
Call FunWithErrHanlder()