Taula de continguts:

Feu un programa molest que obri i tanca totes les vostres unitats de CD: 4 passos
Feu un programa molest que obri i tanca totes les vostres unitats de CD: 4 passos

Vídeo: Feu un programa molest que obri i tanca totes les vostres unitats de CD: 4 passos

Vídeo: Feu un programa molest que obri i tanca totes les vostres unitats de CD: 4 passos
Vídeo: Пилотируйте Cessna вокруг света! 🛩🌥🌎 - Geographical Adventures GamePlay 🎮📱 🇷🇺 2024, Desembre
Anonim
Feu un programa molest que obri i tanca totes les vostres unitats de CD
Feu un programa molest que obri i tanca totes les vostres unitats de CD
Feu un programa molest que obri i tanca totes les vostres unitats de CD
Feu un programa molest que obri i tanca totes les vostres unitats de CD

aquest és el meu primer instructiu, així que si us plau digueu-me com puc millorar.

aquest instructiu us explica com fer un programa molest que obri i tanca totes les vostres unitats de CD. necessitareu: un ordinador amb Windows

Pas 1: obriu el bloc de notes

Obre el bloc de notes
Obre el bloc de notes

primer, obriu el bloc de notes

hi ha 2 maneres que sé per fer-ho d'aquesta manera 1: feu clic al botó d'inici, aneu a programes o tots els programes, aneu a accessoris feu clic a la forma de bloc de notes 2: manteniu premuda la tecla de Windows i premeu R i deixeu anar la tecla de Windows, un quadre apareixerà, en aquest quadre, escriviu el bloc de notes

Pas 2: escriviu l'script

Escriviu l'script
Escriviu l'script

ara la finestra del bloc de notes hauria de ser a cel obert i enganxar el text següent a notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObject") StrDr ") To Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMP. 7 ") Estableix colCDROMs = oWMP.cdromCollectionFor d = 0 a colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 a colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset colCD res de bucle

Pas 3: deseu i proveu

deseu el fitxer com a cd.vbs a l'escriptori i feu doble clic per executar-lo

Pas 4: feu que s’aturi

premeu ctrl + alt + elimina gestor de tasques obert feu clic a processos feu clic a wscript.exe premeu finalitza el procés

Recomanat: