中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 写来玩的英文辩读器，注意电脑要开启声音。

@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