語音讀單詞或句子的批處理

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