ECHO OFF REM QBFC Project Options Begin REM HasVersionInfo: No REM Companyname: REM Productname: REM Filedescription: REM Copyrights: REM Trademarks: REM Originalname: REM Comments: REM Productversion: 0. 0. 0. 0 REM Fileversion: 0. 0. 0. 0 REM Internalname: REM Appicon: REM QBFC Project Options End ECHO ON @echo off title 读单词和句子的软件 By:Leeleeon QQ:646568194 echo ------------------------------------------------------------------ echo 欢迎使用本软件 echo ------------------------------------------------------------------ echo By:Leeleeon QQ:646568194 echo ------------------------------------------------------------------ echo %date% %time:~0,8% echo ------------------------------------------------------------------ :main echo. set /p word=输入单词或句子: :read mshta vbscript:CreateObject("SAPI.SpVoice").speak("%word%")(Window.close) :choice echo. echo 1.重新读一遍 echo 2.输入新单词读 echo 3.清空屏幕 echo 4.退出 set /p ch=选择你要做的事: If "%ch%"=="1" goto read If "%ch%"=="2" goto main If "%ch%"=="3" ( cls goto choice ) If "%ch%"=="4" goto end echo. echo 你输入的信息有误 goto choice :end echo. echo 感谢你使用本软件 echo QQ:646568194 pause >nul
