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