.

Hari ni saya akan ajar virus kenakan kawan2 korang... Virus ini memang boleh buat korang gelak pecah perut.. Pada azali nya ini bukan la virus just 1 bentuk arahan koding vbs untuk sesebuah komputer.
Korang ikut step yang saya 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 " Naruto.vbs " jangan korang 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..






Updated: kalau xjadi korang try coding 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 cuba coding ni. confirm 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 dengan nama Naruto.vbs pastu tekan.. oraite.. settle..
Selamat mencuba..