软件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-2016 RJNo1.com,All Rights Reserved.

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

软件No1 版权所有