cd rom kapağını açıp kapayan şaka virüsü

merhaba  bugün cd rom kapağını açıp kapatan şaka virüsünü göstereceğim.
ilk önce notepadi açıyoruz ve aşağıdaki kodları yazıp farklı kaydetten ismini değiştiriyoruz ismini istediğiniz gibi koyabilirsiniz ama sonuna .vbs getirin şaka virüsünü durdurmak içinde görev yöneticisinden işlemler deyip wscript.exe dosyasını sonladırıyorsunuz.

kodlar:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
not:pc nize hiçbir zararı yoktur