禁用广告屏蔽(ad blocker),刷新页面继续浏览

Please disable your ad blocker,refresh page to view.

请使用firefox或者基于chrome的浏览器浏览本站

Please use firefox or chrome-based browser to browse this site

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

禁用广告屏蔽(ad blocker),刷新页面继续浏览

Please disable your ad blocker,refresh page to view.

请使用firefox或者基于chrome的浏览器浏览本站

Please use firefox or chrome-based browser to browse this site

禁用广告屏蔽(ad blocker),刷新页面继续浏览

Please disable your ad blocker,refresh page to view.

请使用firefox或者基于chrome的浏览器浏览本站

Please use firefox or chrome-based browser to browse this site

软件No1:绿色软件制作与分享.

如果你的电脑可以开口说话,是不是非常的有趣?软件No1的这篇文章会告诉你:如何通过一段简单的代码,让电脑说出任何你想要它说的话。通过对代码的简单修改,还可以使用这个小东西来耍你的朋友,测试系统声音以及教你英文单词的正确读法,并且是标准的美国口音哦。

这个小工具的使用方法非常的简单,运行后,只要在输入框中输入英文单词或者短语,点击确定按钮或者按下回车,电脑就会开始说这段话了。这个工具对于系统是没有任何负面影响的,因为它无需安装也不会更改任何注册表项。

制作方法:

1、复制下面这段代码,把它粘贴到一个空的txt文档中(txt文档的名字是可以随意更改的)

Dim message, sapi
message=InputBox("你想要我说什么?  www.RJNo1.com","让电脑说话-软件No1")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

2、保存并关闭这个文本,把后缀名从.txt改成.vbs 。

3、双击这个vb脚本就可以看到窗口界面了。

这个小脚本的原理应该非常简单,可能就是调用了windows系统自带的发音模块而已,而你在输入中文内容之后,它是完全无效的,应该是不支持,所以,你只可以使用它来对英文、数字、符号进行发音。

至此,你就得到了一个非常好用,不消耗系统资源的英文小助手,如果有些单词不会读,求助于它就行,并且无需连接互联网,不依赖任何软件。

但是如果你想用以上这段代码来和你的朋友开玩笑,那么还是不够的,毕竟每次都需要你输入文字才行,所以才有了下面这段修改版代码的诞生。

Dim message, sapi
message="i want give some color you  see see"
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

更改部分相信大家一眼就可以看出来,如何二次修改也非常简单,最后只需要改个有趣的名字,然后通过qq发送给你的朋友就可以了,因为它只需要双击就可以发音哦。

本文地址:https://www.rjno1.com/make-computer-speak/

这个软件不符合你的要求?软件No1还有它的同类软件:

标签:

可能相似的软件:

评论

  1. 可以读中文 前提是你安装了中文语音库 设置为默认语音库 我用的是LILy

发表评论

电子邮件地址不会被公开。