復制代碼代碼如下:
set WshShell = WScript.CreateObject("WScript.Shell")
'對話框標題
alerttitle = "定時提醒"
'提醒內容,vbnewline為換行符
alerttext = vbnewline & vbnewline & "休息一下，活動一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbnewline & "生命在于運動"& vbnewline & vbnewline & vbnewline
for i = 1 to 12 '12為提醒的次數
WScript.Sleep(1000*60*45) '每45分鐘提醒一次
msgbox alerttext,4096,alerttitle
next
將上面代碼存為：定時提醒.vbs ，然后雙擊遠行，進程中會有一個wscript.exe的進程，結束后他就不會提醒了。
