admin 管理员组

文章数量: 887016

今天工作不忙，跟同事讨论小说阅读器，希望能找到一款免费的小说阅读器，我们俩就开始在网上查找，突然就发现了一个Windows自带的朗读器。(Windows7及以上系统可使用)

先介绍一下这个朗读器的实现方式吧

1.创建txt文档

2.在文档中粘贴如下代码

Dim text, sapi  
text=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak text

由于不清楚注释使用什么符号，所以代码介绍就放在下面了

3.查看文档是否为GB2312编码或ANSI编码(默认为UTF-8编码，此时编译会报错)

GB2312最合适，但是我没有找到所以用了ANSI编码，发现ANSI编码有些问题，当汉字与英文一起出现的时候并不能准确识别阅读。

 如果为UTF-8字符集则需要按照如下步骤修改字符集

①单击左上角文件

②点击另存为

③出现弹窗后自主选择编码类型，单击保存

④保存后我们就得到了一个txt文档

4.将txt文档的文件类型后缀改为vbs类型文件

 此时我们双击执行此文件就会出现如下弹窗

在弹窗中输入内容后点击确定就可以听到电脑的语音啦。

很简单的东西，可以逗逗同学撩撩妹子，哈哈哈，这个就介绍到这里啦

本文标签： 系统自带 作用 完整 教程 电脑

版权声明：本文标题：Windows系统自带的电脑朗读器完整教程(作用有限) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1731688478h1499560.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。