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

让电脑开口说话-内容包括任何英文单词和短语

speaklogo如果你的电脑可以开口说话,是不是非常的有趣?软件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脚本就可以看到窗口界面了。

 

speak0

 

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

 

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

 

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


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

 

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

本文地址:

http://www.rjno1.com/infor/diy/1014-make-computer-speak.html

添加评论

验证码


刷新


Copyright © 2010-2019 RJNo1.com,All Rights Reserved.

Template V3.8.5 Designed by *HongHui  |  网站地图

软件No1 版权所有

禁用广告屏蔽(ad blocker),刷新页面继续浏览
Please disable your ad blocker,refresh page to view.
Bitte deaktiviere Deinen Werbeblocker!
Veuillez désactiver votre bloqueur de publicité.

禁用广告屏蔽(ad blocker),刷新页面继续浏览
Please disable your ad blocker,refresh page to view.
Bitte deaktiviere Deinen Werbeblocker!
Veuillez désactiver votre bloqueur de publicité.