今天工作不忙，跟同事討論小說閱讀器，希望能找到一款免費的小說閱讀器，我們倆就開始在網上查找，突然就發現了一個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系统自带的电脑朗读器完整教程(作用有限)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。