VBS实现的日程提醒小工具

给自己留个云备份。VBS 指的是 Visual Basic Script。

【说明】

    remindMe.vbs脚本使用 VisualBasicScript 编写，可以直接双击运行，也可以在命令行环境下传入参数运行。因为是写给自己用的，所以没有对传入参数进行合法性检查。

【功能】

    在设定好的时间到达时，对日程安排进行弹窗提醒。

【运行】

    法一：直接双击运行。

        

                图1.1  双击运行                                                                    图1.2  设定提醒时间

        

                                    图1.3  设定提醒内容                                                                          图1.4  到点提醒

    法二：命令行传参运行。

    

                                                                 图2.1  命令行传参运行

    

                      图2.2  到点提醒

【源码】

源码如下：

'--------------------------------------------------------------------------------------------------------------------

'判断是否从命令行传入参数

if wscript.arguments.length = 0 then

    alarmTime = Inputbox("设定自动提醒时间:" & vbcrlf & "如 07:30")
    description = Inputbox("添加事件描述:")
elseif wscript.arguments.length = 2 then
    alarmTime = wscript.arguments.item(0)
    description = wscript.arguments.item(1)
end if

'判断设定值是否为空

if alarmTime = "" or description = "" then
    wscript.quit(0)

end if

'判断是否到了设定的提醒时间

while hour(time) < hour(alarmTime)
    wscript.sleep(60000)
wend
while minute(time) < minute(alarmTime)
    wscript.sleep(60000)
wend

'时间到了，进行弹窗提醒

ans = MsgBox(description,vbYesNo,"日程提醒")

'可以暂时忽略，稍后再次提醒

while ans = vbNo
    wscript.sleep(300000)
    ans = MsgBox(description,vbYesNo,"日程提醒")
wend

wscript.quit(0)

'--------------------------------------------------------------------------------------------------------------------