一些恶搞的小程序编程-酷五问

一些恶搞的小程序编程

的有关信息介绍如下：

一些恶搞的小程序编程

你有没有没满屏的雪花感动过？或者被你朋友恶搞关机苦笑不得？来试试这些恶搞小程序怎么编写的吧。

点击左下方“开始”-“附件”-“记事本”，打开。（这个是以下所有小程序的前提）

第一个叫让你的电脑说爱你。在记事本中写下 CreateObject("SAPI.SpVoice").Speak "I love YOU" ，保存为.vbs文件，这样才可以变成可以打开的小程序。红框处I love YOU可替换成其他，如我爱你。双击此程序，就可以听到你的电脑说love you了。宿梦就曾经给自己男票发过生日快乐吧啦。

第二个是一段好玩的对话，让对方不停点击。在记事本中写下如下，后面的字都是可以替换成自己想要的，效果如图：

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScript.Echo("你是可爱的XX童鞋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("夜黑很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上23下哦，不过会给你惊喜滴")

WScript.Echo("还剩22下，快点点哦")

WScript.Echo("还剩21下，快点，小笨蛋！")

WScript.Echo("还剩20下对，就这样快点点！")

WScript.Echo("还剩19下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩18下，记得要快哦！")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停！！！慢点，我有话要说")

WScript.Echo("还剩12下，你继续点我就会消失滴")

WScript.Echo("还剩11下，以后就看不到我拉。呜呜~555555")

WScript.Echo("还剩10下，你现在可以选择停止！")

WScript.Echo("还剩9下。你还点啊，不要我拉？")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩7下。疯了，你有点负意！")

WScript.Echo("还剩6下。对。你就点吧，我恨你！")

WScript.Echo("还剩5下，不明白，删除我你就好吗？")

WScript.Echo("还剩4下！真要删除我？")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")

WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，万能的上帝又给了一次机会。")

WScript.Echo("想结束我么?那你就再多点一次")

第三个让对方不停按回车，记事本写下，数字可以任改：

dim s

do until s=10

s=s+1

msgbox "哥们，给我按10次回车吧",64

loop

第四个让对方打开无数个记事本。记事本写下，数字可以任改：

dim a,s

set wshshell=createobject("wscript.shell")

a=0

wshshell.run"notepad"

a=a+1

if a>5 then

exit do

end if

loop