Dim vbs1 ‘set vbs1 = WScript.CreateObject("WScript.Shell") set vbs1 = WScript.CreateObject("SAPI.SpVoice") ‘语言的改变 在 Win+R中 输入 sapi.cpl 那里有 如 Microsoft Lili 的显示 Set vbs1.Voice = vbs1.GetVoices("Name=Microsoft Lili").Item(0) vbs1.Rate = 3 ‘速度-10,10 vbs1.Volume= 80 ‘音量 0,100 vbs1.Speak "wjshan0808"
原文：http://www.cnblogs.com/wjshan0808/p/5153052.html