刚有看到一段有意思的,花了点时间玩了一下
在玩之前,确定你的控制面板里面有语音。
然后,把下面这段脚本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上面即可