Ejecter un cd sous basic
Résolu
AZEazeazgfafaazea
Messages postés
58
Date d'inscription
jeudi 30 décembre 2004
Statut
Membre
Dernière intervention
21 septembre 2007
-
27 mars 2005 à 20:43
Hedrock Messages postés 9 Date d'inscription lundi 7 juillet 2003 Statut Membre Dernière intervention 30 mars 2005 - 28 mars 2005 à 10:42
Hedrock Messages postés 9 Date d'inscription lundi 7 juillet 2003 Statut Membre Dernière intervention 30 mars 2005 - 28 mars 2005 à 10:42
2 réponses
cs_algori
Messages postés
868
Date d'inscription
dimanche 26 décembre 2004
Statut
Membre
Dernière intervention
26 février 2008
1
27 mars 2005 à 21:55
27 mars 2005 à 21:55
Je sais que sous VBScript tu peux utiliser :
Set cd = CreateObject("WMPlayer.OCX.7")
Set cds = cd.cdromCollection
cds.Item(0).Eject
Je pense que sous VB, ça doit être à peu près pareil...
@++
Set cd = CreateObject("WMPlayer.OCX.7")
Set cds = cd.cdromCollection
cds.Item(0).Eject
Je pense que sous VB, ça doit être à peu près pareil...
@++
Hedrock
Messages postés
9
Date d'inscription
lundi 7 juillet 2003
Statut
Membre
Dernière intervention
30 mars 2005
28 mars 2005 à 10:42
28 mars 2005 à 10:42
Voila un bout de code (que j'ai testé il y a longtemps alors je ne garantie pas le
résultat):
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
Private Sub Fermer()
'*** Fermer la porte du lecteur CD
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
'**
RetVal = mciSendString("set CDAudio door closed", RString, 128, 0)
End Sub
Private Sub Ouvrir()
'*** Ouvrir la porte du lecteur CD
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
'**
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub
Bon Code !
résultat):
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
Private Sub Fermer()
'*** Fermer la porte du lecteur CD
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
'**
RetVal = mciSendString("set CDAudio door closed", RString, 128, 0)
End Sub
Private Sub Ouvrir()
'*** Ouvrir la porte du lecteur CD
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
'**
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub
Bon Code !