VBS可扩展类库--语音库

微软自带了一个语音库，可通过：控制面板--》语音在里面可以发现你本地计算机上所带的语音库。可以设置你的语音库的语音的速度，语音的大小等等。

有关语音库的文档参考：

*******************************************************************************

一、语音朗读软件的好坏，主要从两个方面说，一是软件的功能实用性，二是语音的逼真度。
二、当前的常见的语音阅读软件：
1、为了方便理解，我将方正畅听、文语通和科大讯飞等归为一类，这种软件典型的优点是朗读较逼真，缺点是占用系统资源多、兼容性相当差，大多只能用自有的语音库不能用别的语音库。
2、随读语音、朗文大师、能说会道XP、听网页、中英文朗读专家等等为另一类，这种软件大多本身只有机械的语音，但兼容性非常好，基本都可以使用系统安装了的语音库，适用性非常好。但是，你要会使用这类软件，要会设置（非常简单，比如随读是在最小的那个窗口上右键就弹出菜单了），如果你设置成了机械的声音发出机械的读音你不要说我骗你，本文介绍的语音库就是在这种软件上使用的。
3、上述一类和二类的区别，有点象品牌机和兼容机的区别，品牌机是整体的，你不能随意变更，1G的内存换成2G的就可能开不了机，比如方正畅听，你想用它之外的语音库是不行的，你想在WIN7上用是不行的，在很多电脑上用都会蓝屏的......。而二类就具有很好的兼容性，可以根据自己的需要进行搭配。
4、本人感觉用上述二类软件搭配本文推荐语音库用起来最爽，二类软件中，本人习惯于朗文大师和随读语音。如果你不想下载这些软件也可以用语音库自带的，界面是简单的英文，功能也差不多吧。你还可以点击UserDicChi.exe来编辑词汇，改变朗读语音，方便你的使用。至于导出MP3也是它的优点，体现在速度上面，基本每小时可以导出一部小说，你说快不快？不过只能是wAv格式的，但是质量最好，音质最佳，可以用别的软件转换成MP3。
三、最好的语音库：
个人觉得当前最好的语音（最逼真）就是NeoSpeech.TTS（语音合成引擎）。尤其是里边liang的语音库，是一个宏厚的男声，强烈推荐！！其实NeoSpeech.TTS 有很多语音，比如lily语音库也是很强大的，朗诵有板有眼，听起来较为逼真。说到逼真，听说NeoSpeech.TTS都是真人的词语发音，比起方正畅听是由一字一字组成的比较，让人感觉有真实感，但同时这也是它的一个不足。怎么说呢，因为要是词汇量不足的话，也就是遇到它没有的词，朗读就有些不流畅了，所以这是一个优点也是不足，也许世上没有十全十美的东东吧。
lily语音库有一个小小的缺点，就是有时会跳行朗读，原因我还不是很清楚。所以我现在一般是用hui或者liang这两个语音库，尤其是liang，基本可以满足要求了，虽然它的词汇量相对比较少，但还是可以满足一般日常要求的。
四、语音库下载和安装
下载后，执行里边的setup.exe程序就可以安装，您可以选择自己的安装目录，但安装途径中不要带有汉字，否则不能朗读。安装完成后，你以后打开上述第二类软件，里边语音选项中就会有此语音库了，选中它就行。
此外，这些安装后的语音库同样可以在比如金山词霸、汉语大辞典中使用。
1、中文真人男声语音库 Liang： （222M）推荐！
2、中文真人男声语音库 Wang： （192M）
3、中文真人女声语音库 Lily： （468M）
4、英文真人男声语音库 Paul： （117M）
5、英文真人女声语音库 Kate： （218M）
此外，WINVISTA和WIN7中自带了Lily中文女声和英文Anna女声。用WIN7系统的不用重复下载上述中的第三个和第五个

**********************************************************************************v

转：

下面是用户共享的文件列表，推荐使用eMule 进行下载，您可以点击这些文件名进行下载

资源1：[NeoSpeech.TTS][男声].NeoSpeech.English.Paul_v3.9.3.0.rar 470.6 MB（英语 paul 男声）

资源2：[NeoSpeech.TTS][女声].NeoSpeech.English.Julie_v3.9.3.0.rar541.1 MB （英语 julie 女生）

资源3：[NeoSpeech.TTS][男声].NeoSpeech.Japanese.Show_v3.10.0.0.rar 694.9 MB  （日语 show 男声）

资源4：[NeoSpeech.TTS][女声].NeoSpeech.Japanese.Misaki_v3.10.0.0.rar 513.9 MB （日语 misaki 女声）

资源5：[NeoSpeech.TTS][男声].NeoSpeech.Chinese.Liang_v3.9.1.0.rar 229.4 MB   （中文 liang 男声）

资源6：[NeoSpeech.TTS][女声].NeoSpeech.Chinese.Hui_v3.9.1.0.rar 350.8 MB    （中文 hui 女声）

资源7：[NeoSpeech.TTS][女声].NeoSpeech.Chinese.Lily.zip 476.3 MB    （中文 lily 女声）

资源8：[NeoSpeech].Lily.注册机.rar 3.4 KB                     （中文 lily 破解注册机）

资源9：[NeoSpeech.TTS][男声].NeoSpeech.Korean.Junwoo.exe 353.7 MB

资源10：[NeoSpeech.TTS][女声].NeoSpeech.Korean.Yumi.exe 523.9 MB

资源11：[NeoSpeech.TTS][女声].NeoSpeech.Chinese.Text-To-Speech.Lily.zip 476.3 MB

资源12：[NeoSpeech].Lily注册机.rar 3.4 KB

资源13：verification.txt 315 Bytes

资源14：NeoSpeech-TTS-VoiceWare-Korean-Junwoo-voice-SAPI5-VW37.exe 353.7 MB

资源15：NeoSpeech-TTS-VoiceWare-Korean-Yumi-voice-SAPI5-VW37.exe 523.9 MB

资源16：中英文朗读专家破解版.rar 2.7 MB

 

详细介绍

简介:

引用语音合成（Speech synthesis，或是Text To Speech），简称TTS技术。它涉及声学、语言学、数字信号处理技术、多媒体技术等多个学科技术，是信息处理领域的一项前沿技术。解决的主要问题就是如何将文本状态的文字信息转化为可听的声音信息。使以往只能用眼睛看的文字信息，也可以用耳朵来听。通俗地说，就是让电脑开口说话的技术。
Neospeech的合成语音是当前最好的合成语音，几可乱真，金山词霸和Babylon都可以用这个引擎。系统自带的可以放在一边了。 这个当前发声效果最好的非常自然的文字语音转换引擎，比其它任何引擎都清楚。
这四个发音引擎都是比较好的引擎，发音准确，语调也很接近自然，而且语音也比较悦耳。
TTS的维基解释：
http://zh.wikipedia.org/wiki/TTS
http://en.wikipedia.org/wiki/Speech_synthesis
还有NeoSpeech的官网：http://www.neospeech.com/
要知道关于TTS和NeoSpeech的更多详细讯息还请自行Google。
已全部通过安装测试并已通过安全检测：
操作系统：Windows 7 Build 7600
病毒扫描：Kaspersky Internet Security 2010 9.0.0.463 病毒库版本2010/2/7 20:23:00
这四个发音引擎都是我在网上能够找到的最新版，是自己下载整理后重新打包（因为之前的好多都是分卷而且有密码的，还有些垃圾文件掺杂在里面，所以就自己整理了一下）都是安装版，压缩包里包括了安装文件和破解文件。
以“[NeoSpeech.TTS][男声].NeoSpeech.English.Paul_v3.9.3.0.rar”为例：
解压后点击“Setup.exe”即可安装，安装完毕后，红线所划的文件“Crack_vt_eng_paul16.zip”解压后得到的“vt_eng_paul16.dll”即为破解文件，把该文件放到安装目录的下的lib文件夹，覆盖同名文件即可。下附图


更新：新加入两个中文发音引擎，Hui和Liang，都是我重新打包的，安装方法与破解方法跟之前的那几个是一样的。
PS: 这两个中文引擎我没有安装过，但是跟之前的那四个是同样的来源，都是官方的安装版，所以理论上都是一样的。
至于有人提到的西班牙语和法语，我现在手头上没有资源，假如以后找到的话我会在这里发布的，但是最近都不会再更新了。
这里引用我补充的一个中文发音引擎Lily，是旧资源了，但是挺好用。

--------------------------------------------------------------------------------------------------------

Sub getvoice(s)
     Set sv = CreateObject("sapi.spvoice")
    For Each token In sv.GetVoices
        s=s & token.GetDescription & vbcrlf '
    Next
End Sub