ISENG BERMODAL NOTEPAD

Jangan anda coba trik ini di komputer anda, kalau dicoba berarti anda mengisengin diri anda sendiri & dapat dibilang anda melakukan tindakan yang stup*d..! Pastikan Anda Mengetik Dengan Benar Script Dibawah Ini! Copy Paste Mungkin Tidak Berhasil Dikarenakan Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Real Bisa Pake TextPad.

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

2. Tombol Enter Terus Menerus

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

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

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

5. Membuka Calculator Terus Menerus

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

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

Silahkan Dikembangkan Sendiri Ide Ide Yang Lainnya

Semoga bermanfaat...