谁有连发程序的源代码实例谢谢了，大神帮忙啊

Question

1、我用的是VB编程 2、实例最好是set ahk的代码…… 谢谢各位高手了~！

Answer 1

这个代码不支持组合键如 还有F1-F12 代码给你完善了下： Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() If Text1.Text <> "" And Command1.Caption = "开始" Then Command1.Caption = "暂停" Timer1.Interval = Combo1.Text Else Command1.Caption = "开始" Timer1.Interval = 0 End If End Sub Private Sub Form_Load() Combo1.AddItem 100 Combo1.AddItem 200 Combo1.AddItem 400 Combo1.AddItem 600 Combo1.AddItem 800 Combo1.AddItem 1000 Combo1.AddItem 2000 Combo1.Text = Combo1.List(1) End Sub Private Sub Timer1_Timer() Call keybd_event(Asc(Text1), 0, 0, 0) End Sub