一些恶搞的小程序编程
你有没有没满屏的雪花感动过？或者被你朋友恶搞关机苦笑不得？来试试这些恶搞小程序怎么编写的吧。
操作方法
- 01
点击左下方“开始”-“附件”-“记事本”，打开。（这个是以下所有小程序的前提）
- 02
第一个叫让你的电脑说爱你。在记事本中写下 CreateObject("SAPI.SpVoice").Speak "I love YOU" ，保存为.vbs文件，这样才可以变成可以打开的小程序。红框处I love YOU可替换成其他，如我爱你。双击此程序，就可以听到你的电脑说love you了。宿梦就曾经给自己男票发过生日快乐吧啦。
- 03
第二个是一段好玩的对话，让对方不停点击。在记事本中写下如下，后面的字都是可以替换成自己想要的，效果如图： 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("想结束我么?那你就再多点一次") WScript.Echo("想结束我么?那你就再多点一次") WScript.Echo("想结束我么?那你就再多点一次") WScript.Echo("想结束我么?那你就再多点一次") WScript.Echo("想结束我么?那你就再多点一次")
- 04
第三个让对方不停按回车，记事本写下，数字可以任改： dim s do until s=10 s=s+1 msgbox "哥们，给我按10次回车吧",64 loop
- 05
第四个让对方打开无数个记事本。记事本写下，数字可以任改： dim a,s set wshshell=createobject("wscript.shell") a=0 do wshshell.run"notepad" a=a+1 if a>5 then exit do end if loop