黄聪：自制VB自动下班提醒软件

想做一个自动提醒软件，又懒得再装一个软件，上网找了一个VB的，分享一下。复制到记事本，另存为reminder.vbs，再运行就可以了

'/*=========================================================================    
' * Intro       定时提醒，格式：时间|提示语，具体使用方法可以参考例子    
' * FileName    Remind.vbs    
' * Author      黄聪    
' * Version     v1.0    
' * WEB         http://www.hcsem.com 
' *==========================================================================*/       
tx = True   
used = ""   
t = ""   
'■■■■■■■■■■■■■■可修改区域开始■■■■■■■■■■■■■■    
t = t & "|" & "08:25:00|打卡咯！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！"   
t = t & "|" & "11:58:00|打卡咯！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！"  
t = t & "|" & "13:25:00|打卡咯！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！" 
t = t & "|" & "17:58:00|打卡咯！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！" 
'■■■■■■■■■■■■■■可修改区域结束■■■■■■■■■■■■■■    
t = Right(t, Len(t) -1)    
   
Do While tx    
    WScript.Sleep 10000'10秒种检测一次    
    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   
        '时间相差一分钟且没提醒过的的话提醒    
            MsgBox t2(i + 1)    
            used = used & t2(i)'提醒过的记录一下    
        End If   
    Next   
End Function