vbs實(shí)現(xiàn)的定時(shí)提醒你休息的腳本
更新時(shí)間:2008年06月18日 12:15:26 作者:
天天坐在電腦前的朋友要每隔一段時(shí)間活動(dòng)一下,不然身體會(huì)變得越來(lái)越差。下成的vbs腳本可以每隔一段時(shí)間來(lái)提醒你。
復(fù)制代碼 代碼如下:
set WshShell = WScript.CreateObject("WScript.Shell")
'對(duì)話框標(biāo)題
alerttitle = "定時(shí)提醒"
'提醒內(nèi)容,vbnewline為換行符
alerttext = vbnewline & vbnewline & "休息一下,活動(dòng)一下胳膊,脖子,腰部。" & vbnewline & vbnewline & vbnewline & "生命在于運(yùn)動(dòng)"& vbnewline & vbnewline & vbnewline
for i = 1 to 12 '12為提醒的次數(shù)
WScript.Sleep(1000*60*45) '每45分鐘提醒一次
msgbox alerttext,4096,alerttitle
next
將上面代碼存為:定時(shí)提醒.vbs ,然后雙擊遠(yuǎn)行,進(jìn)程中會(huì)有一個(gè)wscript.exe的進(jìn)程,結(jié)束后他就不會(huì)提醒了。
相關(guān)文章
VBS教程:VBscript屬性-FirstIndex 屬性
VBS教程:VBscript屬性-FirstIndex 屬性...2006-11-11vbs實(shí)現(xiàn)的圖片自適應(yīng)表格,目前最佳解決方案!
用vbs實(shí)現(xiàn)的圖片自適應(yīng)代碼2008-06-06VBS教程:正則表達(dá)式簡(jiǎn)介 -非打印字符
VBS教程:正則表達(dá)式簡(jiǎn)介 -非打印字符...2006-11-11