灯火互联
管理员
管理员
  • 注册日期2011-07-27
  • 发帖数41778
  • QQ
  • 火币41290枚
  • 粉丝1086
  • 关注100
  • 终身成就奖
  • 最爱沙发
  • 忠实会员
  • 灌水天才奖
  • 贴图大师奖
  • 原创先锋奖
  • 特殊贡献奖
  • 宣传大使奖
  • 优秀斑竹奖
  • 社区明星
阅读:1367回复:0

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

楼主#
更多 发布于:2013-05-28 11:22
语音读单词或句子的批处理代码,需要的朋友可以参考下

 
复制代码 代码如下:

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

喜欢0 评分0
游客

返回顶部