Iseng Hanya Dengan Modal Notepad

Bosen dengan belajar, mau iseng? Yuk, kita pakai cara sederhana saja untuk ngisengin teman kita sendiri. Tapi jangan anda coba trik ini di komputer anda, klo dicoba berarti anda mengisengin diri anda sendiri & dapat dibilang anda melakukan tindakan yang stupid.. Hehe..

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 “TERSERAH KALIAN.VBS”

2. Iseng Dengan Tombol Enter Terus Menerus

Set wshShell = wscript.CreateObject(”WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

Kemudian save dengan “TERSERAH KALIAN.VBS”

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 “TERSERAH KALIAN.VBS”

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 “TERSERAH KALIAN.VBS”

5. Iseng Dengan Membuka Calculator Terus Menerus

@ECHO off

:top

START %SystemRoot%\system32\cacl.exe

GOTO top

Kemudian save dengan “TERSERAH KALIAN.BAT”

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 “TERSERAH KALIAN.VBS”

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 “TERSERAH KALIAN.BAT”

Sekedar Info: Hanya Untuk Menambah Ilmu, Bukan Untuk Disalah Gunakan dan Resikonya Tanggung Sendiri.....

@yo Baca Juga