批处理之家 » BAT求助&讨论 » [已解决]BAT调用mshta系统发音

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

返回列表发帖

Rank: 3 Rank: 3

帖子: 162
积分: 258
技术: 22
捐助: 0
注册时间: 2015-4-3

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 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)
这句话里面不能有延迟变量吗

1 评分人数

pcl_test: 感谢给帖子标题标注[已解决]字样PB + 2

心累~努力，为了美好的明天。

Rank: 5 Rank: 5

帖子: 359
积分: 603
技术: 66
捐助: 0
注册时间: 2014-11-19

2楼

发表于 2015-9-16 21:07 | 只看该作者

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

1 评分人数

尘丶: 这小问题都没看到。唉技术 + 1

人生是一部书/只有这一页最温暖/读懂它的时候/我们在远方流泪...

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

3楼

发表于 2015-9-16 22:15 | 只看该作者

这样比较严谨：

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

1 评分人数

尘丶: 乐于助人技术 + 1

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

4楼

发表于 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
复制代码

1 评分人数

尘丶: 乐于助人技术 + 1

Rank: 3 Rank: 3

帖子: 162
积分: 258
技术: 22
捐助: 0
注册时间: 2015-4-3

5楼

发表于 2015-9-17 18:25 | 只看该作者

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

心累~努力，为了美好的明天。

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

6楼

发表于 2015-9-17 18:32 | 只看该作者

回复 5# 尘丶

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

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 3 Rank: 3

帖子: 162
积分: 258
技术: 22
捐助: 0
注册时间: 2015-4-3

7楼

发表于 2015-9-17 18:49 | 只看该作者

回复 6# CrLf

小撸怡情,大撸伤身。

心累~努力，为了美好的明天。