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

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

批处理代码

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

图1：

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

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

 

批处理代码

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

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

分享到：

Css3 新特性 | 图片特效脚本 lightbox 更新至2.03

• 2007-09-10 11:17
• 浏览 1471
• 评论(0)
• 查看更多