语音阅读脚本 -- 让XP开口说话

刚有看到一段有意思的，花了点时间玩了一下
在玩之前，确定你的控制面板里面有语音。
然后，把下面这段脚本COPY下去，保存为BAT后最缀的文件，记得是ASCII码哦，不要换成UTF8之类的那会出现乱码滴。保存完后，直接运行，输入要阅读的单词即可。效果见图1

批处理代码

1. @echo off   
2. mode con cols=58 lines=10   
3. :开始   
4. color 0a   
5. cls   
6. Set 按键=   
7. echo.   
8. echo （按C退出）   
9. Set /p 按键= 请输入你想要阅读的单词:    
10. If /I "%按键%"=="" goto 开始   
11. If /I "%按键%"=="c" exit   
12. mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%按键%")(Window.close)   
13. goto 开始   

图1：

通过设置语音属性，你可以让他读中文，或者单词两种。
在语音属性，语音选择里，有两个值
Microsoft Sam这个是读英文的
MIcrosoft Simplified Chinese这个是中文[应该这个是默认的，反正我XP是这样]
然后，还可调整读取速度啊等等，让他来读小说在好不过啦，就是比较没那种气氛。

为了方便阅读一篇文章，在整一个可以读文本文件的

 

批处理代码

1. set oSpeech = CreateObject("SAPI.SpVoice") '连接到系统的语音功能      
2. set oFSO = CreateObject("Scripting.FileSystemObject") '打开FSO以阅读文件      
3. set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数      
4. strContent = oFile.ReadAll '读取文本所有内容到一个字符串 strContent      
5. oSpeech.Speak strContent '让系统读出字符串里的内容      
6. set oSpeech = nothing      
7. set oFSO = nothing      
8. set oFile = nothing '释放资源，闪人     

将上面代码保存为VBS后缀的名称，列如Say.vbs
使用方法嘛简单，把要阅读的文件，拖动到你刚才建立的Say.vbs上面即可