VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 突破SendKeys的限制
发表评论(0)作者:, 平台:, 阅读:11378, 日期:2000-03-12
用SendKeys来捉屏


SendKeys 不能实现一些特殊的键, 如 Alt+PrintScr 。 不过使用 API ,可

以改变这样的状况。

声明:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,

ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

使用:

'一个抓屏的例子

Const VK_SNAPSHOT As Byte = &H2C

' 把应用窗口图象放到剪贴板:

Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

'?把整个屏幕抓到剪贴板:

Call keybd_event(VK_SNAPSHOT, 1, 0, 0)

可以用该方法抓 AVI 图象。