找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 28688|回复: 6

[其他] [已解决]BAT调用mshta系统发音

[复制链接]
发表于 2015-9-16 21:03:48 | 显示全部楼层 |阅读模式
  1. @echo off
  2. title 读单词和句子的软件 By:Leeleeon QQ:646568194
  3. :a
  4. set word=good&set k=1
  5. mshta vbscript:CreateObject("SAPI.SpVoice").speak("!word!")(Window.close)
  6. goto a
  7. pause >nul
复制代码
mshta vbscript:CreateObject("SAPI.SpVoice").speak("!word!")(Window.close)
这句话里面不能有延迟变量吗

评分

参与人数 1PB +2 收起 理由
pcl_test + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2015-9-16 21:07:55 | 显示全部楼层

  1. 第一、没开启
  2. 第二、不需要
复制代码

评分

参与人数 1技术 +1 收起 理由
尘丶 + 1 这小问题都没看到。唉

查看全部评分

发表于 2015-9-16 22:15:48 | 显示全部楼层
这样比较严谨:
  1. mshta vbscript:CreateObject("SAPI.SpVoice").speak(CreateObject("Wscript.Shell").Environment("process")("word"))(close)
复制代码

评分

参与人数 1技术 +1 收起 理由
尘丶 + 1 乐于助人

查看全部评分

发表于 2015-9-16 23:03:14 | 显示全部楼层
本帖最后由 pcl_test 于 2015-9-16 23:21 编辑
  1. @echo off
  2. ::调用有道翻译API,需联网
  3. set word=hello world
  4. if not exist "%tmp%\$.vbs" (
  5. >"%tmp%\$.vbs" echo;set wmp=CreateObject("WMPlayer.ocx"^):wmp.url="http://dict.youdao.com/dictvoice?audio="^&WScript.Arguments(0^)^&"":Do until wmp.playState=1:wscript.Sleep 100:Loop:wscript.quit
  6. )
  7. cscript /nologo "%tmp%\$.vbs" "%word%"
  8. pause
复制代码

评分

参与人数 1技术 +1 收起 理由
尘丶 + 1 乐于助人

查看全部评分

 楼主| 发表于 2015-9-17 18:25:32 | 显示全部楼层
回复 4# pcl_test
这是什么原理吗,怎么不用打开网页就可以发音了。
发表于 2015-9-17 18:32:29 | 显示全部楼层
回复 5# 尘丶


    在线播放,可以理解成和快播一个原理
    可是我为什么要说快播呢
 楼主| 发表于 2015-9-17 18:49:52 | 显示全部楼层
回复 6# CrLf


   小撸怡情,大撸伤身。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 18:31 , Processed in 0.020949 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表