主题：屏幕抓图

1、参考

 

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    msgbox("保存到了d盘")
End If

 

2、参考

 

Dim point As Point = new point(20, 30) 'x1,y1
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(100, 50) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '

bit.save("d:\test.jpg")
bit.dispose

Dim proc As new Process
proc.File = "d:\test.jpg"
proc.start