发现一个好玩的vbs脚本

觅土

文字转声音脚本，复制到记事本后把后缀名改为vbs运行即可

1. const SSFMCreateForWrite = 3
   
2. const SAFT22kHz16BitMono = 22
   
3. const SVSFlagsAsync = 0
   
4. 
   
5. set objVoice = CreateObject("SAPI.SpVoice")
   
6. 
   
7. strText = "It's a very long time ago, and I can't remember. When I was very very young, my grandfather told me"
   
8. 
   
9. Set objSpFStrm = CreateObject("SAPI.SpFileStream")
   
10. objSpFStrm.Format.Type = SAFT22kHz16BitMono
    
11. objSpFStrm.Open "test.wav", SSFMCreateForWrite, false
    
12. Set objVoice.AudioOutputStream = objSpFStrm
    
13. 
    
14. objVoice.Speak strText, SVSFlagsAsync
    
15. objVoice.WaitUntilDone -1
    
16. objSpFStrm.Close
    
17. 
    
18. set objVoice = CreateObject("SAPI.SpVoice")
    
19. objSpFStrm.Open "test.wav"
    
20. objVoice.Speakstream objSpFStrm
    
21. 
    
22. 
    
23. Set objSpFStrm1 = CreateObject("SAPI.SpFileStream.1")
    
24. objSpFStrm1.Open "c:\Windows\Media\Ding.wav"
    
25. objVoice.Speakstream objSpFStrm1
    
26. 
    
27. Set objSpFStrm2 = CreateObject("SAPI.SpFileStream.1")
    
28. objSpFStrm2.Open "c:\Windows\Media\TaDa.wav"
    
29. objVoice.Speakstream objSpFStrm2

复制代码

把上面的

strText = "It's a very long time ago, and I can't remember. When I was very very young, my grandfather told me"

中的It's....改为你想要转为声音的文字就好了，可惜微软不支持中文

SzAngel

其实支持中文的,,只是需要你下载一个资源包,微软网站上有的

大丨麦

这是什么嘛？

djlanyong

有没有刷免暴的脚本啊!

chensiyu3783683

复制到记事本后把后缀名改为vbs运行即可；怎么改成vbs啊

zhuangtongfa

后缀名弄为显示，再改

scdyjy

除了好玩，应该用处不大了吧