Table des matières:

Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD : 4 étapes
Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD : 4 étapes

Vidéo: Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD : 4 étapes

Vidéo: Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD : 4 étapes
Vidéo: Comment résoudre le probléme du lecteur cd - dvd qui ne s'affiche pas ! 2024, Juillet
Anonim
Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD
Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD
Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD
Créez un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD

c'est mon premier Instructable alors s'il vous plaît dites-moi comment je peux m'améliorer.

cette instructable vous explique comment créer un programme ennuyeux qui ouvre et ferme tous vos lecteurs de CD. il vous faudra: un ordinateur sous windows

Étape 1: Ouvrez le Bloc-notes

Ouvrir le bloc-notes
Ouvrir le bloc-notes

d'abord, ouvrez le bloc-notes

il y a 2 façons que je connais de faire de cette façon 1: cliquez sur le bouton démarrer, allez dans les programmes ou tous les programmes, allez dans les accessoires cliquez sur le bloc-notes façon 2: maintenez la touche Windows enfoncée puis appuyez sur R puis relâchez la touche Windows, une boîte apparaîtra, dans cette boîte, tapez le bloc-notes

Étape 2: Tapez le script

Tapez le script
Tapez le script

la fenêtre du bloc-notes devrait maintenant être ouvertecopiez et collez le texte ci-dessous dans notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = ""For intDriveLetter = Asc("A ") To Asc("Z")Err. ClearIf fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr(intDriveLetter)Exit ForEnd IfEnd IfNextSet oWMP = CreateObject("WMPlayer. OCX. 7")Définir colCDROMs = oWMP.cdromCollectionFor d = 0 sur colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0 sur colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = Nothingset colCDROMs = rien en boucle

Étape 3: Enregistrez et testez

enregistrez le fichier sous cd.vbs sur votre bureau et double-cliquez dessus pour l'exécuter

Étape 4: Arrêtez-le

appuyez sur ctrl + alt + supprimer ouvrir le gestionnaire de tâches cliquez sur les processus cliquez sur wscript.exe appuyez sur le processus de fin

Conseillé: