Question

怎么用VB编写一个循环按键程序

要求：1。设F2为开始运行，F3为停止运行。
2。开始运行后在当前窗口下自动按F8，间隔0.5S后按1，间隔0.5S后按Enter
3。程序无限循环，直至按F3停止。
自学VB，对sendkeys用法一窍不通。
jsada@163.com
随便在哪个窗口下按就有响应

Answer 1

F2和F3是全局热键吗？不是的话，就非常简单了。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub form1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 113 '表示按下F2

Timer1.Enabled = True

Case 114

Timer1.Enabled = False '按下F3

End Select

End Sub

Private Sub Timer1_Timer()

SendKeys "{F8}"
Sleep 500
SendKeys "1"
Sleep 500
SendKeys "{ENTER}"
End Sub

如果是全局热键，稍微麻烦点，不过我这里也有现成的代码。你加我百度HI我传给你.

Answer 2

没问题，占楼，写代码去
------------------------------------
额，问下，你是要按F2，F3是在窗口被激活的时候响应吗？还是随便在哪按F2，F3就有响应？我好决定是否用HOOK写代码。

Answer 3

F2和F3是全局热键吗？不是的话，就非常简单了。Private
Declare
Sub
Sleep
Lib
"kernel32"
(ByVal
dwMilliseconds
As
Long)Private
Sub
form1_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
Select
Case
KeyCode
Case
113
'表示按下F2
Timer1.Enabled
=
True
Case
114
Timer1.Enabled
=
False
'按下F3
End
Select
End
SubPrivate
Sub
Timer1_Timer()
SendKeys
"{F8}"
Sleep
500
SendKeys
"1"
Sleep
500
SendKeys
"{ENTER}"End
Sub如果是全局热键，稍微麻烦点，不过我这里也有现成的代码。你加我百度HI我传给你.

Answer 4

发好了，请查收