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

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:357460608
pause >nul