首先新建一個txt的文本文檔,在文本中輸入以下代碼:
set vSpeaker = CreateObject('SAPI.SpVoice')vSpeaker.Speak '主人主人,來消息啦'
文本內(nèi)容
然后修改文件的后綴名為vbs
修改后綴名
接著選擇文件另存為,編碼格式選擇ANSI,不然中文無法播報
設(shè)置編碼格式
接著雙擊這個文件,恭喜你,能聽到電腦說話了。
那么結(jié)合我昨天寫的內(nèi)容,我們就可以實現(xiàn)到時間了就播放當(dāng)前要做的事的語音
傳送地址: 如何用VB實現(xiàn)桌面提醒小程序
(鏈接文章更正)
該處缺少一行代碼
現(xiàn)在我們只要修改兩處地方即可,第一處,還是需要開啟語音程序
開啟語音程序
第二處,就可以在想要說話的地方調(diào)用
調(diào)用方法
那么到了時間點,就會播放一下語音,然后出現(xiàn)提示框,大家如果有興趣可以嘗試下。
明天會教大家如何用電腦設(shè)置定時任務(wù),然后自動播放語音,而不需要每天自己手動開啟程序