Iseng Menggunakan Notepad

Bagi anda yang ingin ngisengin orang atau temen silahkan coba yang berikut ini dengan menggunakan NOTEPAD , tapi jangan keseringan ya dan kalau temenya marah gw gak tanggung jawab .
berikut caranya mass broo :

1. Iseng Mengeject CD-Drive Terus Menerus

    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

Kemudian save dengan " SukaSukaLo.VBS" Dan Kasihkan ke Teman Kamu

2. Iseng Dengan Tombol Enter Terus Menerus

    Set wshShell = wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "~(enter)"
    loop 

Kemudian save dengan "SukaSukaLo.VBS" Dan Kasihkan ke Teman Kamu

3. Iseng Dengan Pesan Lambat Notepad "Wkkwk, how are you? I am good thanks!"

    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 "wkk"
    WScript.Sleep 500
    WshShell.SendKeys "wk "
    WScript.Sleep 500
    WshShell.SendKeys ", ho"
    WScript.Sleep 500
    WshShell.SendKeys "w a"
    WScript.Sleep 500
    WshShell.SendKeys "re "
    WScript.Sleep 500
    WshShell.SendKeys "you"
    WScript.Sleep 500
    WshShell.SendKeys "? "
    WScript.Sleep 500
    WshShell.SendKeys "I a"
    WScript.Sleep 500
    WshShell.SendKeys "m g"
    WScript.Sleep 500
    WshShell.SendKeys "ood"
    WScript.Sleep 500
    WshShell.SendKeys " th"
    WScript.Sleep 500
    WshShell.SendKeys "ank"
    WScript.Sleep 500
    WshShell.SendKeys "s! " 

Kemudian save dengan " SukaSukaLo.VBS" Dan Kasihkan ke Teman Kamu

4. Iseng Dengan Backspace

    MsgBox "Maaf, Anda Harus Mengulang Kembali"
    Set wshShell =wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "{bs}"
    loop

Kemudian save dengan " SukaSukaLo.VBS" Dan Kasihkan ke Teman Kamu

5. Iseng Dengan Membuka Calculator Terus Menerus

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

Kemudian save dengan "SukaSukaLo.BAT" Dan Kasihkan ke Teman Kamu

6. Iseng Dengan Keyboard

    Set wshShell = wscript.CreateObject("WScript.Shell")
    do
    wscript.sleep 100
    wshshell.sendkeys "Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki"
    loop

Kemudian save dengan "SukaSukaLo.VBS" Dan Kasihkan ke Teman Kamu

7. Iseng Dengan Shutdown Computer

    @echo off
    msg * Komputer Anda Terinfeksi Virus
    shutdown -c "Error! Virus Menyebar Keseluruh System!" -s -t 0

Kemudian save dengan "SukaSukaLo.BAT" Dan Kasihkan ke Teman Kamu