How to write code to achieve a 15-minute reminder

This article mainly explains "how to write code to achieve a 15-minute reminder". The content in the article is simple and clear, and it is easy to learn and understand. let's study and learn how to write code to achieve a 15-minute reminder.

Save as .vbs

The code is as follows:

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, "prompt"

Set wshshell=CreateObject ("WScript.Shell")

Do

WScript.Sleep 900000

Getstr=MsgBox ("15 minutes have passed!", 4097, ".")

If getstr=vbCancel Then

Wshshell.Popup "Bye-Bye!", 2, ".!"

WScript.Quit

End If

Loop

Thank you for your reading. the above is the content of "how to write code to achieve a 15-minute reminder". After the study of this article, I believe you have a deeper understanding of how to write code to achieve a 15-minute reminder. Specific use also needs to be verified by practice. Here is, the editor will push for you more related knowledge points of the article, welcome to follow!