Question

VB编写自动重复按键的问题！

如：我按一下“a”键。随后系统自动会每隔1000毫秒自动重复按一次（循环）。请问内部代码该如何写呢？

Answer 1

添加两个Timer,第一个Enabled=True,Interval=100,第二个Enabled=Fasle,Interval=1000Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPrivate Sub Timer1_Timer()
If GetAsyncKeyState(41) Then
Timer1.Enabled = Not Timer1.Enabled
Timer2.Enabled = Not Timer2.Enabled
End If
End SubPrivate Sub Timer2_Timer()
SendKeys "a"
End Sub

Answer 2

在模块里加：Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 窗体：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
Timer1.Enabled = True
End If
End SubPrivate Sub Form_Load()
Timer1.Interval = 1000
Form1.KeyPreview = True
End SubPrivate Sub Timer1_Timer()
Call keybd_event(65, 0, 0, 0)
End Sub

Answer 3

Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Answer 4

我用QQ发给你！ 你采我