如何让计算机讲故事给你听？

如果你感觉到无聊，不妨让你的计算机讲个故事给你听。

只需一个代码即可实现计算机语音讲故事。

第一步：

右键单击桌面任意空白位置，依次选择右键菜单中的“新建”“文本文档”。

左键单击选中“新建文本文档.txt”，按下键盘上的F2，对其重命名。将文件名及文件扩展名修改为“讲故事.vbs”。

请注意将计算机的文件扩展名设置为可见，否则上面的操作无效。

第二步：

右键单击“讲故事.vbs”，选择右键菜单中的“编辑”。

将代码区域的代码粘贴至文档中，同时按下键盘上的“Ctrl+S”键保存文档。

双击打开“讲故事.vbs”，根据提示操作就可以让你的计算机讲故事了。

代码区域：

Dim a,b

'此处代码请看图片，系统提示发布失败。

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 "我来数一数"

b.speak "数来又数去"

a=1

Loop While a=1

End if

代码简介：

弹出对话框，显示“是”和“否”按钮。引号中的内容可以根据情况替换。

“b.rate = 5”用来调节语音播放的速度，范围值“-10~10”。

“b.volume= 100”用来调节语音播放的音量，范围值“0~100”。

b.speak "一二三四五"引号中的内容可以根据情况替换。

循环小故事：

从前有座山，山里有座庙，庙里有个老和尚在看报，看的什么报？从前有座山，山里有座庙……

运行后如何关闭呢？

同时按下键盘上的“Ctrl+Shift+Delete”打开任务管理器，找到“Microsoft Windows Based Script Host”，右键单击，选中右键菜单中的“结束任务”。

请注意：代码中的标点符号都为英文符号，引号中的内容除外。

知识改变命运，科技成就未来。今天的分享就到此结束，感谢您的支持。