QTP场景恢复函数

 

public Function RecoveryFunction1(Object, Method, Arguments, retVal)
Dim FileName ,TimeNow, ResPath
ResPath = "D:\TestsResult"
TimeNow = DotNetFactory.CreateInstance( "System.DateTime" ).Now.ToString( "ddMMyyHHmmss" )
TestNameNow=environment.Value("TestName") 
FileName = ResPath & ""&TestNameNow & TimeNow & ".bmp"
desktop.CaptureBitmap  filename,True
systemutil.closedescendentprocesses
End Function