复制代码 代码如下:

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