这些文件怎么用? - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

CODE: [Copy to clipboard]
--------------------------------------------------------------------------------

set oSpeech = CreateObject("SAPI.SpVoice") '连接到系统的语音功能
set oFSO = CreateObject("Scripting.FileSystemObject") '打开FSO以阅读文件
set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数
strContent = oFile.ReadAll '读取文本所有内容到一个字符串 strContent
oSpeech.Speak strContent '让系统读出字符串里的内容
set oSpeech = nothing
set oFSO = nothing
set oFile = nothing '释放资源，闪人

不是存.bat吧

第1楼　ssetore	发表于 2007-03-21 23:25
新手上路　发帖 6　积分 16
这些文件怎么用? CODE: [Copy to clipboard] -------------------------------------------------------------------------------- set oSpeech = CreateObject("SAPI.SpVoice") '连接到系统的语音功能 set oFSO = CreateObject("Scripting.FileSystemObject") '打开FSO以阅读文件 set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数 strContent = oFile.ReadAll '读取文本所有内容到一个字符串 strContent oSpeech.Speak strContent '让系统读出字符串里的内容 set oSpeech = nothing set oFSO = nothing set oFile = nothing '释放资源，闪人不是存.bat吧

第2楼　ccwan	发表于 2007-03-22 00:28
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
请修改标题。发现楼主看代码不认真，【set oFile = oFSO.OpenTextFile(WScript.Arguments(0)) '打开拖放到本vbs的txt文件，也就是打开脚本第一个参数】