qq飞车吧 关注:4,140,991贴子:209,546,637
  • 0回复贴,共1

今天520,发个小惊喜给你的TA吧

只看楼主收藏回复

今天520,发个小惊喜给你的TA吧
新建一个记事本
把下面的代码复制粘贴进去,保存,重命名为:双击打开.vbs 发送给你想表白的同学
---------------------------------------------------------------------------
CreateObject("SAPI.SpVoice").Speak "What day is today?"
wscript.sleep 500
CreateObject("SAPI.SpVoice").Speak "520"
wscript.sleep 500
CreateObject("SAPI.SpVoice").Speak "You know what I'm going to say? "
wscript.sleep 100
for i =1 to 9999
CreateObject("SAPI.SpVoice").Speak "DEAR "
wscript.sleep 900
CreateObject("SAPI.SpVoice").Speak "I "
wscript.sleep 100
CreateObject("SAPI.SpVoice").Speak "LOVE YOU"
next
----------------------------------------------------------------------
speak后面 双引号里的字可以随意修改成你想说的话(英文,必须的)
9999是重复的次数
上面英语是有道翻译的结果
等待英语牛叉同学给大家分享点美词佳句和金点子


1楼2012-05-20 13:09回复