在指定时间内执行某种操作，利用Datediff函数

 

T1=Now
Do Until DateDiff("n",T1,Now)>1　　//一分钟内，执行下列操作
　　KeyPress "Space", 1
　　KeyPress "W", 1
　　KeyPress "S", 1
Loop