VBScript 不识别说话命令？

Posted 2023-02-22

【中文标题】VBScript 不识别说话命令？

【英文标题】：VBScript Isn't Recognizing Speak Command?

【发布时间】：2014-05-08 15:48:05

【问题描述】：

我需要帮助。我正在尝试批量制作个人助理，为了效果，我希望我的电脑会说话。我以前用过 speak 代码，甚至在这台电脑上，但由于某种原因，当我现在尝试使用 speak 命令时，它似乎不起作用。下面是我常用的代码：

Set objVoice=CreateObject("SAPI.SpVoice")
objVoice.Speak("Insert Message Here")

我不知道发生了什么，但是当我运行脚本时，我得到了这个错误：

行：2

字符：1

错误：句柄无效。

代码 89970006

来源（空）

请帮我解决这个错误。提前致谢。 顺便说一句，我确实有语音 API，并且我在控制面板中的文本到语音的工作。好像是.vbs文件。

【参考方案1】：

试试这个：

Set Speak = CreateObject("sapi.spvoice")

Speak.Speak "Text Goes Here"

或者，如果你想让它说出你输入的内容，你可以这样做，

Dim Message, Speak
Set Speak=CreateObject("sapi.spvoice")

Message=InputBox("Enter text","Speak")
Speak.Speak Message