Ouvrir le DVD avec le clavier

euh... bonjour j'aimerais savoir comment ouvrir le lecteur cd rom par le clavier j'ai un clavier acer svp merci de repondre

Salut Puxor
Merci beaucoup pour cette astuce, ça marche!!!!!
Euh.. et pour le refermer on peut aussi créer un fichier du genre pour l'affecter à une autre touche?

bonjour à tous! j aimerais programmée l ouverture et la fermeture automatique avec par exemple 10 secondes de compte a rebour sur mon lecteur F ( cd rom/dvd ) , es ce possible!?

jusqu ou ira t on^^?

En bricolant un peu, y a une solution.

Crée un fichier texte, colle le texte suivant dedans:

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

Enregistre le au format .vbs

Quand tu clique sur ton bouton, dis lui de lancer le script

CA MARCHE
Tu es un champion, merci pour ton aide et pour le temps que tu as bien voulu passer pour résoudre mon problème
Bon week-end

Salut,

Ton compte a rebour commencerait a quel moment?

En fait, je cherche surtout à le refermer car le lecteur est derriere une porte, il y a un bouton pour l'ouverture qui est inaccessible une fois la porte ouverte, et je dois le refermer en poussant sur le tiroir, j'aime pas trop ça....

essaye juste si y fonctionne, je suis sur un pc portable et y a pas de moteur pour refermer mon lecteur...

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")

' Detection des lecteurs de CD
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next

' Ouvrir tous les lecteurs
MsgBox "Ton lecteur premier CD : " & strDriveLetter, vbOKOnly + 48, "CDROM=> " & strDriveLetter
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next

' Fermer tous les lecteurs que l'on vient d'ouvrir
A1 = MsgBox("Appuyer sur une touche pour fermer les lecteurs " & strDriveLetter, 0 + 64, "Infos")
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next

Set owmp = Nothing
Set colCDROMs = Nothing
wscript.quit

de rien ^^

euhhhh... pour le refermer j'ai un doute, je check ^^