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

如果你的电脑可以开口说话，是不是非常的有趣？软件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发送给你的朋友就可以了，因为它只需要双击就可以发音哦。
本文地址： http://www.rjno1.com/infor/5-softdiy/1014-make-computer-speak