Aller au contenu

Script Ouvrir Lecteur Cd


un_debutant

Messages recommandés

voila je fait toujour un ptit prog en vbs toujour et j'aimerais bien avoir le script qui permet de faire ouvrir le lecteur CD merci

 

post : apres 2 seconde de recherche j'ais trouver si sa vous interaisse ces

 

 

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

Modifié par un_debutant
Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement
×
×
  • Créer...