楼下的那个可以实现,但不是完美的我给你优化了一下doFor 60100nextKeyPress "Space", 1loop
Sub a()KeyPress "Space", 1Delay 60000 Call a()End Sub
Rem aKeyPress "Space", 1Delay 60000Goto a