扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
这篇文章主要讲解了“如何编写代码实现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分钟提醒这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是创新互联网站建设公司，，小编将为大家推送更多相关知识点的文章，欢迎关注！
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网