[其他] [已解决]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)
这句话里面不能有延迟变量吗

回家路上

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

CrLf

这样比较严谨：

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

pcl_test

@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
复制代码

尘丶

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

CrLf

回复 5# 尘丶


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

尘丶

回复 6# CrLf


   小撸怡情,大撸伤身。