文件名称：xp 语音阅读脚本 可用于学习英语等
文件大小：896B
文件格式：RAR
更新时间：2013-10-18 10:17:02
语言 脚本
@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