Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to achieve vbs reminder Mini Program, the article is very detailed, has a certain reference value, interested friends must read it!

How to use it:

1. Save the following code as: Ring.vbs (the file name can be customized)

two。 Move Ring.vbs to the program startup group so that you can start automatically with WINDOWS (location: start-program-start, XP startup group location: C:\ Documents and Settings\ your user name\ "start" menu\ program\ start\)

3. I use Window's own Media Player to play music here, so first open your Media Player and save the "playlist in progress" to D:\ Music\ MyMusic.wpl (the save path can be customized, but you need to modify the strSoundFile path in the code below), and then you can automatically remind you by turning on your computer!

Note: if you are using Winamp to play music, you must change the path to the playlist file address of Winamp, and the values of strCommand and strCommand2, such as:

StrCommand = "C:\ Program Files\ Winamp\ winamp.exe / prefetch:1 / Task MediaLibrary" & Chr (34) & strSoundFile & Chr (34) 'play music

StrCommand2 = "taskkill / im winamp.exe" 'close the music program

'/ / the code starts

Set objShell = WScript.CreateObject ("WScript.Shell")

J = 60 'working time (minutes)

N = 10 'rest time (minutes)

AlertText = "take a break and listen to music" & Chr (10) & "move your neck and waist." & Chr (10) & "Life lies in exercise!" 'for reminders, Chr (10) is a newline character

AlertText2 = n & "it's time for a minute break. Get back to work!"

StrSoundFile = "D:\ Music\ MyMusic.wpl" 'Auto playlist address

StrCommand = "wmplayer.exe / prefetch:1 / Task MediaLibrary" & Chr (34) & strSoundFile & Chr (34) 'play music

StrCommand2 = "taskkill / im wmplayer.exe" 'close the music program

For I = 1 To 12'12 is the number of reminders

WScript.Sleep (1000 * 60 * j)

MsgBox alertText, 64

ObjShell.Run strCommand, 1, False

WScript.Sleep (1000 * 60 * n)

ObjShell.Run strCommand2, 0, True

MsgBox alertText2, 64

Next

'/ / end of code

The above is all the contents of the article "how to achieve vbs reminder Mini Program". Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.