如果把他發給你的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 ]