a = 1
Do
If time = "10:00:00" Then
//上面"10:00:00"就是十点整则运行,可自行修改,比如"15:25:33"。
t1 = time
Call 后续脚本
Exit Do
End If
Loop
Do
//上面是固定某个时间运行一分钟脚本,然后
//这里的循环就是从上面那个时间开始一小时运行一分钟的脚本
If cint(datediff("s", t1, time)) >= 3600 * a Then
Call 后续脚本
a = a + 1
End If
Loop
Sub 后续脚本
a1 = time
Do
//这里放你的脚本
Loop Until cint(datediff("s", a1, time)) >= 60
End Sub
复制上面代码可达成