qtp - 如何使用QTP截取应用程序的屏幕截图？

Question

我想在发生错误时截取应用程序的屏幕截图并将其保存在特定文件夹中。下面的代码可以工作，但它不会截取应用程序的屏幕截图，而是截取 QTP 代码屏幕的屏幕截图。

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

Answer 1

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

这应该有效。