'总感觉电脑自带的稳妥点,或者等大佬……用这个的话(不保证不会出错啊

)把它放在所有程序的启动里就行了,第一次可以手动打开或者重启。测试发现它会提前一分钟内弹窗……
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