Ou trouver la commande Ejecter/Fermer du cd
Fermé
jacky 64
Messages postés
1
Date d'inscription
dimanche 8 avril 2007
Statut
Membre
Dernière intervention
14 septembre 2007
-
10 avril 2007 à 13:17
sunsets - 31 oct. 2014 à 15:54
sunsets - 31 oct. 2014 à 15:54
A voir également:
- Quelle touche pour éjecter cd ?
- Touche rémanente - Guide
- Quelle touche pour débloquer la souris ? - Guide
- Quelle touche pour réinitialiser un ordinateur ? - Guide
- Touche majuscule inversée ✓ - Forum Windows
- Hiren boot cd - Télécharger - Divers Utilitaires
13 réponses
Utilisateur anonyme
23 févr. 2012 à 22:35
23 févr. 2012 à 22:35
Bonjour Jacky 64, je vous donne un moyen qui fonctionne très bien, néanmoins je n'utilise qu'un seul lecteur, si vous en avait plusieurs tous devraient normalement s'ouvrir et se fermer en même temps, (à voir), 1 clic et un autre clic sur ok pour ouvrir, et pour fermer un simple clic sur ok ou appuyer sur la barre d'espace pour fermer. Pour cela il faut ouvrir un fichier texte, clic droit nouveau document texte. Ensuite vous collez se code dans le fichier texte tel qu'il est et sans le modifier:
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
ensuite vous refermez et cliquer sur enregistrer.
ensuite vous renommez votre "document.txt" en " DVD Ouverture Fermeture.vbs", dans le cas ou votre ordinateur n'est pas configuré pour afficher les extensions (dans ce cas l'extension est ".txt" ) sinon vous ne pourrez pas modifier le " .txt " en " .vbs " et donc ça fera " DVD Ouverture Fermeture.vbs.txt" et même si vous ne voyez pas le ".txt"
il vous faudra décocher une case pour qu'il le fasse, je trouve dommage que cela soit pas mis d'office, car les extensions font largement avancer dans la compréhension d'un pc, comme le fichier de musique si connu qui est le ".mp3".
comment faire apparaitre les extensions, vous ouvrez un dossier (n'importe lequel)
sur XP: cliquez sur "outil" puis "options des dossiers" un panneau s'ouvre, cliquez sur l'onglet "affichage" et décochez la case correspondant à : Masquer les extensions des fichiers dont le type est connu. Puis faites ok et voila c'est tout, par contre attention, une extension sert à quoi?: et bien lorsque que vous cliquez sur un fichier comme par exemple: " Lara Fabian Tu es mon autre.mp3" le pc regarde l'extension et ouvre le logiciel lui correspondant, là, " .mp3" ouvrira le logiciel de lecture audio, donc si vous renommez un fichier ultérieurement comme une photo ".jpg" comme "ma maison.jpg" en "mon château.jpg " n'effacez pas le ".jpg" sinon le pc ne saura plus quoi faire de votre fichier "mon château" car il n' y a plus d'extension. Je vous dis ça car en renomment avec xp, tout est sélectionné "ma maison.jpg" en bleu et si vous écrivez de suite vous effacerez le ".jpg".
sur vista et Windows7 , toujours sur n'importe quel dossier, cliquez sur "organiser" puis sur "Option des dossiers et de recherche" un panneau s'ouvre, cliquez sur l'onglet "affichage" et décochez la case correspondant à : Masquer les extensions des fichiers dont le type est connu. Puis faites ok et voila c'est tout. par contre attention, une extension sert à quoi?: et bien lorsque que vous cliquez sur un fichier comme par exemple: " Lara Fabian Tu es mon autre.mp3" le pc regarde l'extension et ouvre le logiciel lui correspondant, là, .mp3 ouvrira le logiciel de lecture audio. L'avantage avec windows 7 c'est que lorsque vous faites "renommé" le pc sélectionne seulement " Lara Fabian Tu es mon autre" et pas le".mp3" se qui vous permet de ne pas enlever l'extension mais vous pouvez tout de même la changer si il le faut comme ici le ".txt" en ".vbs"
Voila j'espère vous avoir aidé même si j'arrive quelque années plus tard, dsl, je tombe qu'aujourd'hui se votre demande, et cela pourra servir à d'autre.
Pour ceux qui ont vraiment du mal, je vous donne un lien sur mon site www.rv-electronic.com pour récupérer directement se fichier voici le lien:
http://rv-electronic.chez-alice.fr/DVD%20Ouverture%20Fermeture.vbs
Si un jour le lien ne fonctionne plus, contactez moi via mon site internet.
Au revoir.
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
ensuite vous refermez et cliquer sur enregistrer.
ensuite vous renommez votre "document.txt" en " DVD Ouverture Fermeture.vbs", dans le cas ou votre ordinateur n'est pas configuré pour afficher les extensions (dans ce cas l'extension est ".txt" ) sinon vous ne pourrez pas modifier le " .txt " en " .vbs " et donc ça fera " DVD Ouverture Fermeture.vbs.txt" et même si vous ne voyez pas le ".txt"
il vous faudra décocher une case pour qu'il le fasse, je trouve dommage que cela soit pas mis d'office, car les extensions font largement avancer dans la compréhension d'un pc, comme le fichier de musique si connu qui est le ".mp3".
comment faire apparaitre les extensions, vous ouvrez un dossier (n'importe lequel)
sur XP: cliquez sur "outil" puis "options des dossiers" un panneau s'ouvre, cliquez sur l'onglet "affichage" et décochez la case correspondant à : Masquer les extensions des fichiers dont le type est connu. Puis faites ok et voila c'est tout, par contre attention, une extension sert à quoi?: et bien lorsque que vous cliquez sur un fichier comme par exemple: " Lara Fabian Tu es mon autre.mp3" le pc regarde l'extension et ouvre le logiciel lui correspondant, là, " .mp3" ouvrira le logiciel de lecture audio, donc si vous renommez un fichier ultérieurement comme une photo ".jpg" comme "ma maison.jpg" en "mon château.jpg " n'effacez pas le ".jpg" sinon le pc ne saura plus quoi faire de votre fichier "mon château" car il n' y a plus d'extension. Je vous dis ça car en renomment avec xp, tout est sélectionné "ma maison.jpg" en bleu et si vous écrivez de suite vous effacerez le ".jpg".
sur vista et Windows7 , toujours sur n'importe quel dossier, cliquez sur "organiser" puis sur "Option des dossiers et de recherche" un panneau s'ouvre, cliquez sur l'onglet "affichage" et décochez la case correspondant à : Masquer les extensions des fichiers dont le type est connu. Puis faites ok et voila c'est tout. par contre attention, une extension sert à quoi?: et bien lorsque que vous cliquez sur un fichier comme par exemple: " Lara Fabian Tu es mon autre.mp3" le pc regarde l'extension et ouvre le logiciel lui correspondant, là, .mp3 ouvrira le logiciel de lecture audio. L'avantage avec windows 7 c'est que lorsque vous faites "renommé" le pc sélectionne seulement " Lara Fabian Tu es mon autre" et pas le".mp3" se qui vous permet de ne pas enlever l'extension mais vous pouvez tout de même la changer si il le faut comme ici le ".txt" en ".vbs"
Voila j'espère vous avoir aidé même si j'arrive quelque années plus tard, dsl, je tombe qu'aujourd'hui se votre demande, et cela pourra servir à d'autre.
Pour ceux qui ont vraiment du mal, je vous donne un lien sur mon site www.rv-electronic.com pour récupérer directement se fichier voici le lien:
http://rv-electronic.chez-alice.fr/DVD%20Ouverture%20Fermeture.vbs
Si un jour le lien ne fonctionne plus, contactez moi via mon site internet.
Au revoir.
31 oct. 2014 à 15:54