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()
vbs1.Rate =  '速度-10,10
vbs1.Volume=  '音量 0,100
vbs1.Speak "wjshan0808"

vbs让电脑发音说话.vbs