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
復(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教程：方法-ReadLine 方法...2006-11-11
Vbs是一種變量無關(guān)、解釋性執(zhí)行的腳本語言,下面這篇文章主要給大家介紹了關(guān)于VBS腳本基礎(chǔ)語法的相關(guān)資料,文中通過實例代碼介紹的非常詳細,需要的朋友可以參考下2022-04-04
用vbs讀取文本文件的最后一行...2007-03-03
用vbscript實現(xiàn)修改屏幕保護的等待時間長度
用vbscript實現(xiàn)修改屏幕保護的等待時間長度...2007-04-04
math.vbs 自然數(shù)n的n次方的的和或積的級數(shù)
通項為自然數(shù)n的n次方的的和或積的級數(shù)，求和或積的表達式。2009-09-09
VBS教程：函數(shù)-Time 函數(shù)...2006-11-11
vbs 獲取當前目錄文件數(shù)量的代碼(不包括子文件夾中的)
有時候我們需要獲取當前目錄下有多少個文件，那么就可以參考下面的代碼2013-09-09
用adodb.stream讀取文件并保存為數(shù)組的實現(xiàn)代碼2008-08-08
VBS教程：屬性-ParentFolder 屬性...2006-11-11
VBS教程：方法-Close 方法...2006-11-11