语音阅读脚本 -- 让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上面即可

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值