do//这里无限循环
Rem a
t = now//获取现在的时间
Delay 200
KeyPress "A", 1
For 10
Delay 200
KeyPress "B", 1
Call ab()
Next
Delay 200
KeyPress "D", 1
if DateDiff("n", t, now) >= 8 then //这里判定现在的时间与t的时间差,单位分钟
Goto a//如果8分钟到了就重头开始
end if
Sub ab()
Delay 200
KeyPress "C", 1
End Sub