用VB制作热血江湖挂的时候遇到问题.

只是想试一下可不可以模拟热血江湖F1到F10 的键子，失败了。以下是源码。
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_F1 As Long = &H70

Private Sub Timer1_Timer()
Call keybd_event(VK_F1, 0, 0, 0)
Delay 300
Call keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0)
End Sub

我把timer1 设置成1秒执行一次，然后运行程序，然后切到游戏中，我的功击技能放到F1上，然后用鼠标点了一个怪，不打呀，按理说应该每一秒钟发一下技能的呀。没有模拟成功，请哪个大侠帮帮忙啦，非常感谢。

KEYEVENTF_KEYUP 常量我后来也定义了也没成功。
这个程序在WINDOWS里面以经好用了，以经能模拟按下F1键了，但是一进游戏里就不好用了。
如果在游戏里模拟按下"a"键，就可以成功。
改成三秒也不能运行。

用VB制作热血江湖挂的时候遇到问题. 我玩热血江湖时候遇到的问题 热血江湖进的时候 热血江湖问题,从没遇到的情况 热血江湖的门徽制作 关于热血江湖门徽的制作 关于热血江湖的门辉制作 热血江湖的门徽怎么制作！ 热血江湖装备哪个时候用最好的？ 热血江湖GF 窗口的时候大家都用什么挂J啊?