vbs整人代码：电脑会在你设定的时间内关机（解除不关机的办法)

如果把他发给你的QQ好友，他不懂的话，如果不输我是猪，电脑就会在你设定的时间内关机，我设置的是3分钟，只要输入就解除了，当然如果不输的话也有解除的办法。

代码如下:

 

1. on error resume next  
2. dim WSHshellA  
3. set WSHshellA = wscript.createobject("wscript.shell")  
4. WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true  
5. dim a  
6. do while(a <> "我是猪")  
7. a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","",8000,7000)  
8. msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"  
9. loop  
10. msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"  
11. dim WSHshell  
12. set WSHshell = wscript.createobject("wscript.shell")  
13. WSHshell.run "cmd.exe /c shutdown -a",0 ,true  
14. msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖" 

新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

这里的数字可以修改关机时间 180秒

这些文字也可以自设 这个脚本启用cmd 里的关机程序

如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已

经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK

了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主

vbs整人代码使用方法：新建txt记事本，然后将vbs整人代码复制到里面，保存为***.vbs格式文件即可。[ 如：显示500个对话框.vbs ]