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