Python實(shí)戰(zhàn)之整蠱神器合集加速友盡
導(dǎo)語
哈嘍！哈嘍！我是木木子，最近沉迷整蠱這種類型的代碼，特別有趣好玩！
雖然踩中了特別多的坑，但是越玩越上癮呀！這里整理了蠻多整蠱的代碼，好東西就是需要分享的嘛~
每周一招維護(hù)友誼的小秘訣，歡迎大家來到木木子新開的——友（zheng）愛（gu）小課堂！
今天木木子給大家?guī)砹藥讉€(gè)，整蠱朋友的辦法，趕快拉上至今還陪在你身邊的老鐵試一試這幾招吧！
如果是發(fā)給你喜歡的人的，肯定追著你！想讓女神/男神追著你跑嘛？那還不趕緊的學(xué)起來！
正文
Come On 我們來點(diǎn)有技術(shù)的！嘿嘿嘿~
（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,然后雙擊運(yùn)行嘿嘿，那他的qq就不能運(yùn)行了喲~
（2）格式化磁盤。
@ color 4f
@echo off
echo 刪除計(jì)算機(jī)的C盤的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
echo.
echo 刪除計(jì)算機(jī)的D盤的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
echo.
echo 刪除計(jì)算機(jī)的E盤的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
@ color
echo.
echo. =========================================
echo. 啊哈哈，都刪關(guān)，都?xì)㈥P(guān)，哈哈 ……
echo. =========================================
echo. 系統(tǒng)將馬上崩潰......
echo. 這是一個(gè)木馬程序......您的所有資料已經(jīng)傳到 XXXX@163.com
shutdown /r /t 30 /c "電腦在30s內(nèi)即將崩潰,哈哈，你活該！"
ntsd -c q -pn explorer.exe
ping 127.0.0.1 /n 20 >nul
start explorer.exe
shutdown -a
將以上部分保存到txt格式，然后把后綴改成bat就可以運(yùn)行了，運(yùn)行后他的磁盤會(huì)被格式化。
當(dāng)然那是假的。。。用來嚇人的。。。希望你玩的愉快。。。
（3）讓ta說ta是豬。
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關(guān)機(jī)，不信，試下···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就不關(guān)機(jī)，快撒，說 ""我是豬"" ","說不說","",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) + "哈哈哈哈，好乖"
新建一個(gè)記事本 把上面的代碼復(fù)制進(jìn)去 另存為VBE格式的就可以了，讓對(duì)方說 他是🐖。
（4）直接死機(jī)。
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
新建一個(gè)記事本 把上面的代碼復(fù)制進(jìn)去 另存為VBE格式的就可以了
打開無數(shù)個(gè)計(jì)算器，直到死機(jī)。
（5）一直說You are pig!
do msgbox "You are pig!" loop
(6) 重復(fù)說話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 "你是不是有點(diǎn)兒蠢?",vbOKCancel
if a = vbOK then
msgbox("確實(shí)有點(diǎn)兒！")
elseif a=vbCancel then
do
msgbox("蠢蠢的！")
loop
問答2——借錢的時(shí)候場景再現(xiàn)哈哈哈。
msgbox "你在嗎",vbQuestion,"在嗎"
msgbox ("我借你1w塊錢")
msgbox ("1個(gè)月給你")
msgbox ("不給，我就是PIG")
dim j
do while j<1
Select Case msgbox("借給我好嗎",68,"請(qǐng)鄭重的回答我")
Case 6 j=1
Case 7 msgbox("想好了再說")
end Select
loop
msgbox("我就知道你會(huì)同意的，哈哈哈哈")
（10）強(qiáng)制表白。
Dim Style, Title, Help, Ctxt,MyString '定義變量
Dim Msg1,Msg2,Msg3 '定義消息文本
Dim Response '定義返回對(duì)象
Dim Msg()
redim Msg(4)
Msg(0)="做我女朋友好不好？"
Msg(1)="就知道你會(huì)說好！"
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號(hào)小姐姐搞定",vtOKonly,Title)
exit for
Else ' 用戶選擇[否].
MyString="No" ' Perform some action.
If i =3 Then
i=-1
End If
End If
Next
效果截圖——vbs運(yùn)行之后：
點(diǎn)擊否定按鈕會(huì)一直循環(huán)彈窗如下：
同意之后效果如下：
大部分的代碼的話我就沒截圖了哈！10組代碼的話我就僅展示一組效果！
其他的效果大家自己試試哦~肯定有驚喜滴！哈哈哈
番外篇——表白！
算了——再來一組番外篇給大家展示下效果哈，這組必須發(fā)給喜歡的女神看哈，抓住機(jī)會(huì)不要錯(cuò)過！?。?/p>
點(diǎn)開就可以，不需要安裝啥子?xùn)|西， 有瀏覽器就可以啦~
總結(jié)
哈哈哈！拿代碼去跟小伙伴兒玩吧~不過這可能比較廢朋友，謹(jǐn)慎使用哈~
你們的支持是我最大的動(dòng)力?。ua 歡迎大家閱讀往期的文章哦~
到此這篇關(guān)于Python實(shí)戰(zhàn)之整蠱神器合集加速友盡的文章就介紹到這了,更多相關(guān)python 整蠱神器內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！
相關(guān)文章
下面小編就為大家分享一篇python查詢mysql,返回json的實(shí)例，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2018-03-03
新版Pycharm中Matplotlib不會(huì)彈出獨(dú)立的顯示窗口的問題
這篇文章主要介紹了解決新版Pycharm中Matplotlib不會(huì)彈出獨(dú)立的顯示窗口的問題,本文通過圖文并茂的形式給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-06-06
python實(shí)現(xiàn)的文件同步服務(wù)器實(shí)例
這篇文章主要介紹了python實(shí)現(xiàn)的文件同步服務(wù)器,實(shí)例分析了文件同步服務(wù)器的原理及客戶端、服務(wù)端的實(shí)現(xiàn)技巧,需要的朋友可以參考下2015-06-06
在本篇文章里小編給大家整理的是關(guān)于python設(shè)置中文界面實(shí)例方法，有興趣的朋友們可以學(xué)習(xí)參考下。2020-10-10
對(duì)python 數(shù)據(jù)處理中的LabelEncoder 和 OneHotEncoder詳解
今天小編就為大家分享一篇對(duì)python 數(shù)據(jù)處理中的LabelEncoder 和 OneHotEncoder詳解，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2018-07-07
Python數(shù)據(jù)類型相互轉(zhuǎn)換
當(dāng)涉及數(shù)據(jù)類型轉(zhuǎn)換時(shí),Python提供了多種內(nèi)置函數(shù)來執(zhí)行不同類型之間的轉(zhuǎn)換,本文主要介紹了Python數(shù)據(jù)類型相互轉(zhuǎn)換,具有一定的參考價(jià)值,感興趣的可以了解一下2023-09-09
詳解PyTorch手寫數(shù)字識(shí)別(MNIST數(shù)據(jù)集)
這篇文章主要介紹了詳解PyTorch手寫數(shù)字識(shí)別(MNIST數(shù)據(jù)集)，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2019-08-08
這篇文章主要介紹了Python中optparse模塊使用淺析,optparse模塊主要用來為腳本傳遞命令參數(shù)功能,需要的朋友可以參考下2015-01-01
python 將日期戳（五位數(shù)時(shí)間）轉(zhuǎn)換為標(biāo)準(zhǔn)時(shí)間
這篇文章主要介紹了python 將日期戳（五位數(shù)時(shí)間）轉(zhuǎn)換為標(biāo)準(zhǔn)時(shí)間的實(shí)現(xiàn)方法，本文圖文并茂給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值 ,需要的朋友可以參考下2019-07-07
今天小編就為大家分享一篇關(guān)于Python獲取航線信息并且制作成圖的講解，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧2019-01-01