抓图：如何抓活动窗口

Question

如何用ＡＩＰ抓当前活动的的窗口 请赐教

Answer 1

Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long

Answer 2

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)   Call keybd_event(vbKeySnapshot, 1, 0, 0)   '第二个参数为1表示拷贝当前活动窗体，为0表示整个屏幕
    Me.Picture = Clipboard.GetData(vbCFBitmap）

Answer 3

最简单的方法 
Private Declare Function GetForegroundWindow Lib "user32" () As Long
返回窗口句柄