知识大全用VB.net2008编写屏幕抓捕程序

Posted 2022-07-17 知

篇首语：风流不在谈锋胜，袖手无言味最长。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB.net2008编写屏幕抓捕程序相关的知识，希望对你有一定的参考价值。

用VB.net2008编写屏幕抓捕程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

Visual Studio 在稳定性方面增强不少笔者在使用时很少出现BUG的情况而且Visual Studio 在网络应用编程与图像处理方面也比原来版本增强了不少开发效率有了提高本篇文章将介绍如何利用Visual Studio 所提供的控件编写一个简单的屏幕抓捕程序本篇文章具有一定的实用性让大家对ContextMenuStrip 控件和NotifyIcon 控件有所了解且在应用程序开发中需要经常用到这些控件希望对大家有所帮助　　　　打开 Visual Studio 在文件 (File) 菜单上单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中单击 Windows 应用程序(Windows Application) 单击确定 (OK) 如图　　　 >　　　　选择Form 窗体在Form 窗体中添加ContextMenuStrip 控件选中ContextMenuStrip 控件输入<抓捕当前屏幕>与<退出程序> 我们需要在程序最小化时作为调用程序右键菜单的功能选项如图　　 >　　　　　　随后我们需要在Form 中添加NotifyIcon 控件 NotifyIcon 控件作为程序图标显示到窗体的任务栏中我们选择NotifyIcon 控件的Icon属性选择一个喜欢的图标接下来最重要的一步就是进行图标和快捷菜单的绑定了我们需要选择NotifyIcon 控件的ContextMenuStrip属性选中菜单下拉框中的ContextMenuStrip 这样就进行绑定了如图　　 >

　　好了现在界面工作我们已经完成了接下来我们需要进行输入代码的工作了

　　首先进行声明　　　　Imports System Runtime InteropServices 　　Imports System Drawing Imaging　　　　Public Class Form 　　　　 _ 　　 Private Shared Function BitBlt(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 　　 End Function　　　　 _ 　　 Private Shared Function CreateDC(ByVal lpszDriver As String ByVal lpszDevice As String ByVal lpszOutput As String ByVal lpInitData As IntPtr) As IntPtr 　　 End Function 　　 Private picture As Bitmap = Nothing 以picture作为图片格式的声明　　　　声明Public Sub capture_window()　　　　Public Sub capture_window() 　　 Me Visible = False 　　 Dim capture As IntPtr = CreateDC( DISPLAY Nothing Nothing Nothing) 　　　　 Dim get As Graphics = Graphics FromHdc(capture ) 　　创建一个新的Graphics对象　　 picture = New Bitmap(Screen PrimaryScreen Bounds Width Screen PrimaryScreen Bounds Height get ) 　　根据屏幕大小创建一个相同大小的Bitmap 　　 Dim get As Graphics = Graphics FromImage(picture) 　　 Dim get As IntPtr = get GetHdc() 获取屏幕的句柄　　 Dim get As IntPtr = get GetHdc() 获取位图的句柄　　　　 BitBlt(get Screen PrimaryScreen Bounds Width Screen PrimaryScreen Bounds Height get _ 　　 ) 把当前屏幕复制到位图中　　 get ReleaseHdc(get ) 释放屏幕句柄　　 get ReleaseHdc(get ) 释放位图句柄　　 picture Save( CapturePicture jpg ImageFormat Jpeg) 　　 MessageBox Show( 已经把当前截取屏幕保存到CapturePicture jpg 检查程序根目录 ) 　　 Me Visible = True 　　 End Sub　　　　进入捕获当前屏幕ToolStripMenuItem_Click事件中　　　　Private Sub 捕获当前屏幕ToolStripMenuItem_Click(ByVal sender As System Object ByVal e As System EventArgs) Handles 捕获当前屏幕ToolStripMenuItem Click 　　 capture_window() 调用函数开始捕获程序　　　　 End Sub　　　　进入退出程序ToolStripMenuItem_Click事件中　　　　Private Sub 退出程序ToolStripMenuItem_Click(ByVal sender As System Object ByVal e As System EventArgs) Handles 退出程序ToolStripMenuItem Click　　　　 NotifyIcon Visible = False 　　关闭系统　　 Me Close() 　　End Sub

　　好了现在我们运行程序进行测试一下注意如果我们不想看到Form 应用程序窗体出现在任务栏中而只是想把程序图标显示在任务栏中请选择Form 窗体中的属性ShowInTaskbar=False如图

　　运行程序选中抓捕当前屏幕即可如图图片将会保存在你程序的根目录中图片名称为 CapturePicture jpg如图所示　

>> cha138/Article/program/net/201311/13130

知识大全 用VB.net2008编写屏幕抓捕程序

知识大全用VB.net2008编写屏幕抓捕程序