dim xitongshijian,shezhishijian

xitongshijian = time
shezhishijian = ("6:00:00 AM")

if xitongshijian = shezhishijian then
'设置想要做的动作
end if
dim HH,MM,SS,HH1,MM1,SS1
HH=hour（xitongshijian)
MM=minute(xitongshijian)
SS=secodn(xitongshijian)
HH1=hour(shezhishijian)
MM1=minute(shezhishijian)
SS1=second(shezhishijian)

设定一个时间，当系统时间等于设定时间时候，触发动作
希望对你有帮助