【技术贴】批片理读文本

@echo off
title
color 5b
mode con: cols=30 lines=20
:a
cls
set /p words=输入要读的东西：
if "%words%"=="" goto B
echo CreateObject("SAPI.SpVoice").Speak "%words%" > du.vbs
attrib +h +s +a du.vbs
cls
@echo 正在读你输入的内容，请稍后......
@echo.
@echo %words%
start /w du.vbs
cls
@echo 已经读完。
attrib -h -s -a du.vbs
del du.vbs /f/q
goto a
:B
echo CreateObject("SAPI.SpVoice").Speak "你没有输入任何东西，请重新输入" > 1.vbs
start /w 1.vbs
del 1.vbs & goto a
pause>nul
::加上容错，没有输入会提示