vbs让电脑发音说话

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"

vbs让电脑发音说话.vbs