VBS极简程序点餐提醒倒计时

2021-07-06 05:06:11

用window系统自带的VBScript编写的两个小程序，用文本文档编辑，另存为【.vbs】后缀即可使用。需要与任务计划程序搭配使用。

弹出对话框

每天上午11点，自动弹出点餐的对话框。时间刚好，不会遗忘

msgbox "云家点餐"

每个整点自动运行，提醒自己起来活动一下，眼睛和身体都需要休息。

Set win = CreateObject("WScript.Shell")  

Dim i   
For i = 60 To 1 Step - 1   
    win.popup "倒计时：" & i, 1, "护眼小程序"
    Wscript.Sleep 1000
Next