這篇文章主要講解了“如何編寫代碼實現15分鐘提醒”，文中的講解內容簡單清晰，易于學習與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學習“如何編寫代碼實現15分鐘提醒”吧！

創(chuàng)新互聯專注于葫蘆島企業(yè)網站建設,響應式網站開發(fā),商城系統(tǒng)網站開發(fā)。葫蘆島網站建設公司,為葫蘆島等地區(qū)提供建站服務。全流程定制網站開發(fā)，專業(yè)設計，全程項目跟蹤，創(chuàng)新互聯專業(yè)和態(tài)度為您提供的服務

保存為.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,"創(chuàng)新互聯網站建設公司，提示"
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

感謝各位的閱讀，以上就是“如何編寫代碼實現15分鐘提醒”的內容了，經過本文的學習后，相信大家對如何編寫代碼實現15分鐘提醒這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是創(chuàng)新互聯網站建設公司，，小編將為大家推送更多相關知識點的文章，歡迎關注！

分享題目：如何編寫代碼實現15分鐘時間提醒-創(chuàng)新互聯
URL分享：http://weahome.cn/article/dhihdd.html