- UID
- 80979
- 帖子
- 2
- 积分
- 2
- 紫菀
- 0 朵
- 花瓣
- 5 片
- 花蕊
- 1 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 1 级
- 在线时间
- 3 小时
- 注册时间
- 2009-8-7
- 登录状态
-
当前离线
|
楼主
发表于 2009-11-26 21:36
| 只看该作者
发现一个好玩的vbs脚本
本帖最后由 觅土 于 2009-11-26 21:37 编辑
文字转声音脚本,复制到记事本后把后缀名改为vbs运行即可- const SSFMCreateForWrite = 3
- const SAFT22kHz16BitMono = 22
- const SVSFlagsAsync = 0
- set objVoice = CreateObject("SAPI.SpVoice")
- strText = "It's a very long time ago, and I can't remember. When I was very very young, my grandfather told me"
- Set objSpFStrm = CreateObject("SAPI.SpFileStream")
- objSpFStrm.Format.Type = SAFT22kHz16BitMono
- objSpFStrm.Open "test.wav", SSFMCreateForWrite, false
- Set objVoice.AudioOutputStream = objSpFStrm
- objVoice.Speak strText, SVSFlagsAsync
- objVoice.WaitUntilDone -1
- objSpFStrm.Close
- set objVoice = CreateObject("SAPI.SpVoice")
- objSpFStrm.Open "test.wav"
- objVoice.Speakstream objSpFStrm
- Set objSpFStrm1 = CreateObject("SAPI.SpFileStream.1")
- objSpFStrm1.Open "c:\Windows\Media\Ding.wav"
- objVoice.Speakstream objSpFStrm1
- Set objSpFStrm2 = CreateObject("SAPI.SpFileStream.1")
- objSpFStrm2.Open "c:\Windows\Media\TaDa.wav"
- objVoice.Speakstream objSpFStrm2
复制代码
把上面的strText = "It's a very long time ago, and I can't remember. When I was very very young, my grandfather told me" 中的It's....改为你想要转为声音的文字就好了,可惜微软不支持中文 |
|