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

Table des matières:

Anonim

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

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

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