如果你感覺到無(wú)聊，不妨讓你的計(jì)算機(jī)講個(gè)故事給你聽。

只需一個(gè)代碼即可實(shí)現(xiàn)計(jì)算機(jī)語(yǔ)音講故事。

右鍵單擊桌面任意空白位置，依次選擇右鍵菜單中的“新建”→“文本文檔”。

左鍵單擊選中“新建文本文檔.txt”，按下鍵盤上的F2，對(duì)其重命名。將文件名及文件擴(kuò)展名修改為“講故事.vbs”。

請(qǐng)注意將計(jì)算機(jī)的文件擴(kuò)展名設(shè)置為可見，否則上面的操作無(wú)效。

右鍵單擊“講故事.vbs”，選擇右鍵菜單中的“編輯”。

將代碼區(qū)域的代碼粘貼至文檔中，同時(shí)按下鍵盤上的“Ctrl+S”鍵保存文檔。

雙擊打開“講故事.vbs”，根據(jù)提示操作就可以讓你的計(jì)算機(jī)講故事了。

代碼區(qū)域：

Dim a,b

a = Msgbox ("給你講個(gè)故事！",vbyesno)

Set b = CreateObject("sapi.spvoice")

b.rate = 5 '速度-10,10

b.volume= 100 '音量 0,100

If a = vbyes then

Do

b.speak "一二三四五"

b.speak "上山打老虎"

b.speak "老虎沒打著"

b.speak "打著小松鼠"

b.speak "松鼠有幾只"

b.speak "我來(lái)數(shù)一數(shù)"

b.speak "數(shù)來(lái)有數(shù)去"

a=1

Loop While a=1

End if

代碼簡(jiǎn)介：

a = Msgbox ("給你講個(gè)故事！",vbyesno)

彈出對(duì)話框，顯示“是”和“否”按鈕。引號(hào)中的內(nèi)容可以根據(jù)情況替換。

“b.rate = 5”用來(lái)調(diào)節(jié)語(yǔ)音播放的速度，范圍值“-10~10”。

“b.volume= 100”用來(lái)調(diào)節(jié)語(yǔ)音播放的音量，范圍值“0~100”。

b.speak "一二三四五"引號(hào)中的內(nèi)容可以根據(jù)情況替換。

循環(huán)小故事：

從前有座山，山里有座廟，廟里有個(gè)老和尚在看報(bào)，看的什么報(bào)？從前有座山，山里有座廟……

運(yùn)行后如何關(guān)閉呢？

同時(shí)按下鍵盤上的“Ctrl+Shift+Delete”打開任務(wù)管理器，找到“Microsoft ? Windows Based Script Host”，右鍵單擊，選中右鍵菜單中的“結(jié)束任務(wù)”。

請(qǐng)注意：代碼中的標(biāo)點(diǎn)符號(hào)都為英文符號(hào)，引號(hào)中的內(nèi)容除外。

知識(shí)改變命運(yùn)，科技成就未來(lái)。今天的分享就到此結(jié)束，感謝您的支持。