这是一份归档文档

WinAPI 截图

' 根据VB6代码改的，经过本人优化。请先导入Drawing类库。
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Integer) As Integer
Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByRef lpInitData As Integer) As Integer
Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Integer) As Integer

Function GetSerPic(Optional ByVal BitWidth As Integer = -1, Optional ByVal BitHeight As Integer = -1) As Image
    If BitWidth < 0 Then BitWidth = My.Computer.Screen.Bounds.Width
    If BitHeight < 0 Then BitHeight = My.Computer.Screen.Bounds.Height
    Dim Bhandle, DestDC, SourceDC As IntPtr
    SourceDC = CreateDC("DISPLAY", Nothing, Nothing, 0)
    DestDC = CreateCompatibleDC(SourceDC)
    Bhandle = CreateCompatibleBitmap(SourceDC, BitWidth, BitHeight)
    SelectObject(DestDC, Bhandle)
    BitBlt(DestDC, 0, 0, BitWidth, BitHeight, SourceDC, 0, 0, &HCC0020)
    Return Image.FromHbitmap(Bhandle)
End Function

GDI+截图

Dim p1 As New Point(0, 0)
Dim p2 As New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Dim pic As New Bitmap(p2.X, p2.Y)
Using g As Graphics = Graphics.FromImage(pic)
    g.CopyFromScreen(p1, p1, p2)
End Using