中国DOS联盟

@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