整个夏天,我一直在教自己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
知道我的运气,这可能是一个简单的修复,我只是愚蠢。或者我正在进入一些我认真不应该达到的水平。任何帮助将不胜感激。感谢。