2,727
社区成员
发帖
与我相关
我的任务
分享
Clear
loVoiceEngine = Createobject("SAPI.SpVoice")
lnIndex = 0
For Each loVoice In loVoiceEngine.GetVoices
lcDescription = loVoice.GetDescription()
? lcDescription, lnIndex
lnIndex = lnIndex + 1
Endfor
loVoiceEngine.voice = loVoiceEngine.getvoices().Item(0)
loVoiceEngine.speak("你好")
loVoiceEngine.voice = loVoiceEngine.getvoices().Item(1)
loVoiceEngine.speak("love")
Release loVoiceEngine