vb.net编写1ms截图程序

Imports System.Drawing Imports System.Drawing.Imaging Imports System.Runtime.InteropServices Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim bmpScreenshot As Bitmap = Me.CaptureScreen() '获取屏幕截图 bmpScreenshot.Save("d:\test\screenshot" & Now & ".png", ImageFormat.Png) '保存为png格式 End Sub Function CaptureScreen() As Bitmap '截取屏幕函数 Dim bmpScreenshot As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds