在电脑上说话的脚本


现在的WINDOWS操作系统都有一个 Text-to-Speech 的引擎 简单来说就是把任意英文 转换成人声(电脑合成) 复读出来. 把下面的脚本用记事本存成 speech.vbs:

1
2
3
4
5
6
7
Set voice = CreateObject("SAPI.SpVoice")
voice.Rate = 1
voice.Volume = 90
Say = InputBox("Say Something", "Say Something", "I Love you!")
If (Len(Say) > 0) Then
    voice.Speak Say
End If 
Set voice = CreateObject("SAPI.SpVoice")
voice.Rate = 1
voice.Volume = 90
Say = InputBox("Say Something", "Say Something", "I Love you!")
If (Len(Say) > 0) Then
	voice.Speak Say
End If 

然后双击 该文件:

speech 在电脑上说话的脚本 I.T. 小技巧 有意思的

speech

然后电脑就会运行该程序 并出现一个对话框:

inputbox-vbscript 在电脑上说话的脚本 I.T. 小技巧 有意思的

inputbox-vbscript

默认是 I Love you! 你也可以改成自己需要的英文语句, 点击确认之后电脑就会把这句英文朗读出来.

上面的脚本中 Rate 指定的是语速 而 Volumn 是音量. 可以在控制面版里的 Speech 中配置是男生还是女生.

text-to-speech 在电脑上说话的脚本 I.T. 小技巧 有意思的

你的电脑是男生还是女生?

你的电脑是男生还是女生? 读一下试试.

英文原贴: https://helloacm.com/using-voice-engine-in-vbscript/

GD Star Rating
loading...
本文一共 190 个汉字, 你数一下对不对.
在电脑上说话的脚本. (AMP 移动加速版本)
上一篇: 微软的画版不是一个好的修图软件
下一篇: 入手跑步机 开始减肥

扫描二维码,分享本文到微信朋友圈
cd2e447f51720235a8d6ffc70a9dd6af 在电脑上说话的脚本 I.T. 小技巧 有意思的

评论