Tutoriale Linux, Tutoriale Programare, Tutoriale retele, tutoriale photoshop

Numele spune totul.

Cod:

        Dim wmplayer As Object
        Dim CDROM
        wmplayer = CreateObject("WMPlayer.OCX.7")
        CDROM = wmplayer.cdromCollection
        CDROM.Item(0).eject()
    End Sub

Puneti asta in procedura click a unui buton. Va ejecta prima unitate optica.
Pentru a ejecta si alta, poti schimba numarul "0" cu "1", "2", "3" etc. Depinde de cate unitati optice ai :mrgreen:

IPFind :: FAQDB :: LAMP.ro :: Good Proxy :: Aberez.EU :: RoFreeSBIE :: ShockingSoft.com :: HostVision :: Invatam.net :: PC Troubleshooting :: Curs valutar online
Ethical hacking and programming community