今天工作不忙，跟同事讨论小说阅读器，希望能找到一款免费的小说阅读器，我们俩就开始在网上查找，突然就发现了一个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自带的朗读器。(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类型文件

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

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

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