UC知道求帮忙写一个vbs?
来源：百度知道 编辑：UC知道 时间：2024/05/11 18:11:16
让这个VBS可以自动运行,既在每天的11:30pm和11:50pm的时候自动弹出对话框,内容是"天色已晚,改睡觉了!!!"
将以下代码复制到记事本，另存为Notice.vbs即可：
Dim Notice_Time,Notice_Text,Notice_Title
Notice_Time = "23:30;23:50"
Notice_Title = "温馨提示"
Notice_Text = "天色已晚,该睡觉了!!!"
Dim S,T,i,L
S = Split(Notice_Time,";")
For i = 0 To Ubound(S)
T = Date&" "&S(i)&":00"
L = DateDiff("s",Now,T)
If L>=0 then Wscript.sleep(L*1000)
Rem 4096 Is A style Of MsgBox
Msgbox Notice_Text,4096,Notice_Title
Next
如果需要每天自动运行，需要手动将该VBS文件添加到启动项。