Python實戰之整蠱神器合集加速友盡

Posted on by

導語

哈嘍！哈嘍！我是木木子，最近沉迷整蠱這種類型的代碼，特別有趣好玩！

雖然踩中瞭特別多的坑，但是越玩越上癮呀！這裡整理瞭蠻多整蠱的代碼，好東西就是需要分享的嘛~

每周一招維護友誼的小秘訣，歡迎大傢來到木木子新開的——友（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. 這是一個木馬程序......您的所有資料已經傳到 [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組代碼的話我就僅展示一組效果！

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

番外篇——表白！

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

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

​總結

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

你們的支持是我最大的動力！！mua 歡迎大傢閱讀往期的文章哦~

到此這篇關於Python實戰之整蠱神器合集加速友盡的文章就介紹到這瞭,更多相關python 整蠱神器內容請搜索WalkonNet以前的文章或繼續瀏覽下面的相關文章希望大傢以後多多支持WalkonNet！

推薦閱讀：