除了sendkeys以外还有什么办法向窗口发送模拟键盘指令？

Question

Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)***************请自己声明甬道的api函数和常数声明****************public sub mycapture(byval mode%)
dim altscan%
dim dl%
dim snapparam%
altscan=mapvirtualkey(vk_menu,0)
cmdcaptall.enabled=false
cmdcapyac.enabled=false
if mode then
keybd_event vk_menu,altscan,0,0
end if
if mode=0 and iswindows95 then snapparam=1
doevents
keybd_event vk_snapshot,snapparam,0,0
doevents
picture1.picture=clipboard.getdata(vbcfbitmap)
if mode then keybd_event vk_menu,altscan,Keyevent_keyup,0
cmdcaptall.enabled=true
cmdcapyac.enabled=true
end sub这是一个利用模拟按键截取屏幕的例子,在form上放两个button,其name为:
cmdcaptall (截取全凭)
cmdcapyac  (截取活动窗口)在放置一个Picture控件

Answer 1

键盘锁定的情况下,sendkeys()函数并没有失效！！！