采用的模拟按键(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功能)相关推荐

  1. Jupyter 编写python代码实现代码自动补齐功能设置实例演示

    Jupyter 代码自动补齐功能 第一章:启用代码自动补齐功能 ① 安装工具包 ② 重启 Jupyter 服务 ③ 功能设置 ④ 效果展示 ⑤ cmd 安装工具包详细过程展示 第一章:启用代码自动补齐 ...

  2. 大学计算机二级考试 vb,大学计算机二级考试常用vb代码.docx

    文档介绍: 大学计算机二级考试常用vb代码.docx参考代码如下:mand1_Click()Textl.Text=""IfCheckl.Value=1ThenTextl.Text= ...

  3. vb代码大全_【必会】Rnd随机函数在VB编程中的广泛应用

    大家好,今天我们共同来看一下Rnd随机函数在VB编程中的应用. VB中的Rnd随机函数 功能:产生[0,1)之间的一个随机数. 注意:包括0,但是取不到1. 如果要实现每次运行时,产生不同序列的随机数 ...

  4. [精华]如何编写高质量的VB代码

    2003-01-01· ·冯睿··yesky简介: 本文描述了如何通过一些技术手段来提高VB代码的执行效率.这些手段可以分为两个大的部分:编码技术和编译优化技术.在编码技术中介绍了如何通过使用高效的数 ...

  5. VB 去除文本框粘贴功能

    我们平时在用一些软件的时候,(如QQ的密码框,WEB网页的密码框),他们都具有防止粘贴中能 在以前,我在防止这方面的工作,当文本框获得焦点时,给他处理剪贴板数据,让其清空. 以下这个代码可不时上面的方 ...

  6. 纯VB代码取得硬盘的物理序列号

    纯VB代码取得硬盘的物理序列号     网上有很多获取硬盘序列号的代码,但大部分都只能取得逻辑分区的序列号,而不能取得硬盘的物理序列号.我们知道,逻辑分区的序列号是FORMAT时产生的,重新FORMA ...

  7. 编写高质量的VB代码

    简介: 本文描述了如何通过一些技术手段来提高VB代码的执行效率.这些手段可以分为两个大的部分:编码技术和编译优化技术.在编码技术中介绍了如何通过使用高效的数据类型.减少外部引用等编程手段来提高代码执行 ...

  8. VB如何实现Undo(撤消)功能

    在许多应用程序中,例如许多编辑软件都有UNDO功能.它给我们带来了方便. 那么在VB中能不能实现UNDO功能呢?答案是肯定的.下面介绍一下对于标准的文本 框或组合框实现UNDO功能的示例代码: Dec ...

  9. 几行VB代码拿下注册表

    '****************************注册表操作函数********************** '声明:以下代码由轻风工作室REDICE编写,引用时请作一说明. '******* ...

最新文章

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

热门文章

  1. 基于Cesium的一些demo
  2. 国企招聘:中央广播电视总台2023年公开招聘110名工作人员公告!
  3. 关于 58 996 浪潮 奋进者计划 华为 奋斗者协议—— 小论!
  4. 资源|推荐5本经典自然语言处理书籍(免费下载)
  5. 职场感悟-努力与回报与个人价值
  6. LTE学习理解系列——TDD-LTE的TA、GP、TDD开关、覆盖范围、拉远距离的更深入理解
  7. 解决bootstrap按钮点击出现阴影
  8. 印孚瑟斯计划将美国存托股转至纽约泛欧交易所上市
  9. c语言while函数作用,详解C语言中的while语句
  10. hackerrank(python)