[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-7-13 22:50 | 只看该作者

[系统相关] 批处理如何实现汉语/中文发音/发声

本帖最后由 pcl_test 于 2016-7-17 10:23 编辑

批处理如何制作中文声音？举个例子代码
另外，批处理能不能将已经关闭了的笔记本声音自动打开？
收藏 分享

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2012-7-14 00:42 | 只看该作者
“中文声音”？表示看不懂
至于开闭音量，保存以下内容为vbs运行：
  1. CreateObject("Wscript.Shell").SendKeys Chr(&h88ad)
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
3楼
发表于 2012-7-14 00:50 | 只看该作者
本帖最后由 wh1234567 于 2012-7-14 01:24 编辑

回复 2# CrLf


    能不能加上判断功能，就是如果当前处于关闭状态时就自动打开，如果已经是打开状态的话就不必关闭了
另外，中文声音，意思就是无需启动外在播放器，就能自动播放设置好的中文文字。
类似于-
@echo off
echo 做好准备，响了啊！！
pause
cls
echo  
echo 怎么样？呵呵，刺激吧~ 、　pause
cls
mshta vbscript:createobject("sapi.spvoice").speak("Merry Christmas and Happy New Year!")(window.close)
pause

还有个问题，echo 为什么只能响一声？能不能响3声？

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
4楼
发表于 2012-7-14 01:00 | 只看该作者
回复 3# wh1234567


    不知道如何判断是否静音，但是可以先提高大音量再降低音量，以保证音量必然是打开的：
  1. CreateObject("Wscript.Shell").SendKeys Chr(&88af) & Chr(&88ae)
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
5楼
发表于 2012-7-14 01:05 | 只看该作者
回复 4# CrLf

最好是bat的，感谢您

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
6楼
发表于 2012-7-14 10:23 | 只看该作者
xp 默认不支持中文语音，需要另外安装。
至于写为bat...给楼主一个范本，以后可以自己转：
  1. @echo off&set "要生成的脚本内容的起始行号=4"

  2. more +%要生成的脚本内容的起始行号% %0>tmp.vbs

  3. tmp.vbs

  4. pause&exit

  5. CreateObject("Wscript.Shell").SendKeys Chr(&88af) & Chr(&88ae)
复制代码
若整个脚本的目的仅是以bat的方式将自身内容作为vbs来运行，那么可以这样：
  1. '&start "" tmp.vbs&exit/b

  2. CreateObject("Wscript.Shell").SendKeys Chr(&88af) & Chr(&88ae)
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
7楼
发表于 2012-7-14 11:45 | 只看该作者
你好，版主，帮我这个好吗http://www.bathome.net/thread-17992-1-1.html

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
8楼
发表于 2012-7-19 09:36 | 只看该作者
论坛内搜索一下“语音”
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

Seder

Rank: 2

帖子
99 
积分
112 
技术
7  
捐助
0  
注册时间
2011-9-2 
9楼
发表于 2012-7-19 13:52 | 只看该作者 
  1. mshta vbscript:createobject("sapi.spvoice").speak("word i p true lead z job")(window.close)
复制代码
XP系统用英文拟音模范中文

WIN7系统直接用中文可以

TOP

返回列表