Imports System.Drawing.Imaging

Public Sub CaptureScreen()
    ' 获取屏幕尺寸
    Dim screenSize As Size = Screen.PrimaryScreen.Bounds.Size
    Dim bmp As New Bitmap(screenSize.Width, screenSize.Height)
    
    ' 创建Graphics对象
    Using g As Graphics = Graphics.FromImage(bmp)
        ' 截图操作
        g.CopyFromScreen(Point.Empty, Point.Empty, screenSize)
    End Using
    
    ' 保存图片
    bmp.Save("C:\screenshot.png", ImageFormat.Png)
    MessageBox.Show("截图已保存！")
End Sub

Public Sub CaptureArea(x As Integer, y As Integer, width As Integer, height As Integer)
    Dim bmp As New Bitmap(width, height)
    
    Using g As Graphics = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(x, y), Point.Empty, New Size(width, height))
    End Using
    
    ' 自动生成文件名
    Dim fileName As String = $"C:\screenshot_{DateTime.Now:yyyyMMddHHmmss}.jpg"
    bmp.Save(fileName, ImageFormat.Jpeg)
    
    Process.Start("explorer.exe", "/select," & fileName)
End Sub

Dim WithEvents timer As New Timer()

Private Sub StartAutoCapture(intervalSeconds As Integer)
    timer.Interval = intervalSeconds * 1000
    timer.Start()
End Sub

Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
    Dim fileName As String = $"C:\auto_capture_{DateTime.Now:HHmmss}.png"
    CaptureScreen(fileName) ' 调用前面的截图方法
    Console.WriteLine($"已自动保存截图: {fileName}")
End Sub

Imports System.Runtime.InteropServices

<DllImport("user32.dll")>
Private Shared Function GetWindowRect(hWnd As IntPtr, ByRef rect As Rectangle) As Boolean
End Function

Public Sub CaptureWindow(handle As IntPtr, savePath As String)
    Dim rect As New Rectangle()
    GetWindowRect(handle, rect)
    
    Dim width As Integer = rect.Width - rect.X
    Dim height As Integer = rect.Height - rect.Y
    
    Dim bmp As New Bitmap(width, height)
    Using g As Graphics = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(rect.X, rect.Y), Point.Empty, New Size(width, height))
    End Using
    
    bmp.Save(savePath)
End Sub

Public Sub HighQualityCapture(savePath As String)
    Dim scale = 2 ' 缩放因子
    Dim screen = Screen.PrimaryScreen
    Dim size = New Size(screen.Bounds.Width * scale, screen.Bounds.Height * scale)
    
    Dim bmp As New Bitmap(size.Width, size.Height)
    Using g As Graphics = Graphics.FromImage(bmp)
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g.CopyFromScreen(Point.Empty, Point.Empty, size)
    End Using
    
    bmp.Save(savePath, ImageFormat.Png)
End Sub

Try
    bmp.Save("C:\screenshot.jpg", ImageFormat.Jpeg)
Catch ex As Exception
    ' 尝试其他保存路径
    Dim desktopPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    bmp.Save(Path.Combine(desktopPath, "screenshot.jpg"))
End Try

' 获取所有显示器
For Each screen In Screen.AllScreens
    Dim bmp As New Bitmap(screen.Bounds.Width, screen.Bounds.Height)
    Using g = Graphics.FromImage(bmp)
        g.CopyFromScreen(screen.Bounds.Location, Point.Empty, screen.Bounds.Size)
    End Using
    bmp.Save($"C:\screen_{screen.DeviceName.Replace("\", "")}.png")
Next

Public Class ScreenshotTool
    Private Sub btnFullScreen_Click(sender As Object, e As EventArgs) Handles btnFullScreen.Click
        CaptureScreen("fullscreen.png")
    End Sub
    
    Private Sub btnArea_Click(sender As Object, e As EventArgs) Handles btnArea.Click
        Me.Hide()
        Threading.Thread.Sleep(500) ' 等待窗口隐藏
        ' 这里可以添加区域选择逻辑
        CaptureArea(0, 0, 800, 600)
        Me.Show()
    End Sub
    
    Private Sub btnWindow_Click(sender As Object, e As EventArgs) Handles btnWindow.Click
        Dim proc = Process.GetProcessesByName("notepad").FirstOrDefault()
        If proc IsNot Nothing Then
            CaptureWindow(proc.MainWindowHandle, "notepad.png")
        End If
    End Sub
End Class