清华大佬耗费三个月吐血整理的几百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,双击即可帮糕帅富们吆喝喊话,省去你的大声吆喝 |