ouvrir le DVD avec le clavier Résolu/Fermé

Question

Bonjour à tous
J'ai un clavier logitech dinovo edge sur lequel on peut programmer certaines touches pour effectuer des tâches ouvirir des progs , fichiers ect

J'ai déjà octroyé certaines tâches à la plupart de ces touches , mais je voudrais programmer une des touches pour ouvrir le tiroir du graveur de DVD, et je ne trouve pas de solution...
Quelqu'un aurait-il une idée ?

Kimberley · Accepted Answer

Bonsoir,

Je fais simplement F10 et la touche menu (flèche) au-dessus de CTRL

Je ferme et j'ouvre le lecteur CD/DVD

puxor · Answer

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

bugophobe · Answer

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?

puxor · Answer

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

bugophobe · Answer

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....

puxor · Answer

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

bugophobe · Answer

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

puxor · Answer

de rien ^^

clem! · Answer

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^^?

puxor · Answer

Salut,

Ton compte a rebour commencerait a quel moment?

may123 · Answer

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

Ouvrir le DVD avec le clavier

11 réponses

Discussions similaires