如何在vbs中实现屏幕捕捉？

overn

如题，谢谢！
注：使用模拟键盘PrtSc键，然后在“画图”中模拟Ctrl+V得不到屏幕图像。

gy21st

CaptureBitmap Method

Description
Saves a screen capture of the object as a .png or .bmp image, depending on the specified file extension.

Syntax
object.CaptureBitmap Filename, [OverrideExisting]

yuandjing

'捕获当前屏幕（截图）
Public Function QTP_Capture(pathway)
  Dim datestamp
  Dim filename
  datestamp = Now()
  filename = Environment("TestName")&"_"&datestamp&".png"
  filename = Replace(filename,"/","")
  filename = Replace(filename,":","")
  filename = pathway + "\" + ""&filename
  Desktop.CaptureBitmap filename
End Function