具体代码你应该可以自己写吧 思路:
开始时间 = 当前时间//设置开始时间
Do//无限循环开始
While (现在时间 - 开始时间) < 2.5分钟//如果间隔时间小于2.5分钟,反复执行循环体
//这里是你要循环2.5分钟的代码
Wend//循环结束
开始时间 = 当前时间//重新设置开始时间
//这里放你的下一个程序的代码
Loop//无限循环结束
dim T
T=Time() //进入循环的时间 好像是从1970年到这一刻的秒数
do
if time()-T>=120 then //当前这一刻的时间 减 进入循环的时间
exit do //当运行循环超过两分钟,满足条件,就退出循环
endif
这里写要运行的程序
loop