精华区文章阅读

发信人: zxfsnow (最近睡眠太少), 信区: VB
标  题: 突破SendKeys的限制
发信站: 哈工大紫丁香 (2000年06月08日12:32:48 星期四), 转信

发信人: murmur (其实不想走), 信区: VB
标  题: 突破SendKeys的限制
发信站: 武汉白云黄鹤站 (Thu Jun 10 15:49:36 1999), 站内信件
    SendKeys 不能实现一些特殊的键，如 Alt+PrintScr 。不过使用 API ，可以改
变这
样的状况。
声明：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, B

yVal 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 图象。

--

以科计为本,以产业报国!
  超越自我,飞跃无限!


※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)