Question

15分 按键精灵9 在6个时间段运行不同脚本 读取时间要1分钟读取一次，不要1秒读取一次

请高手帮忙，写出完整程序，我只需要自己插入代码就好。（只涉及到2段代码，只是运行时间不同，还有代码循环次数不同）
要求：1、按1分钟读取一次，绝对不要1秒读取一次的；如果按秒读取时间，就卡死了
2、要求11:00读取运行代码A，11:30运行代码B，16：30执行代码A：18:00执行代码B，20:30执行代码A，22:00执行代码A

Answer 1

直接使用时间比较啊

While True

	
	mytime = time
	If mytime > "11:00:00" and mytime < "11:01:00" Then 
		Call A()
	End If
	Delay 59000
	
Wend

Function A
	MessageBox "a"
End Function

//最好使用小于60秒delay，不然容易出现问题

Answer 2

这里你要说明，运行代码A，代码B的时间需要多少，假设代码A和代码B都是死循环，那么实现你这功能就要多线程，假如一会就执行完了，单线程就可以了。再说，按秒读取，也不会卡死，卡死肯定是另有原因，不是读取时间的问题。下面给你一个例子，看链接，你理解代码后，自己修改：
http://zhidao.baidu.com/question/424068433681498812.html?oldq=1

追问

这个例子我已经试了，不行的，我这个肯定不是死循环的，用了FOR 循环语句，都是循环一定次数就停止了。

追答

我都是用这个方法做的，没问题的，这是我做的一个软件：

没有问题的，下面是我的程序结构：（其中StartTime，StopTime从界面获取了。）

TimeDifference = 10
  While TimeDifference < - 2  Or TimeDifference > 2
   TimeDifference = DateDiff("s", Time, StartTime)
   Delay 2000
  Wend
  
  TimeDifference = 10
  While TimeDifference < - 2  Or TimeDifference > 2
   //这段是我要执行的代码，这点代码执行一次大约2秒
   TimeDifference = DateDiff("s", Time, StopTime)
  Wend