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

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我传哪渗给你.

1、首先要打开按键精灵已经编辑好，要执行的程序滚虚碰，如下图。

2、然后点击控制命令，如大谈下图。

3、点击【准备循环执行】，想要执行几次就写几。

4、然后点击【插入】命令，点击右侧的源文件，誉谈如下图。

5、在下面的程序复制插入到For 1Next，中间位置，最后复制完成如下图。

按键精灵的无限循环，有多种实现方式。常见的是设为while句式、goto句式、Do 循环句式。

针对脚本本身的无限循环，在“脚本循环”中，选择“循环到按中止键为止”。

以按键精灵9脚本为例：

1、while句式。

i=0

While i=0

Msgbox "我停不下来啦!!快住手则链拦"

Wend

//当循环条件成立的时候，反复执行循环体

2、goto句式。

Goto 标记

Delay 100

Rem 标记

Msgbox "你直接跳到这里了!!,上面的延迟没有被执行!!"

//跳转语句，可以跳转到rem标记过的标记处继续执行

3、Do 循环句式。

i = 0

Do

MessageBox "ok"

Loop While i <>0

//条件唤培放后面，前面的孙胡循环内容可以执行一次！

4、如果仅是为了能无限循环执行脚本，可以在“脚本属性”中，点击“脚本循环”右侧”..“。

5、选择“循环到按中止键为止”，这样脚本就会无限循环。

---