热键API问题?各位大哥帮帮忙..急..

[jackyhyoung]

我用VB写下了如下代码:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private aa As Boolean
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
Print GetAsyncKeyState(vKeyCode)
End Function

Private Sub Timer1_Timer()

If MyHotKey(vbKeyNumpad0) Then
Print 0;
End If
If MyHotKey(vbKeyNumpad1) Then
Print 1;
End If
End Sub

(控制多个键)
原则上是这样的..(后按下者优先，先按下者释放后才有效。
如:按1不放开，则一直有效，这时按下3，虽然1是按下的。，如1想继续有效，
要释放后再按下才行。)

小弟头痛了很久..各位帮帮忙啊?

[supergreenbean]

不懂....

[jackyhyoung]

就是做到像key_press这样的效果啊.