手机版按键精灵简单实现定时的方法

1. Dim t=TickCount()
   
2. 
   
3. Do
   
4. If TickCount() - t >10000 Then 
   
5. TracePrint "时间到了，开始执行任务"
   
6. Else 
   
7. TracePrint "继续等待"
   
8. End If
   
9. Delay 1000
   
10. Loop