Dim MyHour,MyVarrem aaaMyHour = Hour(Now) MyVar = Minute(Now) if MyHour=7 and MyVar=40 then//满足早上7点40条件,执行下面你的脚本 elseDelay 60000goto aaaend if