Google一下，每天活力无限。

新建一个文本文档，粘贴以下代码，保存类型为“所有文件”，文件名为“绕口令.bat”。
你也可以取别的名字，记住后缀名一定要是.bat
阅读全文查看代码：
@echo 请跟我读英文绕口令：peace war found
@echo off
title 请跟我读英文绕口令
@echo off
ping 127.0.0.1 /n 2 >nul
@echo 请 打 开 音 箱...
@echo off
ping 127.0.0.1 /n 5 >nul
@echo 3-----
@echo off
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("3")(Window.close)
ping 127.0.0.1 /n 2 >nul
@echo 2-----
@echo off
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("2")(Window.close)
ping 127.0.0.1 /n 2 >nul
@echo 1-----
@echo off
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("1")(Window.close)
ping 127.0.0.1 /n 2 >nul
COLOR 1f
@echo Ready-----
@echo Go------
@echo off
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("ready")(Window.close)
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("go")(Window.close)
ping 127.0.0.1 /n 3 >nul
@echo off
:1
echo CreateObject("SAPI.SpVoice").Speak CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)).ReadAll>ss.vbs
:2
echo peace war found >hh.txt
COLOR 3
echo peace war found!
echo peace war found!
echo peace war found!
echo peace war found!
echo peace war found!
echo peace war found!
ss.vbs hh.txt
ss.vbs hh.txt
ss.vbs hh.txt
ss.vbs hh.txt
ss.vbs hh.txt
ss.vbs hh.txt
ss.vbs hh.txt
echo 拖动任一一个含英文的文档到ss.vbs的图标上即可实现有声阅读>hh.txt
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("ha ha ha joke by byron")(Window.close)
@echo off
ping 127.0.0.1 /n 2 >nul