Question

所以基本上我做了一个程序来说明我编程的任何内容，我在Windows上用记事本制作它并且它是VBS脚本但是我想知道我是否可以改变声音的音高或一般的声音如何？这是脚本：

Dim msg, sapi
Set sapi=creatobject("sapi.spvoice")
Sapi.speak"Hello world"
Lol=msgbox("Request done.")

然后我将它作为.VBS保存在所有文件中。

Answer 1

首先，代码中存在错误。将C:\lab> set KEY="secret" C:\lab> type app.js let key = process.env.KEY; console.log('KEY is ' + key); C:\lab> node app.js KEY is "secret"更改为creatobject。

现在，对于主要代码：...

createobject

请务必将此行Dim msg, sapi Set sapi = createObject("sapi.spvoice") Set sapi.Voice = sapi.GetVoices.Item(1) sapi.Speak "Hello world" Lol = msgbox("Request done.")放在Set sapi.Voice = sapi.GetVoices.Item(1)之前，否则语音仍将保持不变。

Answer 2

Dim Zira David

Zira's Voice
Set Zira = CreateObject("SAPI.spVoice")
Set Zira.Voice = Zira.GetVoices.Item(1)
Zira.Rate = 2
Zira.Volume = 70

Zira.Speak "My Name is Zira."

这是另一种声音

Dim David

David's Voice
Set David = CreateObject("SAPI.spVoice")
Set David.Voice = David.GetVoices.Item(0)
David.Rate = 2
David.Volume = 100

David.Speak "My Name is David. It's nice to meet you!"

如果要让计算机在打开计算机时打招呼，只需从这两个窗口中选择任意一个，然后按窗口按钮+ R并打开运行框，然后键入AppData \ Roaming \ Microsoft \ Windows \ Start Menu \ Programs \ Startup然后输入

注意：将这些代码保存在记事本中，然后单击“保存”，在.vbs类型后输入任何名称，然后单击所有文件。全部完成

Answer 3

我想您总是可以通过更改默认TTS语音的最简单方法来执行此操作。通过语音识别，然后从文本到语音。

如何在Windows VBS Script上更改语音

3 个答案: