通过QQ让朋友的电脑关机恶搞程序?

自动关机！下面这个可好玩了。On Error Resume Next，先这么写哈。然后Dim WSHshellA，就是定义个东西。Set WSHshellA = wscript.createobject(wscript.shell)，这一步也跟着做。接着WSHshellA.run cmd.exe /c shutdown -r -t 60 -c 说我是猪，不说我是猪就一分钟关你机，不信，试试··· ,0,true，这就是设置一分钟后关机，还弹出个话让你说我是猪。然后Dim a，再定义个变量。Do While(a 我是猪)，要是你不说我是猪，就会一直循环。a = inputbox (说我是猪,就不关机，快撒，说 我是猪 ,说不说,不说,8000,7000)，就一直弹出让你输入的框。Msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBox，这是显示你输入的内容。等你说我是猪了，就Msgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛。再Dim WSHshell，又定义个东西。Set WSHshell = wscript.createobject(wscript.shell)，接着WSHshell.run cmd.exe /c shutdown -a,0,true，这就取消关机了。最后Msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，真过瘾。你把这些内容复制到记事本里，存成扩展名为vbe的文件，发给别人就行啦。要是想破解，就运行CMD，输入命令C:WINDOWSSYSTEM32SHUTDOWN，不用管出来的东西，再输入SHUTDOWN -A就能破解关机啦。