代码中的错误800A0401说出文本

Question

我收到错误800A0401。

Dim message.Sapi
message=InputBox("enter the text to b 

spoken!","#speakup!")
set Sapi = Create Object("SAPI.Spvoice")
Sapi.speak message

我使用此代码为我说一些文字。

Answer 1

Dim message, sapi
message=InputBox("enter the text to be spoken!","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

尝试使用此功能并将其保存在.vbs文件中