Cara Buat Virus Kelakar

Assalamualaikum..

Hari ni Admin akan ajar virus kelakar.. wakakak.. Baru Admin semalam kenakan 

kawan Admin. Virus ini memang boleh buat korang gelak pecah perut. sebab Admin pon tak boleh tahan nak gelak apabila mngenakan kawan dengan virus ini. Pada azali nya ini

bukan la virus just 1 bentuk arahan  koding vbs untuk sesebuah komputer.

Korang ikut step yang Admin ajar.

Step 1. Buka Notepad.

Step 2. ketakkan koding vbs ni di notepad  tersebut.

do
Set oWMP = CreateObject(“WMPlayer.OCX.7″ )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If
loop

Korang copy pastu paste di notepad yang korang buka .

Pastu save dengan apa-apa name sekalipon contohnya " hackpensil.vbs " jangkorang lupa 
masa nak save tu tukar text document kepada all file....

Selepas korang tekan bende alah ini cdrom korang akan terbuka dengan sendirinya 

walaupon ditutup berulang kali. wakaka.. kelakar kn... :))

Cara untuk mematiikannya adalah korang pergi ke task manager ( CTRL+Alt+DEL)

pastu pergi ke process carik nama "wscript.exe" pastu right klik pilih end process.

so korang boleh gelak puas-puass tengok gelagat kawan korang yang menutup

cdrom berulang kali.. keh3.. selamat mencuba.. 

Cheer:)






Updated: kalau xjadi korang try koding ni plak cara yang sama cuma koding berbeza.


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

Updated: korang try koding ni. mesti jadi..

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

Save hackpensil.vbs pastu tekan.. oraite.. settle..

Selamat mencuba..