VB代码实现屏幕截图（Screenshot功能）

采用的模拟按键（vbKeySnapshot）的方法实现，根据网上的代码改的，非常简单

API声明

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

说明
这个函数模拟了键盘行动
参数表
参数	类型及说明
bVk	Byte，欲模拟的虚拟键码
bScan	Byte，键的OEM扫描码
dwFlags	Long，零；或设为下述两个标志之一
	KEYEVENTF_EXTENDEDKEY	指出是一个扩展键，而且在前面冠以0xE0代码
	KEYEVENTF_KEYUP	模拟松开一个键
dwExtraInfo	Long，通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序
注解
这个函数支持屏幕捕获（截图）。在win95和nt4.0下这个函数的行为不同

代码

Public Sub ScreenShot_Save()On Error GoTo herr
Wait 0.5
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
SavePicture Clipboard.getData, App.Path & "\ScreenShotSave\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
MsgBox "截图成功！图片保存路径： " & vbCrLf & App.Path & "\ScreenShotSave\" & Format(Now, "yyyymmddhhmmss") & ".BMP", vbOKOnly + vbInformation, "屏幕截图"
Exit Sub
herr:
MsgBox "截图失败，请重试！", vbOKOnly, "屏幕截图"End Sub

VB代码实现屏幕截图（Screenshot功能）相关推荐

Jupyter 编写python代码实现代码自动补齐功能设置实例演示
Jupyter 代码自动补齐功能第一章:启用代码自动补齐功能 ① 安装工具包 ② 重启 Jupyter 服务 ③ 功能设置 ④ 效果展示 ⑤ cmd 安装工具包详细过程展示第一章:启用代码自动补齐 ...
大学计算机二级考试 vb,大学计算机二级考试常用vb代码.docx
文档介绍: 大学计算机二级考试常用vb代码.docx参考代码如下:mand1_Click()Textl.Text=""IfCheckl.Value=1ThenTextl.Text= ...
vb代码大全_【必会】Rnd随机函数在VB编程中的广泛应用
大家好,今天我们共同来看一下Rnd随机函数在VB编程中的应用. VB中的Rnd随机函数功能:产生[0,1)之间的一个随机数. 注意:包括0,但是取不到1. 如果要实现每次运行时,产生不同序列的随机数 ...
[精华]如何编写高质量的VB代码
2003-01-01· ·冯睿··yesky简介: 本文描述了如何通过一些技术手段来提高VB代码的执行效率.这些手段可以分为两个大的部分:编码技术和编译优化技术.在编码技术中介绍了如何通过使用高效的数 ...
VB 去除文本框粘贴功能
我们平时在用一些软件的时候,(如QQ的密码框,WEB网页的密码框),他们都具有防止粘贴中能在以前,我在防止这方面的工作,当文本框获得焦点时,给他处理剪贴板数据,让其清空. 以下这个代码可不时上面的方 ...
纯VB代码取得硬盘的物理序列号
纯VB代码取得硬盘的物理序列号网上有很多获取硬盘序列号的代码,但大部分都只能取得逻辑分区的序列号,而不能取得硬盘的物理序列号.我们知道,逻辑分区的序列号是FORMAT时产生的,重新FORMA ...
编写高质量的VB代码
简介: 本文描述了如何通过一些技术手段来提高VB代码的执行效率.这些手段可以分为两个大的部分:编码技术和编译优化技术.在编码技术中介绍了如何通过使用高效的数据类型.减少外部引用等编程手段来提高代码执行 ...
VB如何实现Undo(撤消)功能
在许多应用程序中,例如许多编辑软件都有UNDO功能.它给我们带来了方便. 那么在VB中能不能实现UNDO功能呢?答案是肯定的.下面介绍一下对于标准的文本框或组合框实现UNDO功能的示例代码: Dec ...
几行VB代码拿下注册表
'****************************注册表操作函数********************** '声明:以下代码由轻风工作室REDICE编写,引用时请作一说明. '******* ...

VB代码实现屏幕截图（Screenshot功能）

VB代码实现屏幕截图（Screenshot功能）相关推荐

最新文章

热门文章