为什么些过程产生的击键对浏览器等程序有效,而对游戏无效,但该游戏可接受“按键精灵”的模拟击键。Public Sub MyCapture(ByVal mode%) '生成一次模拟击键∶Ctrl+R
Dim altscan%
Dim dl&
Dim snapparam%
altscan% = MapVirtualKey(VK_CONTROL, 0)
keybd_event VK_CONTROL, altscan, 0, 0
keybd_event VK_R, 0, 0, 0
keybd_event VK_CONTROL, altscan, KEYEVENTF_KEYUP, 0
End Sub
Dim altscan%
Dim dl&
Dim snapparam%
altscan% = MapVirtualKey(VK_CONTROL, 0)
keybd_event VK_CONTROL, altscan, 0, 0
keybd_event VK_R, 0, 0, 0
keybd_event VK_CONTROL, altscan, KEYEVENTF_KEYUP, 0
End Sub
我想“按键精灵”能实现,那高手就一定有办法。
而且都能发送R键,也就是说非组合键可以!
请高手指点!
看看这个
http://expert.csdn.net/Expert/topic/2922/2922775.xml?temp=.4775202
=========================================
用全局的键盘铆钩子,如果想控制外部的程序,需要定义将钩子放在DLL中才行!!