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

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