我已经通过使用ActiveX控件为HTA完成了此操作。在VB6中构建控件以截取屏幕截图非常容易。我必须使用keybd_event
API调用，因为SendKeys无法执行PrintScreen。这是该代码：

Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const CaptWindow = 2

Public Sub ScreenGrab()
   keybd_event &H12, 0, 0, 0
   keybd_event &H2C, CaptWindow, 0, 0
   keybd_event &H2C, CaptWindow, &H2, 0
   keybd_event &H12, 0, &H2, 0
End Sub

这只会使您到达将窗口转到剪贴板。

另一个选择是，如果要获取屏幕快照的窗口是HTA，则只需使用XMLHTTPRequest将DOM节点发送到服务器，然后在服务器端创建屏幕快照。