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

This article mainly introduces how to use VBS to achieve timing reminder script, the article is very detailed, has a certain reference value, interested friends must read it!

'/ * =

'* Intro timed reminder. Format: time | prompt. For more information, please see examples.

'* FileName Remind.vbs

'* Author yongfa365

'* Version v1.0

'* WEB http://www.yongfa365.com

'* Email yongfa365 [at] qq.com

'* FirstWrite http://www.yongfa365.com/Item/Remind.vbs.html

'* MadeTime 2008-06-18 19:26:32

'* LastModify 2008-06-18 19:26:32

'* /

Tx = True

Used = ""

T = ""

'The ■ modifiable region starts ■

T = t & "|" & "10:00:00 | hello,hi, is it a beauty?"

T = t & "| &" 11:30:00 | Beauty, it's time to eat! "

T = t & "|" & "14:00:00 | not sleepy? take a rest when you are sleepy. Pay attention to the door. Watch out for peeping. Wow, Gaga."

T = t & "|" & "16:30:00 | you miss a handsome guy. Smile ^-^"

T = t & "|" & "17:30:00 | it seems to be getting off work."

T = t & "|" & "18:00:00 | handsome guy hasn't come home yet? please remind me."

T = t & "|" & "22:30:00 | Brother, back up the current data, time is up."

'■ modifiable region end ■

T = Right (t, Len (t)-1)

Do While tx

WScript.Sleep 10000mm 10 seconds test

Tixing ()

Loop

Function tixing ()

T2 = Split (t, "|")

For I = LBound (T2) To UBound (T2) step 2

Txsj = CDate (Date & "& T2 (I))

If DateAdd ("n",-1, Now) = txsj And InStr (used, T2 (I)) = 0 Then

Remind me if the time difference is one minute and has not been reminded

MsgBox T2 (I + 1)

Used = used & T2 (I) 'record what you have been reminded to record

End If

Next

End Function

The above is all the contents of the article "how to use VBS to implement a timed reminder script". 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.