[转贴]阅读单词

yfd11

@echo off
mode con cols=58 lines=10
:开始
color 0a
cls
Set 按键=
echo.
echo  （按C退出）
Set /p 按键=  请输入你想要阅读的单词:
If /I "%按键%"=="" goto 开始
If /I "%按键%"=="c" exit
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%按键%")(Window.close)
goto 开始