spvoice 太好玩了

1——————————————————————--

CreateObject("SAPI.SpVoice").Speak " 我是专门为你制造的机器人，can you  unseal for me"

2——————————————————

Msgbox("请打开声音，带上耳机或打开音响！")
Set obSpeak = Wscript.CreateObject("SAPI.SpVoice")
'obSpeak.rate = 1
Dim i
'For i = 0 to 10 step 2
'韩梅，我爱你，我好喜欢你，I really love you!
obspeak.speak("Ar may, wall I' n eey. Wall, how see hwun  nn eey. I really love you!")
'爱你一生一世（粤语）
obspeak.speak("hnoi lay yak sung yak saiy")
'好好学习，天天向上。我们是未来的希望
obspeak.speak("hou hou share she, ten ten soung shang. war  mern sure way lie de sheer wuang")
'Next

记事本另存为“双击我.vbs”