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