实现VB.NET远程控制抓屏+压缩

VB.NET经过长时间的发展，很多用户都很了解VB.NET远程控制了，我把我的一点点这方面的经验和大家分享一下。VB.NET做为VB6的升级版本，具备了许多新的功能，它可以简便快捷地创建 .NET 应用程序（包括 XML Web services 和 ASP.NET Web 应用程序），还是一个功能强大的面向对象的编程语言（如继承、接口和重载）。

#T#新的语言功能包括自由线程处理和结构化异常处理。VB.NET 还完全集成了.NET 框架和公共语言运行库，.NET 框架和公共语言运行库共同提供语言互操作性、垃圾回收、增强的安全性和改进的版本支持。可以说是一个划时代的产品！我们来看看VB.NET远程控制实例[抓屏+压缩]的小例子。

VB.NET远程控制转化后代码如下：

Imports System  
Imports System.Text  
Imports System.Drawing.Imaging  
Imports System.IO  
Imports System.Drawing  
Imports System.Windows.Forms  
Namespace Lob.Windows  
 
Public Class ScreenCapture  
 
Private Declare Function BitBlt Lib "GDI32" (ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, 
ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, 
ByVal dwRop As Integer) As Boolean  
 
Private Declare Function CreateDC Lib "GDI32" (ByVal lpszDriver As String, ByVal lpszDevice As String,
 ByVal lpszOutput As String, ByVal lpInitData As IntPtr) As IntPtr  
 
Public Shared Function Capture() As Image  
Dim dc1 As IntPtr = CreateDC("DISPLAY", Nothing, Nothing, CType(Nothing, IntPtr))  
Dim g1 As GraphicsGraphics = Graphics.FromHdc(dc1)  
Dim ScreenImage As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, g1)  
Dim g2 As GraphicsGraphics = Graphics.FromImage(ScreenImage)  
Dim dc3 As IntPtr = g1.GetHdc  
Dim dc2 As IntPtr = g2.GetHdc  
BitBlt(dc2, 0, 0, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, dc3, 0, 0, 13369376)  
g1.ReleaseHdc(dc3)  
g2.ReleaseHdc(dc2)  
Dim bmp As Image = MakeThumbnail(ScreenImage, (ScreenImage.Width * (3 / 4)), (ScreenImage.Height * (3 / 4)))  
Return bmp  
End Function  
 
Public Shared Function MakeThumbnail(ByVal originalImage As Image, ByVal towidth As Integer, ByVal toheight As Integer) As Image  
Dim x As Integer = 0 
Dim y As Integer = 0 
Dim ow As Integer = originalImage.Width  
Dim oh As Integer = originalImage.Height  
Dim bitmap As System.Drawing.Image = New System.Drawing.Bitmap(towidth, toheight)  
Dim g As SystemSystem.Drawing.Graphics = System.Drawing.Graphics.FromImage(bitmap)  
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High  
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighSpeed  
g.Clear(System.Drawing.Color.Transparent)  
g.DrawImage(originalImage, New System.Drawing.Rectangle(0, 0, towidth, toheight), New System.Drawing.Rectangle(x, y, ow, oh),
 System.Drawing.GraphicsUnit.Pixel)  
Return bitmap  
End Function  
 End Class  
End Namespace