@echo off & title xp语音阅读脚本 & color 0a
mode con cols=58 lines=10
:开始
color 0a
cls
Set 按键=
echo.
echo [按C退出]
Set /p 按键= 请输入你想要阅读的英语单词:
If /I "%按键%"=="" goto 开始
If /I "%按键%"=="c" exit
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%按键%")(Window.close)
goto 开始
'使用方法
'拖放txt文件到本vbs脚本文件上,即可阅读txt文件中的英语.
'制作整理: 540784089
set oSpeech = CreateObject("SAPI.SpVoice")
set oFSO = CreateObject("Scripting.FileSystemObject")
set oFile = oFSO.OpenTextFile(WScript.Arguments(0))
strContent = oFile.ReadAll
oSpeech.Speak strContent
set oSpeech = nothing
set oFSO = nothing
set oFile = nothing
