Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Windows Windows Vista Discussions Générales ouverture d'un dvd

ouverture d'un dvd

20 réponses
Avatar
mg
bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Le Claude
Salut,


Si le tiroir est coincé, sur la façade de ton lecteur, il y a un
minuscule trou, une aiguille dedans permet son ouverture.
--
Amicalement, Claude.

Claude CHARNEAU MVP-Windows Desktop Experience.

Un lien pour s'abonner à des groupe de discussions sur W7, sur Office 2010
et sur IE 8:
http://w7ng.wordpress.com/
Ordinateur muet ? la solution est peut être ici :
http://leclaudemvp.wordpress.com/
La fé sens òbras, mòrta es.


"mg" a écrit dans le message de groupe de discussion :

bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)

Avatar
mg
non c pas ca c'est pour ouvrir via l'invite de commande


"Le Claude" a écrit dans le message
de news:
Salut,


Si le tiroir est coincé, sur la façade de ton lecteur, il y a un
minuscule trou, une aiguille dedans permet son ouverture.
--
Amicalement, Claude.

Claude CHARNEAU MVP-Windows Desktop Experience.

Un lien pour s'abonner à des groupe de discussions sur W7, sur Office 2010
et sur IE 8:
http://w7ng.wordpress.com/
Ordinateur muet ? la solution est peut être ici :
http://leclaudemvp.wordpress.com/
La fé sens òbras, mòrta es.


"mg" a écrit dans le message de groupe de discussion :

bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)

Avatar
Le Claude
re...

Pourquoi tu te casses la tête ? clic droit sur le raccourci vers ton lecteur
==> [Ejecter]

--
Amicalement, Claude.

Claude CHARNEAU MVP-Windows Desktop Experience.

Un lien pour s'abonner à des groupe de discussions sur W7, sur Office 2010
et sur IE 8:
http://w7ng.wordpress.com/
Ordinateur muet ? la solution est peut être ici :
http://leclaudemvp.wordpress.com/
La fé sens òbras, mòrta es.


"mg" a écrit dans le message de groupe de discussion :

bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)

Avatar
mg
c pour ejecter au cour d'un programme

"Le Claude" a écrit dans le message
de news:
re...

Pourquoi tu te casses la tête ? clic droit sur le raccourci vers ton
lecteur ==> [Ejecter]

--
Amicalement, Claude.

Claude CHARNEAU MVP-Windows Desktop Experience.

Un lien pour s'abonner à des groupe de discussions sur W7, sur Office 2010
et sur IE 8:
http://w7ng.wordpress.com/
Ordinateur muet ? la solution est peut être ici :
http://leclaudemvp.wordpress.com/
La fé sens òbras, mòrta es.


"mg" a écrit dans le message de groupe de discussion :

bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)

Avatar
LE TROLL
Bonjour,

Tiens, je t'ai fait un petit programme qui ouvre la porte, ici :

http://mesromans.free.fr/ejecte.zip

Le code est :

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub Form_Load()
Dim RetVal As Long
Dim RString As String
Form1.Hide
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub

Sub Form_Click()
Unload Form1
End Sub

Sub Form_Unload(Cancel As Integer)
End
End Sub


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" a écrit dans le message de
news:
bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)

Avatar
mg
merci g deja recu ca marche mais il n'en ouvre 1 seul toujour le meme hors
je veut pouvoir ouvrir chaque cd ou dvd

eh oui je suis difficile
amicalement
michel


"LE TROLL" <le a écrit dans le message de
news:
Bonjour,

Tiens, je t'ai fait un petit programme qui ouvre la porte, ici :

http://mesromans.free.fr/ejecte.zip

Le code est :

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub Form_Load()
Dim RetVal As Long
Dim RString As String
Form1.Hide
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub

Sub Form_Click()
Unload Form1
End Sub

Sub Form_Unload(Cancel As Integer)
End
End Sub


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" a écrit dans le message de
news:
bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)




Avatar
Michel (pen ar bed)
Il se trouve que mg a formulé :
merci g deja recu ca marche mais il n'en ouvre 1 seul toujour le meme hors je
veut pouvoir ouvrir chaque cd ou dvd

eh oui je suis difficile
amicalement
michel






Pour le premier lecteur CD/dvd (0)(1) pour le deux ....
----------------------------------------------------
Dim Wshell
Set Wshell = Wscript.CreateObject("Wscript.Shell")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject

' Fermer le lecteur que l'on vient d'ouvrir
MsgBox("OK Pour fermer le lecteur ")
colCDROMs.Item(0).Eject
Set owmp = Nothing
Set colCDROMs = Nothing
Wscript.Quit
-----------------------------------------------
M.
Avatar
mg
au demarrage j'ai le message suivant : Variable objet ou variable d'un bloc
With non définie.
aurais je oublier de declarer une variable?



"Michel (pen ar bed)" a écrit dans le message de
news:
Il se trouve que mg a formulé :
merci g deja recu ca marche mais il n'en ouvre 1 seul toujour le meme
hors je veut pouvoir ouvrir chaque cd ou dvd

eh oui je suis difficile
amicalement
michel






Pour le premier lecteur CD/dvd (0)(1) pour le deux ....
----------------------------------------------------
Dim Wshell
Set Wshell = Wscript.CreateObject("Wscript.Shell")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject

' Fermer le lecteur que l'on vient d'ouvrir
MsgBox("OK Pour fermer le lecteur ")
colCDROMs.Item(0).Eject
Set owmp = Nothing
Set colCDROMs = Nothing
Wscript.Quit
-----------------------------------------------
M.


Avatar
Jacquouille la Fripouille
*Bonjour mg*
Tu as tapoté sur ton clavier le message suivant
<news: :

bonjour,
qui connait le code CLSID d'ouverture de tiroir d'un lecteur cd ou dvd ??
d'avance merci
amicalement ! :o)



T'appuies sur le bouton. lol Je sors...
--
Jacquouille la Fripouille
Périgord, meitat chen, meitat porc.
Avatar
Michel (pen ar bed)
mg a exprimé avec précision :
au demarrage j'ai le message suivant : Variable objet ou variable d'un bloc
With non définie.
aurais je oublier de declarer une variable?






?? ben ... chez moi cela fonctionne bien pour les deux lecteurs ??
Le copié/collé est bon ?


Dim Wshell
Set Wshell = Wscript.CreateObject("Wscript.Shell")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject

' Fermer le lecteur que l'on vient d'ouvrir
MsgBox("OK Pour fermer le lecteur ")
colCDROMs.Item(0).Eject
Set owmp = Nothing
Set colCDROMs = Nothing
Wscript.Quit
1 2