vba截屏保存

最新推荐文章于 2024-02-05 15:42:32 发布

转载

最新推荐文章于 2024-02-05 15:42:32 发布 · 2.2k 阅读

9 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lbnnbs/p/4784601.html

文章标签：

#爬虫

该博客介绍了如何使用VBA进行屏幕截图并保存为图片文件。通过调用Windows API函数`keybd_event`模拟按下Print Screen键进行全屏截图，然后利用`OpenClipboard`、`GetClipboardData`等API获取剪贴板中的位图，并使用`OleCreatePictureIndirect`创建IPicture对象，最终将截图保存到指定路径。示例代码中提供了一个`dd`子程序，用于执行截图并保存。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Enum JpMode
          theScreen = 0 '全屏截图
          theForm = 1 '当前焦点窗口截图
    End Enum
    Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As Guid, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
    Private Const CF_BITMAP = 2
    Private Ty