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编写,引用时请作一说明. '******* ...
最新文章
- 2012 ARM嵌入式开发应用研讨会杂谈
- 细化 Sobel 边缘提取
- 安卓AS_git 进行更新远程分支
- Activity管理(三):activity内核管理方案详细讲解
- 2017-2018-1 20155226《信息安全系统设计基础》第2周学习总结
- 聊一聊:你碰到过哪些操蛋的文档?
- flex上传图片到java服务器
- 一、WPF 2个datagrid之间同步进度条
- linux内核 mpls,将MPLS编译进linux内核中
- 项目案例:qq数据库管理_2小时元项目:项目管理您的数据科学学习
- 辽宁交通职业技术学校计算机好不好,辽宁省交通高等专科学校信息工程系
- C++/C中定义与声明的区别
- 计算机网络项目——最小网元设计(阶段二)
- abapdata定义方法_ABAP中用函数定义后台作业的一个程序
- 【Flink】No key set. This method should not be called outside of a keyed context.
- 计算机硬件技术基础第四章ppt,管理N计算机硬件技术基础第4章.ppt
- html图片等比例拉伸,CSS控制图片等比例缩放
- 震惊!华为对大数据又出新动作!
- 如何学好书法---临摹
- Centos8关闭防火墙
热门文章
- UE4 C++:Delegate委托
- vlfeat常见函数
- 基于嵌入式平台下的GIS/GPS定位系统设计 之 设计方案选择
- 数学建模--30+种常用算法模型
- Java基础学习之cookie
- 使用Python编写微信自动回复脚本
- python安卓qq登录_Python的Flask框架应用程序实现使用QQ账号登录的方法
- c语言指针常量和常量指针,详解C语言中的常量指针和指针常量
- DELPHI利用WMI获取CPU参数
- maven中如何解决jar包的依赖冲突Caused by:java.lang.NoSuchMethodError Caused by: java.lang.ClassNotFoundException