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


阅读更多
个人分类: Visual Basic 6.0
想对作者说点什么? 我来说一句

VB API 截图功能代码

2009年08月25日 2KB 下载

我用过的一个vb 屏幕截图源码

2010年05月09日 3KB 下载

QQ截屏VB代码

2016年02月03日 26KB 下载

屏幕截图功能VB.NET代码实现

2009年05月16日 41KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭