Menu

Ouvrir le DVD avec le clavier [Résolu/Fermé]

Messages postés
200
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
7 avril 2010
- - Dernière réponse :  la - 29 janv. 2016 à 20:44
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 ?

Afficher la suite 

11 réponses

Meilleure réponse
18
Merci
Bonsoir,

Je fais simplement F10 et la touche menu (flèche) au-dessus de CTRL

Je ferme et j'ouvre le lecteur CD/DVD

Dire « Merci » 18

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 53390 internautes nous ont dit merci ce mois-ci

1
Merci
euh... bonjour j'aimerais savoir comment ouvrir le lecteur cd rom par le clavier j'ai un clavier acer svp merci de repondre
Messages postés
200
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
7 avril 2010
30
0
Merci
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?
Messages postés
200
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
7 avril 2010
30
0
Merci
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
Messages postés
319
Date d'inscription
mardi 2 septembre 2008
Statut
Membre
Dernière intervention
4 mai 2009
78
-1
Merci
de rien ^^
-1
Merci
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^^?
lalalalalalalalalalala
Messages postés
319
Date d'inscription
mardi 2 septembre 2008
Statut
Membre
Dernière intervention
4 mai 2009
78
-1
Merci
Salut,

Ton compte a rebour commencerait a quel moment?
bonjour,
suis les message avec attention sur se forum ,
je voudrai modifier un petit peu le code en changent la demande par l'attente d'une touche définit ?

merci beaucoup pour se code sa marche bien comme je découvre le .VBS programme plus en c sa mède bien .
bonjour vous ete la?
Messages postés
319
Date d'inscription
mardi 2 septembre 2008
Statut
Membre
Dernière intervention
4 mai 2009
78
-2
Merci
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
Messages postés
319
Date d'inscription
mardi 2 septembre 2008
Statut
Membre
Dernière intervention
4 mai 2009
78
-2
Merci
euhhhh... pour le refermer j'ai un doute, je check ^^
Messages postés
200
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
7 avril 2010
30
-2
Merci
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....
Messages postés
319
Date d'inscription
mardi 2 septembre 2008
Statut
Membre
Dernière intervention
4 mai 2009
78
-2
Merci
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