msg=inputbox("請輸入語音提示內容必須是英文句子或單詞","提醒助手","10 minutes past")
For a=1 To 100000
WScript.Sleep waittime
set sapi=createobject("sapi.spvoice")
sapi.speak msg
next
保存為.vbs文檔; 雙擊運行即可。 可以自己設置提醒時間及提醒語音