你是不是也是工作一忙就忘記喝水休息了？想寫(xiě)個(gè)小工具來(lái)提醒自己，同類的小桌面時(shí)鐘提醒軟件已經(jīng)很多，實(shí)現(xiàn)也很簡(jiǎn)單，下面就是用VBScript幾分鐘寫(xiě)的一個(gè)，提示內(nèi)容隨便寫(xiě)的，想私人訂制，改改就好了，新建文本復(fù)制下面代碼保存，后綴改為.VBS雙擊就可以用了哦……

成都創(chuàng)新互聯(lián)公司主要從事成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)平順,十多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):13518219792

 

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 & "是不是覺(jué)得肩膀酸痛，眼睛干澀？是，還不休息下……" & 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

當(dāng)前題目：VBScript寫(xiě)一個(gè)定時(shí)提醒休息的腳本
轉(zhuǎn)載注明：http://www.chinadenli.net/article32/gsjjsc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、全網(wǎng)營(yíng)銷推廣、、微信公眾號(hào)、網(wǎng)站營(yíng)銷、網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)