使用 VB.NET 拍摄屏幕照片

Question

目前，我有以下 VB.NET 代码来制作桌面屏幕截图，但它只拍摄活动屏幕的图片：

Public Function SaveScreen(ByVal theFile As String) As Boolean

        Try
            SendKeys.Send("%{PRTSC}")          '<alt + printscreen>
            Application.DoEvents()

            Dim data As IDataObject = Clipboard.GetDataObject()

            If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
                Dim bmp As Bitmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
                bmp.Save(theFile, Imaging.ImageFormat.Png)
            End If
            Clipboard.SetDataObject(0)      'save memory by removing the image from the clipboard
            Return True
        Catch ex As Exception
            Return False
        End Try

    End Function

以下代码是我执行上述功能的方式，如果它有任何区别，我不知道我认为确实如此：

SaveScreen("C:\Lexer_trace\screen.png")

现在，我需要能够拍摄整个屏幕的照片，而不仅仅是聚焦的窗口。我该怎么做？

预先感谢，

洛根

Answer 1

您应该使用 System.Drawing.Graphics.CopyFromScreen()
参见此处从屏幕复制

只需查询屏幕的完整尺寸作为点传递。
类似于 .CopyFromScreen() 的内容

Public Sub SaveScreen(filename As String)

    Dim screenSize = SystemInformation.PrimaryMonitorSize
    Dim bitmap = New Bitmap(screenSize.Width, screenSize.Height)
    Dim g = Graphics.FromImage(bitmap)

    g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
    g.Flush()
    bitmap.Save(filename, System.Drawing.Imaging.ImageFormat.Png)

End Sub

Answer 2

您的评论说您正在发送alt + printscreen，它只捕获当前活动的窗口。

如果您只发送printscreen，它应该捕获整个桌面。

Answer 3

好吧，直接的解决办法是只发送打印屏幕：

SendKeys.Send("{PRTSC}")

但这充其量只是一个蹩脚的黑客攻击。要可靠地截取屏幕截图，您需要使用 P/Invoke 来 GetDC 桌面句柄 (0) 并将 BitBlt 将其内容转换为 Bitmap< /代码>。完成之前，请不要忘记ReleaseDC 桌面的 DC。

或者使用 Graphics.CopyFromScreen< /a>

Answer 4

您是否也尝试过不发送 Alt 键？

像这样的东西：

SendKeys.Send("{PRTSC}")          '<printscreen>