联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Const SSFMCreateForWrite = 3 strText = "bbs.cn-dos.net" Set objVoice = CreateObject("SAPI.SpVoice") Set objFile = CreateObject("SAPI.SpFileStream.1") objFile.Open "C:\Documents and Settings\administrator\桌面\Test.wav", SSFMCreateForWrite Set objVoice.AudioOutputStream = objFile objVoice.Speak strText