当发生错误时,我想对应用程序进行屏幕截图并将其保存在特定的文件夹中。下面的代码可以工作,但是它不需要应用程序的屏幕截图,而需要QTP Code屏幕的屏幕截图。
Function CaptureImage()
Dim Date_Time
Dim Myfile
Date_Time=Now()
Myfile= Date_Time&".png"
Myfile = Replace(Myfile,"/","-")
Myfile = Replace(Myfile,":","-")
Myfile= "C:\"&Myfile
Desktop.CaptureBitmap Myfile, True
End Function
Dim ScreenName
On Error Resume Next
ScreenName = " "
CurrentTime = "_Test_Case"&"_"& Day(Now)&"_"& Month(Now)&"_"& Year(Now)&"_"&
Hour(Now)&"_"& Minute(Now)&"_"& Second(Now)
ScreenShotName = "Name_of_the_Screen" & CurrentTime & ".png"
ScreenName ="Path where the Screenshot needs to be stored"&"\"&ScreenShotName
Desktop.CaptureBitmap ScreenName,True
这应该工作。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句