15分钟提醒一次，珍惜时间啊

15分钟提醒一次，珍惜时间啊
保存为.vbs

today=date()
years=datepart("yyyy",today)-1981-1
days=datepart("y",today)+25
if datepart("m",today)=12 then
 if datepart("d",today)>=9 then
 msgbox "ok"
 years=years+1
 days=datepart("d",date)-9
 end if
end if 
msgbox "at ^"& years & "c!"&days&"d^ space-time!",4096+64,"提示"
set wshshell=createobject("wscript.shell")
do
wscript.sleep 900000
getstr=msgbox("15分钟过去了!",4097,"......!")
if getstr=vbcancel then 
wshshell.popup "bye-bye!",2,"......!" 
wscript.quit
end if
loop