写个程序卖切糕——自动喊话版

2015/01/06 39703

清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

?
1
2
3
4
5
6
7
8
9
10
Set obSpeak = Wscript.CreateObject("SAPI.SpVoice")
'obSpeak.rate = 1
Dim i
'For i = 0 to 10 step 2
obspeak.speak("qiergao")
obspeak.speak("qiergao")
obspeak.speak("dar dar de qiergao")
'Next
 
老传统，复制到记事本，后缀改为vbs，双击即可帮糕帅富们吆喝喊话，省去你的大声吆喝