Matprofesor.blogspot.com

Monday, October 31, 2011

Cara Membuat 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..

No comments:

Post a Comment

Anyone can coment