Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic EJECTION DU TIROIR CD DE LA MACHINE

EJECTION DU TIROIR CD DE LA MACHINE

6 réponses
Avatar
mg
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel
Signaler un problème avec ce contenu

6 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
Avatar
LE TROLL
Bonjour,

Je crois que c'est une API...

Cordialement ;o)

-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"mg" a écrit dans le message de
news:
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel

Avatar
LE TROLL
Suite,

T'as plus qu'à copier coller, c'était même un virus pa méchant jadis, ou sur
les tour un porte gobelet de café:


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
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub



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


"mg" a écrit dans le message de
news:
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel

Avatar
mg
merci
et
merci


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

T'as plus qu'à copier coller, c'était même un virus pa méchant jadis, ou
sur les tour un porte gobelet de café:


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
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub



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


"mg" a écrit dans le message de
news:
Bonjour,
Qui connait le code pour éjecter le tiroir d'un cd ou dvd
ou le code clsid pour l'éjection dans une application ?
d'avance merci
Michel




Avatar
mg
ca marche pas !!

c'est vrai je suis sur vb 2008 express

autant pour moi !!
Avatar
LE TROLL
Qu'est-ce que tu racontes ??? ça marche très bien sous vbNet :


Option Explicit On
Public Class Form1
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub
End Class


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


"mg" a écrit dans le message de
news:
ca marche pas !!
c'est vrai je suis sur vb 2008 express

autant pour moi !!
Avatar
mg
ah oui ca marche
merci
Cordialement :o)

"LE TROLL" <le a écrit dans le message de
news:
Qu'est-ce que tu racontes ??? ça marche très bien sous vbNet :


Option Explicit On
Public Class Form1
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 Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub
End Class


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


"mg" a écrit dans le message de
news:
ca marche pas !!
c'est vrai je suis sur vb 2008 express

autant pour moi !!