Question

VB编写按键程序。VB自动按键

用VB模拟自动按键

前面有6个选择。后面是6个相对应的运行按键. 然后还有一个停止按键，按后停止所有动作。

例如选择1（在1选择那打勾，然后点运行后 键盘自动先按ctrl+d后按ctrl+q
选择2（在2选择那打勾，然后点运行后 键盘自动先按ctrl+d后按ctrl+d

选择3（在3选择那打勾，然后点运行后 键盘自动先按ctrl+q后按ctrl+q
选择3（在3选择那打勾，然后点运行后 键盘自动先按ctrl+q后按ctrl+a

忘了 都要是 能无限 按的 直到自己按 停止 键后才停止！

请把详细过程和代码说下。

qq:343199437 如有问题 也可加QQ！
如果回答的好 我再追加100分！

Answer 1

'一个Timer : Timer1
'两个Command : Command1,Command2
'三个OptionBox : Option1 , Option2 , Option3 .
Option Explicit

'
'请把详细过程和代码说下?

Private Sub Command1_Click()
'1:按键盘的 ALT+TAB(是先按ALT然后不松开ALT按TAB 目的就是为了切换)
SendKeys "%{TAB}"

Me.Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Me.Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
'前面有6个选择。后面是6个相对应的运行按键. 然后还有一个停止按键，按后停止所有动作。
'
'例如选择1（在1选择那打勾，然后点运行后 键盘自动先按ctrl+d后按ctrl+q
If Me.Option1.Value Then
SendKeys "^D"
SendKeys "^Q"
End If
'选择2（在2选择那打勾，然后点运行后 键盘自动先按ctrl+d后按ctrl+d
'
If Me.Option2.Value Then
SendKeys "^D"
SendKeys "^D"
End If
'选择3（在3选择那打勾，然后点运行后 键盘自动先按ctrl+q后按ctrl+q
If Me.Option2.Value Then
SendKeys "^Q"
SendKeys "^Q"
End If
'选择3（在3选择那打勾，然后点运行后 键盘自动先按ctrl+q后按ctrl+a
'
If Me.Option3.Value Then
SendKeys "^Q"
SendKeys "^A"
End If
'
'
'忘了 都要是 能无限 按的 直到自己按 停止 键后才停止！

End Sub

Answer 2

你说有6个选择,怎么只有四个?
发送按键用sendkeys()函数就可以。

语句格式： select case choose
case 1
sendkeys （^q)'按ctrl+q
case 2
sendkeys (^a)'按ctrl+a

.
.
.
end select
要循环可以用两种方法实现：
1。 在command_click中用do...loop实现。
2。 在timer事件中实现