网站 › 『 编程之美 』 › [转贴]阅读单词

yfd11 发表于 2006-11-21 12:49:19

[转贴]阅读单词

@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 开始

查看完整版本: [转贴]阅读单词