页面导航：首页 → 脚本专栏 → vbs → 正文内容

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

发布：dxy 字体：[增加减小] 类型：转载

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