标题: 如何让声音和显示字同步进行 [打印本页]
作者: wuyun8035 时间: 2007-2-12 10:54 标题: 如何让声音和显示字同步进行
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("大家来看看")(Window.close)
set line="大家来看看"
for /l %%i in (0,1,5) do (
set /p=!line:~%%i,1!<nul
ping/n 1 127.1>nul
)
这两段代码如何让声音和显示字同步进行
作者: zh159 时间: 2007-2-12 13:06
把阅读那段插入for中稍加修改一个个字读就OK
作者: slore 时间: 2007-2-12 14:20
我怎么听不到声音?
作者: wuyun8035 时间: 2007-2-13 22:28
| Quote: | |
|
请问下二楼,如何把阅读那段插入for中
作者: zh159 时间: 2007-2-13 22:58
@echo off
setlocal EnableDelayedExpansion
set "line=大家来看看"
for /l %%i in (0,1,5) do (
set /p=!line:~%%i,1!<nul
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("!line:~%%i,1!")(Window.close)
ping/n 1 127.1>nul
)
setlocal EnableDelayedExpansion
set "line=大家来看看"
for /l %%i in (0,1,5) do (
set /p=!line:~%%i,1!<nul
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("!line:~%%i,1!")(Window.close)
ping/n 1 127.1>nul
)
@echo off
set "line=大家来看看"
:loop
set line_=%line:~0,1%&set line=%line:~1%
set /p=%line_%<nul
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%line_%")(Window.close)
ping/n 1 127.1>nul
if not "%line%" == "" goto loop
set "line=大家来看看"
:loop
set line_=%line:~0,1%&set line=%line:~1%
set /p=%line_%<nul
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%line_%")(Window.close)
ping/n 1 127.1>nul
if not "%line%" == "" goto loop
作者: vkill 时间: 2007-2-14 00:03
读不出中文的吧?