Cara Buat Virus Kelakar

Cara Buat Virus Kelakar adalah hal yang Sistem Komputer paparkan saat ini karena sangat menarik. Banyak hal yang mungkin bisa didapatkan dari tulisan tentang Cara Buat Virus Kelakar ini.

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..
SELENGKAPNYA atau SEPENUHNYA

Sistem Komputer

Sitemap 1 2 3 4 5