写来玩的英文辩读器，注意电脑要开启声音。 - 中国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

第1楼　bat-zw	发表于 2008-03-19 18:42
金牌会员　发帖 1,276　积分 3,105
写来玩的英文辩读器，注意电脑要开启声音。 @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

第2楼　suntb	发表于 2008-03-20 00:35
高级用户　发帖 277　积分 581
强　测试了下　声音还行

第3楼　zqz0012005	发表于 2008-03-20 05:54
中级用户　发帖 135　积分 297
请楼主最好注明一下参考或转载的来源如果是原创也最好简单解释一下相关命令

第4楼　tt518	发表于 2008-03-30 22:22
初级用户　发帖 18　积分 44
mshta vbscript:createobject("sapi.spvoice").speak("%a%")(window.close) 这是调用IE并使用VBScript朗读，使用了微软的TTS

第5楼　weihai6688	发表于 2008-03-30 22:35
初级用户　发帖 32　积分 57
强啊。试试。就是不说的听不清楚