如何用VB制作自动按键

来源：百度知道 编辑：UC知道 时间：2024/06/24 09:14:18
如何用VB制作一个自动按键的程序？
按F9 就开始执行 自动按键12345（不停的循环按12345键）
按F10就暂停执行
按F11就停止执行
按F12就退出程序
还望高手指点指点！
每个键之间间隔时间为0.5秒（500毫秒）

象焦点窗口发送keydown消息.

Public i As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Is = 120
Timer1.Enabled = True
Case Is = 121
Timer1.Enabled = False
Case Is = 122
Timer1.Enabled = False
Case Is = 123
End
End Select
End Sub
Private Sub Form_Load()
i = 1
End Sub
Private Sub Timer1_Timer()
SendKeys i
i = i + 1
If i = 6 Then i = 1
End Sub