Sisukord:

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

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

Video: Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid: 4 sammu
Video: Tourist Trophy: Closer To The Edge - Полный документальный фильм TT3D (Доступны субтитры !!) 2024, November
Anonim
Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid
Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid
Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid
Tehke tüütu programm, mis avab ja sulgeb kõik teie CD -draivid

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

Avage Notepad
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

Tippige skript
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

Soovitan: