Super powerful VBS timing alert script Remind.vbs

Time:2020-7-13

‘/*=========================================================================   
‘* intro timing reminder, format: time | prompt, specific use method can refer to 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 beginning of modifiable region
T = t – “|” & “10:00:00” Hello, hi, it’s a beautiful woman
T = t – “|” & “11:30:00” beauty, it’s time to eat! “
T = t – “|”, “14:00:00” sleepy? Take a rest when you are sleepy. Close the door and watch out for peeping
T = T & “|”, “16:30:00 you want to be a handsome man, smile ^ – ^”
T = t – “|” & “17:30:00 | it seems to be off work. ”  
T = T & “|” & “18:00:00” is the handsome guy not home yet? Let’s remind you
T = t – “|” & “22:30:00″ brother, it’s time to back up the current data. ”  
End of modifiable region

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

  
Do While tx   
     WScript.Sleep Once every 10000’10 seconds
    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 DateAdd(“n”, 1, Now) >= txsj And InStr(used, t2(i)) = 0 Then  
‘remind if the time difference is one minute and there is no reminder
            MsgBox t2(i + 1)   
Used = used & T2 (I) ‘
        End If  
    Next  
End Function  

Recommended Today

Summary of recent use of gin

Recently, a new project is developed by using gin. Some problems are encountered in the process. To sum up, as a note, I hope it can help you. Cross domain problems Middleware: func Cors() gin.HandlerFunc { return func(c *gin.Context) { //Here you can use * or the domain name you specify c.Header(“Access-Control-Allow-Origin”, “*”) //Allow header […]