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编写,引用时请作一说明. '******* ...
最新文章
- 机器学习第六篇:详解支持向量机算法
- 谈谈Android 6.0运行时权限理解
- 晨读-如何打造出有效的“人脉关系”
- 计算机视觉:图像分割算法综述总结
- WebSphere性能调优
- 色彩搭配的原理与避讳
- 一个典型的语音识别系统
- vue+ elementui合并单元格后 checkbox多选单选取值问题
- (平衡)kd树的创建与搜索
- SpringBoot整合Jbpm4(一)
- 【OpenCV】图像缩放
- 《电脑音乐制作实战指南:伴奏、录歌、MTV全攻略》——1.3 将下载的MIDI歌曲制作成MIDI音乐伴奏...
- UE4 教程蓝图的使用
- python远程控制局域网电脑_局域网web远程控制软件 python开发
- 计算机安全协议是,计算机通信网安全协议的分析研究
- 智安网络丨浅析如何加强个人信息安全防护
- 每个Windows用户都应该知道的10个命令提示符技巧
- 谷歌眼镜开发Mirror API之快速启动
- KlayGE中的字体
- 小程序前端生成二维码的链接并携带参数