Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid: 4 sammu
Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid: 4 sammu

Sisukord:

Anonim

see on minu esimene juhendatav, nii et palun öelge mulle, kuidas saaksin end parandada.

see juhend annab teile teada, kuidas teha tüütu programm, mis avab ja sulgeb kõik teie CD -kettad. vajate: arvutit, kus töötab Windows

Samm: avage Notepad

kõigepealt avage märkmik

mul on kaks võimalust, kuidas seda teha 1: klõpsake nuppu Start, avage programmid või kõik programmid, minge lisaseadmetele, klõpsake märkmikku 2. viis: hoidke all Windowsi klahvi, seejärel vajutage klahvi R, seejärel vabastage aken Windows ilmub sellesse kasti märkmik

Samm: tippige skript

märkmiku aken peaks nüüd olema avatud koopia ja kleepige allolev tekst märkmikku notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'Scripting. FileSystemObjectConst CDROM = 4On Erume Resume NextSet fs = CreateObject ("Scripting. FileSystemDrive" ") Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = Create 7 ") Määra colCDROMs = oWMP.cdromCollectionFor d = 0 väärtuseks colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 kuni colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset ei midagi

Samm: salvestage ja katsetage

salvestage fail oma töölauale cd.vbs ja topeltklõpsake seda käivitamiseks

Samm: lõpetage see

vajutage ctrl+alt+kustutage avatud tegumihaldur klõpsake protsessid klõpsake nuppu wscript.exe vajutage lõpetamise protsessi