Cara Membuat Virus Nakal Sederhana (Tidak Berbahaya) - Asyik ngerjain Teman

Hai Sobat Adi Petro,, Kali ini saya akan memberikan informasi bagaimana cara membuat virus-virus nakal dan sederhana, tapi ga usah khawatir, virus ini ga berbahaya kok, hanya untuk iseng-iseng bagi teman ataupun siapa saja yang mau dikerjain oleh saudara..

langsung saja yuk..

1. Trik membuat komputer error karena membuka cmd secara banyak. Berikut scriptnya, langsung copy saja ke notepad sobat.

start

start

start

start

start

start

start

start

start

start

start

start

----------

setelah di copy ke notepad, simpan file dengan nama terserah sobat dengan ekstensi (.bat). Contohnya, iseng.bat

2.  Membuka notepad secara otomatis, copy ke notepad, kemudian simpan dengan nama note.bat

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

      GOTO top

---------------

3. Membuat CD Room selalu buka tutup di komputer, simpan dengan ekstensi .vbs, contoh: buka.vbs

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

-------------

4. membuat Capslock menyala terus, simpan dengan nama capslock.vbs

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

------------

5. scrip membuat kata-kata "Apa kabar" secara berulang. Simpan dengan nama apakabar.vbs

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

-------------------

6. Membuat tulisan kamu jelek secara berulang. Simpan dengan nama jelek.vbs

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loop

----------------------

7. Membuat tombol enter menjadi hang, dan menekan enter secara terus menerus. Simpan dengan nama enter.vbs

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

----------------

8. Membuat virus dengan tulisan looping salah ketik. Simpan dengan nama saltik.vbs

MsgBox "Balik lagi ah...saltik"

Set wshShell  =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys  "{bs}"

loop

--------------------

Mungkin ini dulu yang dapat saya tulis buat sobat, di lain waktu nanti akan saya tambahi.

Thanks ya..