How to use VBS to implement timing reminder script
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!
