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