Come acquisire uno screenshot utilizzando VBScript in TestComplete?

Question

Sto utilizzando TestComplete. Ho bisogno di catturare uno screenshot e metterlo in una cartella particolare. Come fare questo usando VBScript?

Answer 1

Per acquisire uno screenshot desktop, utilizzare il metodo Sys.Desktop.Picture. Per salvare l'immagine risultante in un file, utilizzare il suo metodo di SaveToFile:

Sys.Desktop.Picture.SaveToFile "E:\screenshot.png" 

In alternativa, è possibile attivare la Test Visualizer per acquisire automaticamente le immagini per le vostre azioni di test.

Answer 2

Function CaptureScreenShot(ScreenshotPath) 
    'Generate Name of the Image 
    strimgFileName="Img\Img" & Day(Date)& Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) &".jpg" 
    strImgFile= ScreenshotPath & strimgFileName 
    'Capture failure Screen shot 
    Set objPic = Sys.Desktop.Picture() 
    'Save captured Screen shot 
    ExecutionStatus = objPic.SaveToFile(strImgFile) 
    'Return Captured image name 
    CaptureScreenShot=".\" & strimgFileName 
End Function