谁能用VB编个垃圾按键精灵？只要3个键就OK拜托了各位 谢谢

Private Sub Form_Load() Timer1.Interval = 3000 End Sub Private Sub Timer1_Timer() Static i As Integer Select Case i Case 0 Call keybd_event(37, 0, 0, 0) i = 1 Case 1 Call keybd_event(39, 0, 0, 0) i = 2 Case 2 Call keybd_event(32, 0, 0, 0) i = 0 End Select End Sub 然后新建一个模块，在模块中声明 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 这样就可以实现你所要的效果（ ← 3秒 →3秒 空格1下）了 具体思路： 通过API函数keybd_event来模拟按键，定义一个静态变量i ,通过i 的值来确定模拟按← 、 →和空格三个中的哪一个，用timer控件来实现定时按键

我在写程序给你，写好了我传给你，我的Q：491217650