Board logo

标题: 写来玩的英文辩读器,注意电脑要开启声音。 [打印本页]

作者: bat-zw     时间: 2008-3-19 18:42    标题: 写来玩的英文辩读器,注意电脑要开启声音。

CODE:  [Copy to clipboard]
@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

作者: suntb     时间: 2008-3-20 00:35
强 测试了下 声音还行
作者: zqz0012005     时间: 2008-3-20 05:54
请楼主最好注明一下参考或转载的来源
如果是原创也最好简单解释一下相关命令
作者: tt518     时间: 2008-3-30 22:22
mshta vbscript:createobject("sapi.spvoice").speak("%a%")(window.close)

这是调用IE并使用VBScript朗读,使用了微软的TTS
作者: weihai6688     时间: 2008-3-30 22:35
强啊。试试。就是不说的听不清楚




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5