超级厉害的VBS定时提醒脚本 Remind.vbs

时间2024-02-11 10:31:03发布访客分类脚本浏览232

导读：收集整理的这篇文章主要介绍了超级厉害的VBS定时提醒脚本 Remind.vbs，觉得挺不错的，现在分享给大家，也给大家做个参考。 '/*=========================...

收集整理的这篇文章主要介绍了超级厉害的VBS定时提醒脚本 Remind.vbs，觉得挺不错的，现在分享给大家，也给大家做个参考。 '/*=========================================================================
' * Intro       定时提醒，格式：时间|提示语，具体使用方法可以参考例子
' * 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 = ""

'■■■■■■■■■■■■■■可修改区域开始■■■■■■■■■■■■■■
t = t & "|" & "10:00:00|hello,hi,是美女不!"
t = t & "|" & "11:30:00|美女，快吃饭了!"
t = t & "|" & "14:00:00|困不困？困了就休息会,注意关门，小心被偷窥哦，哇嘎嘎"
t = t & "|" & "16:30:00|想帅哥了吧，笑一笑^-^"
t = t & "|" & "17:30:00|好像要下班了哦。"
t = t & "|" & "18:00:00|帅哥还没回家？快提醒下"
t = t & "|" & "22:30: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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

若转载请注明出处：超级厉害的VBS定时提醒脚本 Remind.vbs
本文地址： https://pptw.com/jishu/609682.html

vbs正则表达式代码 VBS如何察看或获得剪切板内容的脚本