这篇文章主要讲解了“如何编写代码实现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分钟提醒这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是亿速云，小编将为大家推送更多相关知识点的文章，欢迎关注！
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
