t1 = now
Do
KeyPress "1", 1
Delay 1000*60*5
KeyPress "2", 1
Delay 1000*60*5
KeyPress "3", 1
Delay 1000*60*5
KeyPress "4", 1
Delay 1000*60*5
KeyPress "5", 1
Delay 1000*60*5
If DateDiff("h", t1, now) = 2 Then
t1 = now
KeyPress "6", 1
End If
Loop
这样是不是可以了？