A voir également:
- Ouvrir le DVD avec le clavier
- Ouvrir le DVD avec le clavier ✓ - Forum - Clavier
- Lenovo ideapad 330 ouvrir lecteur dvd ✓ - Forum - Ordinateur portable
- Ouvrir lecteur dvd asus ✓ - Forum - Windows
- Comment ouvrir les guillemets sur un clavier ✓ - Forum - Windows
- Portable Lenovo ✓ - Forum - Ordinateur portable
11 réponses
Kimberley
Bonsoir,
Je fais simplement F10 et la touche menu (flèche) au-dessus de CTRL
Je ferme et j'ouvre le lecteur CD/DVD
Je fais simplement F10 et la touche menu (flèche) au-dessus de CTRL
Je ferme et j'ouvre le lecteur CD/DVD
may123
euh... bonjour j'aimerais savoir comment ouvrir le lecteur cd rom par le clavier j'ai un clavier acer svp merci de repondre
bugophobe
- Messages postés
- 200
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Membre
- Dernière intervention
- 7 avril 2010
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?
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?
clem!
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^^?
jusqu ou ira t on^^?
puxor
- Messages postés
- 319
- Date d'inscription
- mardi 2 septembre 2008
- Statut
- Membre
- Dernière intervention
- 4 mai 2009
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
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
- Messages postés
- 200
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Membre
- Dernière intervention
- 7 avril 2010
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
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
- Messages postés
- 319
- Date d'inscription
- mardi 2 septembre 2008
- Statut
- Membre
- Dernière intervention
- 4 mai 2009
Salut,
Ton compte a rebour commencerait a quel moment?
Ton compte a rebour commencerait a quel moment?
bugophobe
- Messages postés
- 200
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Membre
- Dernière intervention
- 7 avril 2010
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
- Messages postés
- 319
- Date d'inscription
- mardi 2 septembre 2008
- Statut
- Membre
- Dernière intervention
- 4 mai 2009
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
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