语音读单词或句子的批处理

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