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,"VEVB武林網提示" 
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