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

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,双击即可帮糕帅富们吆喝喊话,省去你的大声吆喝

编程技巧