代碼如下: 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
