VBScript SAPI语音同步

时间:2016-06-20 16:19:18

标签: vbscript sapi

整个夏天,我一直在教自己VBScript只是为了打发时间。最近我一直在研究一个简单的TTS调试工具。该工具在运行时应该创建一个输入框,询问用户的名字,同时在屏幕上读出文本。然后,它将显示一个消息框,告诉用户程序执行的操作,同时再次读出消息框。如果他们按退出,取消,或者如果他们在输入框中输入空白,则退出。之后,它运行Defender,网络故障排除程序,ping Google等等。

或者至少我希望。

相反,一切正常,除了不是同时播放,文本被读取然后一个接一个地显示。我用Google搜索并查看了MSDN。它使用WaitUntilDone和所有其他命令说明了所有不同的方法。我真正想知道的是:

  • 我使用哪一个?
  • 代码会是什么样的?
  • 这对我来说是最好的语言吗?
  • 代码是否还有其他错误?

以下是我直接从Notepad ++中复制的代码:

dim v
Set v = CreateObject("SAPI.SpVoice")

welcome = "Hello! My name is Rex. I am your complete computer debug tool."&_
" I will try to find and fix internet connections, remove malware, ads, and viruses, and I can help speed up your computer, with just one click of a button! What's your name?"
v.speak welcome
name=inputbox(welcome,"Welcome!") 

If name = "" Then 
WScript.quit 
else
briefing = "Alright " & name & ", I will now guide you step-by-step to use free tools which come with Windows to diagnose and hopefully fix problems on your computer. "&_
"You don't have to download a thing. Is that alright?"
v.speak briefing, 
confirmbox = msgbox (briefing,4,"Hello there " & name & "!") 
end if

if confirmbox=7 then 
WScript.quit
else
msgbox ("placeholder")
end if

知道我的运气,这可能是一个简单的修复,我只是愚蠢。或者我正在进入一些我认真不应该达到的水平。任何帮助将不胜感激。感谢。

0 个答案:

没有答案