Recent Post Cyber4rd :

Sabtu, 10 September 2011

11 Cara Isengi Komputer Teman

ketemu lagi dah,,good sore sooobbb
nih Did'di mau kasih tips pemberian dari bapak Syamsudin.
Trik ini hanya untuk sekedar iseng saja, jangan dipakai

keseringan nanti teman kita bisa marah. Modalnya cuma

dengan Notepad atau Text Document. Caranya cukup
mudah, anda tulis saja kode-kode berikut pada Notepad
atau Text Document, terus save as pakai ektensi seperti
yang akan dijelaskan di bawah ini.



1.   Pesan Restart :



     @ECHO off


     :Begin




     msg * WARNING !


     msg * Komputer anda error


     msg * Tidak ada cara lain


     msg * Harus diinstall ulang


     GOTO BEGIN


      ( save dalam ektensi .BAT )




2.   Pesan Shutdown :


     Quote:

     @echo off

     msg * Komputer anda hank

     msg * Tidak ada jalan lain


     msg * Harus dishutdown

    

     ( save dalam ektensi .BAT )


      ( save dalam ektensi .BAT )



3.   Tombol Caps Lock hidup terus :



     Quote:

     Set wshShell =wscript.CreateObject("WScript.Shell") do

     wscript.sleep 100

     wshshell.sendkeys "{CAPSLOCK}" loop


      ( save dalam ektensi .VBS )




4.   Terkena Virus :


     <span class="kwrd"><</span><span class="html">html</span><span class="kwrd">></span>

     <span class="kwrd"><</span><span class="html">head</span><span class="kwrd">></span>


     <span class="kwrd"><</span><span class="html">script</span> <span class="attr">type</span>

<span class="kwrd">="text/javascript"</span><span class="kwrd">></span>


     <span class="kwrd">function</span> display_alert()

     {

     alert(<span class="str">"Komputer dalam ranjau virus !!"</span>)


     <span class="kwrd">var</span> b = <span class="kwrd">true</span>

     <span class="kwrd">while</span> (b == <span class="kwrd">true</span>){


     alert(<span class="str">"Virus Trojan 5 !!"</span>)

     }}

     <span class="kwrd"></</span><span class="html">script</span><span class="kwrd">></span>


     <span class="kwrd"></</span><span class="html">head</span><span class="kwrd">></span>

     <span class="kwrd"><</span><span class="html">body</span><span class="kwrd">><</span><span class="html">input</span> <span class="attr">type</span><span class="kwrd">="button"</span> <span class="attr">onclick</span><span class="kwrd">="display_alert()"</span>


     <span class="attr">value</span><span class="kwrd">="Submit"</span> <span class="kwrd">/></</span><span class="html">body</span><span class="kwrd">></span>


     <span class="kwrd"></</span><span class="html">html</span><span class="kwrd">></</span><span class="html">center</span><span class="kwrd">></span>


      ( save dalam ektensi .HTML )




5.   CD Room Buka-Tutup Terus :


     Quote:

     Set oWMP = CreateObject("WMPlayer.OCX.7")

     Set colCDROMs = oWMP.cdromCollection

     do


     if colCDROMs.Count >= 1 then

     For i = 0 to colCDROMs.Count - 1

     colCDROMs.Item(i).Eject

     Next

     For i = 0 to colCDROMs.Count - 1

     colCDROMs.Item(i).Eject


     Next

     End If

     wscript.sleep 5000

     loop


      ( save dalam ektensi .VBS )




6.   Menekan Enter Terus Menerus :


     Quote:

     Set wshShell = wscript.CreateObject("WScript.Shell")

     do

     wscript.sleep 100

     wshshell.sendkeys "~(enter)"


     loop


      ( save dalam ektensi .VBS )



7.   Muncul Pesan Secara otomatis :


     Quote:

     WScript.Sleep 180000


     WScript.Sleep 10000

     Set WshShell = WScript.CreateObject("WScript.Shell")

     WshShell.Run "notepad"

     WScript.Sleep 100

     WshShell.AppActivate "Notepad"

     WScript.Sleep 500


     WshShell.SendKeys "Hello"

     WScript.Sleep 500

     WshShell.SendKeys "how"

     WScript.Sleep 500

     WshShell.SendKeys "are"

     WScript.Sleep 500


     WshShell.SendKeys "you"

     WScript.Sleep 500

     WshShell.SendKeys " ? "

     WScript.Sleep 500

     WshShell.SendKeys "I"

     WScript.Sleep 500


     WshShell.SendKeys "m"

     WScript.Sleep 500

     WshShell.SendKeys "gho"

     WScript.Sleep 500

     WshShell.SendKeys " st"


      ( save dalam ektensi .VBS )




8.   Backspace Jalan Terus-Menerus :


     Quote:

     MsgBox "Let's go back a few steps"

     Set wshShell =wscript.CreateObject("WScript.Shell")

     do


     wscript.sleep 100

     wshshell.sendkeys "{bs}"

     loop


      ( save dalam ektensi .VBS )



9.   Korban Harus Mengetik "You are crazy"
      Secara Terus-Menerus :



     Quote:

     Set wshShell = wscript.CreateObject("WScript.Shell")

     do

     wscript.sleep 100

     wshshell.sendkeys "You are crazy"

     loop   



       ( save dalam ektensi .VBS )



10.  Buka Notepad Terus-Menerus :


     Quote:

     @ECHO off

     :top


     START %SystemRoot%\system32\notepad.exe

     GOTO top


       ( save dalam ektensi .BAT )



11.  5 (lima) Pesan Buat Korban :


     Quote:


     @echo off

     title The end of the world

     cd C:\

     :menu

     cls

     echo Oops Tanggung Jawab Yah...


     pause

     echo Semua Ini Salahmu =P :

     echo 1. Semua Data Akan Hilang

     echo 2. Komputer Error

     echo 3. Komputer Kena Virus H1N5

     echo 4. Segera Matikan Komputernya


     echo 5. Good bye.....

     set input=nothing

     set /p input=Choice:

     if %input%==1 goto one

     if %input%==2 goto two


      ( save dalam ektensi .BAT )

WARNING:
buat temen temen ku sendiri apa lagi temen maen tiap hari
jangan lakukan ini pada laptop saya yaaa....


  klik link di bawah ini[sumber]



0 komentar:

Posting Komentar

JANGAN LUPA TINGGALKAN KOMENTAR ANDA

Galaxy-Zone 7 © 2008. Design by :Templates Sponsored by: Tuto Comment
x

join to my fans at facebook