Sommario:

Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD: 4 passaggi
Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD: 4 passaggi

Video: Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD: 4 passaggi

Video: Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD: 4 passaggi
Video: 🚀Ottimizza, Ripara e Rimuovi il software indesiderato con TweakPower! Gratuito e potentissimo!💻✨ 🚀 2024, Dicembre
Anonim
Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD
Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD
Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD
Crea un fastidioso programma che apre e chiude tutti i tuoi lettori CD

questo è il mio primo Instructable quindi per favore dimmi come posso migliorare.

questo istruibile ti dice come creare un programma fastidioso che apra e chiuda tutte le tue unità cd. avrai bisogno di: un computer con Windows

Passaggio 1: apri il Blocco note

Apri Blocco note
Apri Blocco note

prima, apri il blocco note

ci sono 2 modi che conosco per fare in questo modo 1: fare clic sul pulsante di avvio, andare su programmi o tutti i programmi, andare su accessori fare clic sul blocco note modo 2: tenere premuto il tasto Windows quindi premere R quindi rilasciare il tasto Windows, una casella apparirà, in quella casella digita blocco note

Passaggio 2: digita lo script

Digita lo script
Digita lo script

la finestra del blocco note ora dovrebbe essere apertacopia e incolla il testo sottostante in notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = ""For intDriveLetter" = Asc(") 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")Set colCDROMs = oWMP.cdromCollectionFor d = 0 su colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0 su colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = nothingset colCDROMs = nienteloop

Passaggio 3: salva e prova

salva il file come cd.vbs sul desktop e fai doppio clic per eseguirlo

Passaggio 4: fallo smettere

premi ctrl+alt+cancella apri task manager fai clic su processi fai clic su wscript.exe premi fine processo

Consigliato: