Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_F6 = 112
Const VK_F3 = 114
Const VK_F4 = 115
Const KEYEVENTF_KEYUP = &H2Private Sub Form_Load()
Timer2.Interval = 300
Timer2.Enabled = True
End SubPrivate Sub Timer2_Timer()
keybd_event VK_F6, 0, 0, 0
Sleep 30
keybd_event VK_F6, 0, KEYEVENTF_KEYUP, 0   '释放A键
Sleep 30
End Sub

解决方案 »

  1.   

    现在好多游戏都不能使用这种方法去模拟按键,如果你样子不行的话,你可以试试高层的PostMessage多试试,也许可以。
      

  2.   

    用了PostMessage向游戏窗体发送按键信息但是没有用,只能出来字母,不能实现快捷按键。而且我用了FindWindowEx函数来获得窗体中控件句柄,想用PostMessage对窗体中控件直接发送按键信息,但是根本就查找不出窗体中控件句柄,而在测试中使用的记事本缺可以实现。
      

  3.   

    问题解决了,输入以下代码就OK~-~
    Const  VK_F6  =  117  
    keybd_event VK_F6, MapVirtualKey(VK_F6, 0), 0, 0    '按下F6键
    Sleep 200
    keybd_event VK_F6, MapVirtualKey(VK_F6, 0), KEYEVENTF_KEYUP, 0    '释放F6键
    Sleep 200