中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-07 21:40

欢迎新会员 Atticus97　 RSS
共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,252 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 写来玩的英文辩读器，注意电脑要开启声音。查看 878　回复 4

楼主 写来玩的英文辩读器，注意电脑要开启声音。发表于 2008-03-19 18:42　·　中国湖南株洲电信

bat-zw

金牌会员

★★★★

永远的学习者

积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别男

状态离线

@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