t1 = timeDo Call A If DateDiff("s", t1, time) >= 3600 Then Call B t1 = time End IfLoopSub A //这里放要持续循环的脚本End SubSub B //这里放一小时运行一次的脚本End Sub