把时间全部放在一个数组里面就行了,不过我下面给的代码也是有漏洞的,漏洞就是必须在第一个时间之前启动脚本,并且数组的时间要从早时间到晚时间这个顺序排列,要不就执行有错,如果想消除漏洞也可以,不过代码就会复杂点,我只给有漏洞的代码:
TimeEx = Array("6:02", "6:32", "7:02", "7:32", "8:02", "8:32")
n = 0
While True
NowTime = TimeEx(n)
If Time = CDate(NowTime) Then
Call MyFunction()
n = n + 1
If n > UBound(TimeEx) Then
n = 0
End If
End If
Delay 200
Wend
Sub MyFunction()
//你的代码,执行一遍时间不能超过半个小时
End Sub