发信人: fishy()
整理人: fishy(2000-04-28 14:48:15), 站内信件
|
发信人: murmur (其实不想走), 信区: VB
标 题: 突破SendKeys的限制
发信站: 武汉白云黄鹤站 (Thu Jun 10 15:49:36 1999), 站内信件
SendKeys 不能实现一些特殊的键， 如 Alt+PrintScr 。 不过使用 API ，
可以改变这
样的状况。
牋?声明：
牋牋牋 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As B
yte, 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 图象。
--
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.yes8.com
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.37.14]
|
|