@echo off&color 9f&mode con lines=10
title dos英文辨读器
echo.&echo.&echo.
echo 欢迎使用英文辨读器
mshta vbscript:createobject("sapi.spvoice").speak("wellcome")(window.close)
ping /n 2 127.1 >nul
cls
echo.&echo.&echo.
echo 制作人：zw19750516
mshta vbscript:createobject("sapi.spvoice").speak("made by zhouwei")(window.close)
ping /n 2 127.1 >nul
:begin
cls
echo.&echo.&echo.
set /p a= 请输入英文：
cls
echo.&echo.&echo.
echo 刚才你输入的为：“%a%”
mshta vbscript:createobject("sapi.spvoice").speak("%a%")(window.close)
cls
echo.&echo.&echo.
echo 重复一遍，刚才你输入的为：“%a%”
ping /n 2 127.1 >nul
mshta vbscript:createobject("sapi.spvoice").speak("%a%")(window.close)
ping /n 3 127.1 >nul&goto begin
