• Bm7
    Terima kasih sudah berkunjung xD
Home » » Cara Membuat Virus Komputer part I

Cara Membuat Virus Komputer part I

Jumat, 16 Maret 2012
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 :.

0 komentar:

Posting Komentar

Silahkan berkomentar asalkan tidak mengandung SPAM/SARA, jika komentar mengandng spam maka komentar tidak akan ditampilkan atau dihapus oleh admin blog ini. TERIMAKASIH

Facebook