批处理之家 - Powered by Discuz! Board

标题: [其他] [已解决]BAT调用mshta系统发音 [打印本页]

作者: 尘丶 时间: 2015-9-16 21:03 标题: [已解决]BAT调用mshta系统发音

@echo off 
title 读单词和句子的软件 By:Leeleeon QQ:646568194 
:a
set word=good&set k=1
mshta vbscript:CreateObject("SAPI.SpVoice").speak("!word!")(Window.close) 
goto a
pause >nul 
复制代码

mshta vbscript:CreateObject("SAPI.SpVoice").speak("!word!")(Window.close)
这句话里面不能有延迟变量吗

作者: 回家路上 时间: 2015-9-16 21:07

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

作者: CrLf 时间: 2015-9-16 22:15

这样比较严谨：

mshta vbscript:CreateObject("SAPI.SpVoice").speak(CreateObject("Wscript.Shell").Environment("process")("word"))(close)
复制代码

作者: pcl_test 时间: 2015-9-16 23:03

本帖最后由 pcl_test 于 2015-9-16 23:21 编辑

@echo off
::调用有道翻译API，需联网
set word=hello world
if not exist "%tmp%\$.vbs" (
>"%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
)
cscript /nologo "%tmp%\$.vbs" "%word%"
pause
复制代码

作者: 尘丶 时间: 2015-9-17 18:25

回复 4# pcl_test
这是什么原理吗,怎么不用打开网页就可以发音了。

作者: CrLf 时间: 2015-9-17 18:32

回复 5# 尘丶

在线播放，可以理解成和快播一个原理
可是我为什么要说快播呢

作者: 尘丶 时间: 2015-9-17 18:49

回复 6# CrLf

小撸怡情,大撸伤身。

欢迎光临批处理之家 (http://www.bathome.net/)