Question

如何用VB实现自动按键

我希望一个用VB编的自动按键程序,
功能很简单:5324789这几个键不停按,
延迟越短越好,
按键6停止/继续此程序

Answer 1

写了一个简易代码，基本上能满足你的需求~~
在Form上添加两个Timer控件，然后在代码窗口中复制粘贴以下代码：

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

Private Sub Form_Load()
Timer1.Interval = 100
Timer2.Interval = 500
Timer1.Enabled = False
End Sub

Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function

Private Sub Timer1_Timer()
SendKeys "{5}"
SendKeys "{3}"
SendKeys "{2}"
SendKeys "{4}"
SendKeys "{7}"
SendKeys "{8}"
SendKeys "{9}"
End Sub

Private Sub Timer2_Timer()
If MyHotKey(vbKey6) Then
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End If
End Sub

程序运行后，按下键盘字符6键后开始不停按键操作，再次按下字符6键即停止。这段代码只适用于目标程序处于前台窗口激活状态下使用！

Answer 2

Application.Sendkey（）'括号里填写需填写的字符的ASCII码

Answer 3

自动按钮只要一个时间控件就可以做到了

Answer 4

你是说用键盘上的键来操作按钮吗

Answer 5

貌似要调用api？