Question

VB写键盘按键

VB写一个:
当我按F9的时候键盘就会不停得 按5(不是小键盘的)

当我按F得时候 停止按5,然后先按3然后再按1,然后停止运行(都不是小键盘得)

当我按F10得时候停止按5(不是小键盘得)

如果行得话,弄总保持激活状态.因为游戏是全屏游戏,不激活按起来也没反应.

或者给源码我邮箱954614831@qq.com

不要按键精灵得呀!!!
把他保存发给我OK?
954614831@qq.com

Answer 1

针对网络游戏?那么楼上的没用的,这个函数被屏闭了...

Answer 2

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF9) Then Timer2.Interval = 500
If GetAsyncKeyState(vbKeyF10) Then Timer2.Interval = 0
If GetAsyncKeyState(vbKeyF) Then
Timer2.Interval = 0
SendKeys "3"
SendKeys "1"
End If
End Sub

Private Sub Timer2_Timer()
SendKeys "5"
End Sub

发了