从屏幕上的Visual Basic RBG捕获

Question

我需要的代码将在Visual Basic中运行，以捕获屏幕并将其转换为像素值的RBG数组 - 需要相当快。

任何帮助？

Answer 1

此代码将从窗口或整个桌面（虚拟屏幕）捕获屏幕截图并将其绘制到自定义picturebox。

Private Type RECT 
    Left As Long 
    Top As Long 
    Right As Long 
    Bottom As Long 
End Type 

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long 
Private Declare Function GetDesktopWindow Lib "user32"() As Long 

Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long 

Private Const SM_XVIRTUALSCREEN = 76 
Private Const SM_YVIRTUALSCREEN = 77 
Private Const SM_CYVIRTUALSCREEN = 79 
Private Const SM_CXVIRTUALSCREEN = 78 

Private Sub GetScreenshot(Optional ByVal hWnd As Long = 0) 
Dim hDC As Long 

Dim WindowRect As RECT 
Dim Left As Long 
Dim Top As Long 
Dim Width As Long 
Dim Height As Long 

    If hWnd = 0 Then 
    'Get the DC of the desktop 
    hDC = GetWindowDC(GetDesktopWindow) 

    'Get the virtual screen coordinates (this handles multiple monitors too :) 
    Left = GetSystemMetrics(SM_XVIRTUALSCREEN) 
    Top = GetSystemMetrics(SM_YVIRTUALSCREEN) 
    Width = GetSystemMetrics(SM_CXVIRTUALSCREEN) 
    Height = GetSystemMetrics(SM_CYVIRTUALSCREEN) 

    Else 
    'Get the DC of the window we want to capture 
    hDC = GetWindowDC(hWnd) 

    'Get the window coordinates 
    GetWindowRect hWnd, WindowRect 
    Left = 0 
    Top = 0 
    Width = WindowRect.Right - WindowRect.Left 
    Height = WindowRect.Bottom - WindowRect.Top 

    End If 

    'BitBlt into our own DC 
    BitBlt picScreen.hDC, 0, 0, Width, Height, hDC, Left, Top, vbSrcCopy 

    'Delete our reference to the windows's DC 
    ReleaseDC hWnd, hDC 
End Function 

请注意在捕获桌面时使用GetSystemMetrics()。这使得它可以在使用多个显示器而不是just the primary monitor时获得完整的虚拟屏幕尺寸。