Tips Membuat Virus Komputer yang tidak Berbahaya dan Lucu

Ini hanya Buat belajar Asyik/just 4 fun


1) memberi pesan dan shutdown komputer. 

Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .BAT


@echo off

msg * Apakah Dona Ganteng
shutdown -c "Error! Dona Memang Ganteng" -s

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


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 yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS


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 yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS

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 yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS


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

WScript.Sleep 500

WshShell.SendKeys "hatad "

WScript.Sleep 500

WshShell.SendKeys ", ho"

WScript.Sleep 500

WshShell.SendKeys "w a"

WScript.Sleep 500

WshShell.SendKeys "re "

WScript.Sleep 500

WshShell.SendKeys "we"

WScript.Sleep 500

WshShell.SendKeys "> "

WScript.Sleep 500

WshShell.SendKeys "o w"

WScript.Sleep 500

WshShell.SendKeys "k tr"

WScript.Sleep 500

WshShell.SendKeys "oon"

WScript.Sleep 500

WshShell.SendKeys " gak negrtoss"

WScript.Sleep 500

WshShell.SendKeys "kakak"

WScript.Sleep 500
WshShell.SendKeys "hihihi! "

6) Menjalankan BACKSPACE secara simultan.
 Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .VBS


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


 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 yang bercetak tebal dibawah ini dan Save As menggunakan Extension .BAT


@ECHO off

:top

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

9) Munculin 5 pilihan yang harus korban pilih.
 Buka Notepad ketik script yang bercetak tebal dibawah ini dan Save As menggunakan Extension .BAT


@echo off

title The end of the world

cd C:\

:menu

cls

echo wew ngapain kamu??aku tidak tanggung jawab.....apa yg barusan kamu lakuin saungguh fatal

pause

echo masukkan permintaan terakhir kamu :

echo 1. Buang Komputer..??

echo 2. Format Komputer..??

echo 3. Hapus Partisi..??

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

untuk nge save nya,jangan lupa pada bagian save as type.
pilih all files.dan untuk menjalankan program nya
klik 2 kali pada program dan lihat apa yang terjadi.

Selamat Mencoba