您好,登錄后才能下訂單哦!
你是不是也是工作一忙就忘記喝水休息了?想寫個(gè)小工具來提醒自己,同類的小桌面時(shí)鐘提醒軟件已經(jīng)很多,實(shí)現(xiàn)也很簡單,下面就是用VBScript幾分鐘寫的一個(gè),提示內(nèi)容隨便寫的,想私人訂制,改改就好了,新建文本復(fù)制下面代碼保存,后綴改為.VBS雙擊就可以用了哦……
option explicit on error resume next dim interval,delayTime,WshShell,i dim context,Time interval = inputbox("請(qǐng)輸入提醒的時(shí)間間隔(單位/分鐘):","輸入:",30) if interval="" or IsNull(interval) then interval=30 end if delayTime=interval*60000 set WshShell = WScript.CreateObject("WScript.Shell") context = vbnewline &"你已連續(xù)工作"&interval&"分鐘"& vbnewline & "休息一下,動(dòng)動(dòng)胳膊,伸伸腿……" & vbnewline & vbnewline '提醒次數(shù)12 for i = 1 to 12 WScript.Sleep(delayTime) Time=Hour(now)&":"&Minute(now)&":"&Second(now) if i<=2 then context ="現(xiàn)在時(shí)間:" &Time &" ,你已連續(xù)工作"&interval*i&"分鐘。" &vbnewline & vbnewline & "休息一下,動(dòng)動(dòng)胳膊,伸伸腿……" & vbnewline & vbnewline call PopupShowStr(context) elseif i<=5 and i>=3 then context ="現(xiàn)在時(shí)間:" &Time &" ,你已連續(xù)工作"&interval*i&"分鐘。" &vbnewline & vbnewline & "喝杯水,眼睛休息下咯……" & vbnewline & vbnewline call PopupShowStr(context) elseif i<=8 and i>=6 then context ="現(xiàn)在時(shí)間:" &Time &" ,你已連續(xù)工作"&interval*i&"分鐘。" &vbnewline & vbnewline & "是不是覺得肩膀酸痛,眼睛干澀?是,還不休息下……" & vbnewline & vbnewline call PopupShowStr(context) elseif i<=12 and i>=9 then context ="現(xiàn)在時(shí)間:" &Time &" ,你已連續(xù)工作"&interval*i&"分鐘。" &vbnewline & vbnewline & "哎,健康是自己的,你看著辦吧……" & vbnewline & vbnewline call PopupShowStr(context) end if next '定義一個(gè)彈出框顯示文本內(nèi)容的函數(shù) Function PopupShowStr(string) Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") '將文本內(nèi)容顯示在彈出框中 call WshShell.Popup(string,0,"定時(shí)提醒:") End Function
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。