Virus ini cuma buat belajar ama iseng saja, jangan disalahgunakan😀

Kode Vbs ini akan membuat user terus mengetikkan kata “Jelek Lu!”

Caranya: Buka notepad dan masukkan code berikut

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Jelek Lu!”
loop

lalu, di save as, save as type nya pilih all files dan ketik nama file nya a.vbs

2. Dan membuat terus menerus menekan tombol “Enter”

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop

3. Membuat Terus tekan backspace:

MsgBox “Balik lagi ah…salah ketik”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

4. Membuat CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti. (yang ini harus diketik sendiri, gak bisa copy paste)

Set ilikepies = CreateObject(“WMPlayer.OCX.7”)
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ‘ cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ‘ cdrom
loop
End If

5. Virus yang bisa membuka notepad dan mengetik sendiri

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

Catatan: semua script yang telah diketik di note pad, di save as dengan ekstensi .vbs , dan untuk menjalankan nya tinggal di klik 2 kali. untuk menghentikan proses virus, tekan CTRL + ALT + DEL, muncul jendela task manager. Klik tab Processes, dan cari file wscripts.exe , lalu di END PROCESS.

Sgitu dulu yang saya share di sini, Thanks