15分钟提醒一次，珍惜时间啊
- 作者: oo60582621
- 来源: 51数据库
- 2021-06-30
15分钟提醒一次，珍惜时间啊
保存为.vbs
today=date()
years=datepart("yyyy",today)-1981-1
days=datepart("y",today)+25
if datepart("m",today)=12 then
if datepart("d",today)>=9 then
msgbox "ok"
years=years+1
days=datepart("d",date)-9
end if
end if
msgbox "at ^"& years & "c!"&days&"d^ space-time!",4096+64,"提示"
set wshshell=createobject("wscript.shell")
do
wscript.sleep 900000
getstr=msgbox("15分钟过去了!",4097,"......!")
if getstr=vbcancel then
wshshell.popup "bye-bye!",2,"......!"
wscript.quit
end if
loop
保存为.vbs
复制代码 代码如下:
today=date()
years=datepart("yyyy",today)-1981-1
days=datepart("y",today)+25
if datepart("m",today)=12 then
if datepart("d",today)>=9 then
msgbox "ok"
years=years+1
days=datepart("d",date)-9
end if
end if
msgbox "at ^"& years & "c!"&days&"d^ space-time!",4096+64,"提示"
set wshshell=createobject("wscript.shell")
do
wscript.sleep 900000
getstr=msgbox("15分钟过去了!",4097,"......!")
if getstr=vbcancel then
wshshell.popup "bye-bye!",2,"......!"
wscript.quit
end if
loop
推荐阅读
