Sedikit trik otak atik komputer warner

Membuka dan menutup CD/DVD Komputer
Copy script dibawah ini dan paste di notepad anda.

    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

    Simpan dengan format *.vbs.
    Lalu Buka File Tersebut

2. Menulis otomatis di notepad
Copy script dibawah ini dan paste di notepad anda.

    Set wshShell = wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
    loop

    Simpan dengan format *.vbs.
    Lalu Buka File Tersebut

3. Membuat Pesan muncul berulang – ulang
Copy script dibawah ini dan paste di notepad anda.

    @ECHO off
    :Begin
    msg * hahahhaa
    msg * santai boss
    msg * ini hanya main-main
    msg * jangan marah ya
    msg * hanya bercanda
    GOTO BEGIN

    Simpan dengan format *.bat.
    Lalu Buka File Tersebut

4. Membuat Komputer Shutdown dengan muncul pesan.
Copy script dibawah ini dan paste di notepad anda.

    @echo off
    msg * Hahahahhaha
    shutdown -s -c “Komputer anda mati”

    Simpan dengan format *.bat.
    Lalu Buka File Tersebut

5. Membuat Tombol Capslock terus menyala
Copy script dibawah ini dan paste di notepad anda.

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

    Simpan dengan format *.vbs.
    Lalu Buka File Tersebut

6. Membuat terus – menerus menekan tombol “backspace”
Copy script dibawah ini dan paste di notepad anda.

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

    Simpan dengan format *.vbs.
    Lalu Buka File Tersebut