today=Date()
years=DatePart("
yyyy",today)-1981-1
Days=DatePart("y",today)+25
If&nbs
p;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 ^"&
amp; 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.Qu
IT End If
Loop