15分鐘提醒一次，珍惜時(shí)間啊
更新時(shí)間：2006年09月07日 00:00:00 作者：
15分鐘提醒一次，珍惜時(shí)間啊
保存為.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
復(fù)制代碼 代碼如下:
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
相關(guān)文章
VBS教程：函數(shù)-FormatDateTime 函數(shù)
VBS教程：函數(shù)-FormatDateTime 函數(shù)...2006-11-11
用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本
一個(gè)可以隱藏任務(wù)欄圖標(biāo)的腳本，方便需要隱藏任務(wù)欄圖標(biāo)的朋友2008-06-06
vbs高手總結(jié)出來的，看來我們真忽略了他的真正強(qiáng)大的地方2008-07-07
解鎖注冊表的vbs腳本...2007-02-02
有時(shí)候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了2013-09-09
vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼
這篇文章主要介紹了vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼,需要的朋友可以參考下2019-04-04
vbs枚舉進(jìn)程 vbs列出進(jìn)程的詳細(xì)列表
這篇文章主要介紹了vbs枚舉進(jìn)程 vbs列出進(jìn)程的詳細(xì)列表,需要的朋友可以參考下2016-12-12
vbscript和javascript版的15位, 18位的身份證號碼的驗(yàn)證函數(shù).以及根據(jù)身份證取省份,生日,
vbscript和javascript版的15位, 18位的身份證號碼的驗(yàn)證函數(shù).以及根據(jù)身份證取省份,生日,性別2007-04-04
用vbscript實(shí)現(xiàn)的向指定的文件寫字符串，第三個(gè)參數(shù)指定是否刪除原來的內(nèi)容，喜歡的朋友可以測試系2013-01-01
可以將Bat轉(zhuǎn)換位VBS文件的VBS腳本...2007-07-07