采用的模拟按键(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. 2012 ARM嵌入式开发应用研讨会杂谈
  2. 细化 Sobel 边缘提取
  3. 安卓AS_git 进行更新远程分支
  4. Activity管理(三):activity内核管理方案详细讲解
  5. 2017-2018-1 20155226《信息安全系统设计基础》第2周学习总结
  6. 聊一聊:你碰到过哪些操蛋的文档?
  7. flex上传图片到java服务器
  8. 一、WPF 2个datagrid之间同步进度条
  9. linux内核 mpls,将MPLS编译进linux内核中
  10. 项目案例:qq数据库管理_2小时元项目:项目管理您的数据科学学习
  11. 辽宁交通职业技术学校计算机好不好,辽宁省交通高等专科学校信息工程系
  12. C++/C中定义与声明的区别
  13. 计算机网络项目——最小网元设计(阶段二)
  14. abapdata定义方法_ABAP中用函数定义后台作业的一个程序
  15. 【Flink】No key set. This method should not be called outside of a keyed context.
  16. 计算机硬件技术基础第四章ppt,管理N计算机硬件技术基础第4章.ppt
  17. html图片等比例拉伸,CSS控制图片等比例缩放
  18. 震惊!华为对大数据又出新动作!
  19. 如何学好书法---临摹
  20. Centos8关闭防火墙

热门文章

  1. UE4 C++:Delegate委托
  2. vlfeat常见函数
  3. 基于嵌入式平台下的GIS/GPS定位系统设计 之 设计方案选择
  4. 数学建模--30+种常用算法模型
  5. Java基础学习之cookie
  6. 使用Python编写微信自动回复脚本
  7. python安卓qq登录_Python的Flask框架应用程序实现使用QQ账号登录的方法
  8. c语言指针常量和常量指针,详解C语言中的常量指针和指针常量
  9. DELPHI利用WMI获取CPU参数
  10. maven中如何解决jar包的依赖冲突Caused by:java.lang.NoSuchMethodError Caused by: java.lang.ClassNotFoundException