求大佬赐个固定时间弹窗的代码

萌新路过……
可以用控制面板里的任务计划啊（这么说是因为我弄的vbs还没能测试成功）

'总感觉电脑自带的稳妥点，或者等大佬……用这个的话（不保证不会出错啊）把它放在所有程序的启动里就行了，第一次可以手动打开或者重启。测试发现它会提前一分钟内弹窗……
msgbox"这个只是我为了知道已经打开了，不然啥也不发生，也不知道运没运行【笑哭】",,"打卡提醒已开启"
dim a,b,c,d
a="8:25:00"
b="12:00:00"
c="13:25:00"
d="17:30:00"
do
x=round((timevalue(a)-time)*20*60,2)
if x<1 then
if x>0 then
msgbox"该打卡了！",64
end if
end if
y=round((timevalue(b)-time)*20*60,2)
if y<1 then
if y>0 then
msgbox"该打卡了！",64
end if
end if
z=round((timevalue(c)-time)*20*60,2)
if z<1 then
if z>0 then
msgbox"该打卡了！",64
end if
end if
o=round((timevalue(d)-time)*20*60,2)
if o<1 then
if o>0 then
msgbox"该打卡了！",64
end if
end if
wscript.sleep 59000
loop