|
|
 |
1. Bir not defteri açın
2. Verdiğim kodları not defterine yapıştırın
3. Uzantısını .vbs olarak kaydedin
4. İsterseniz açın bu bilgisayarınıza zarar vermez
----------------------KOD-------------------------------
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 |
|
 |
|
|
|
|
