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

289 阅读 0 评论 191 点赞

我是靠谱客的博主复杂发箍，这篇文章主要介绍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