Question

VBS 如何 调用 外部语音库 以及语音方面的设置

采纳必追加分数……

Answer 1

如果你是winxp系统，可以安装一个微软中文语音库（音质不咋地，建议装其他的），win7系统，自带该语音库。

Set objVoice = CreateObject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
'这里的Microsoft Simplified Chinese是指微软中文语音库的名称，如果你调用了其他语音库，改成你安装的那个语音库的名称即可
objVoice.Rate = 3 '速度，自己修改试一下
objVoice.Volume = 100 '声音
objVoice.Speak "请朗读我" '这里可以输入你想朗读的东西

追问

请教一下 怎么查看 语音库 的 名称……

追答

不好意思，这些天都没怎么上网，回答的慢了些，，，
下面的代码可以查看可用的语音库名称：

'显示语音库列表
dim vlist
Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
I = I + 1
vlist = vlist & " " & (I - 1) & " - " & Voice.GetDescription & vbcrlf
Next
msgbox vlist,64,"语音库列表"

请加分！！！