如何编写代码实现15分钟时间提醒

这篇文章主要讲解了"如何编写代码实现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

感谢各位的阅读，以上就是"如何编写代码实现15分钟提醒"的内容了，经过本文的学习后，相信大家对如何编写代码实现15分钟提醒这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是，小编将为大家推送更多相关知识点的文章，欢迎关注！