Turinys:

Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus: 4 žingsniai
Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus: 4 žingsniai

Video: Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus: 4 žingsniai

Video: Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus: 4 žingsniai
Video: Web Programming - Computer Science for Business Leaders 2016 2024, Liepa
Anonim
Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus
Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus
Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus
Sukurkite erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus

tai mano pirmasis „Instructable“, todėl pasakykite man, kaip galėčiau tobulėti.

ši pamoka nurodo, kaip sukurti erzinančią programą, kuri atidaro ir uždaro visus jūsų CD diskus. jums reikės: kompiuterio, kuriame veikia „Windows“

1 veiksmas: atidarykite „Notepad“

Atidarykite „Notepad“
Atidarykite „Notepad“

pirma, atidarykite užrašų knygelę

Žinau 2 būdus, kaip tai padaryti 1: spustelėkite pradžios mygtuką, eikite į programas arba visas programas, eikite į priedus, spustelėkite užrašų knygelę 2 būdas: laikykite nuspaudę „Windows“klavišą, tada paspauskite R, tada atleiskite „Windows“klavišą, langelį pasirodys toje dėžutėje užrašų knygelė

2 veiksmas: įveskite scenarijų

Įveskite scenarijų
Įveskite scenarijų

bloknotų langas dabar turėtų būti „opencopy“ir įklijuoti žemiau esantį tekstą į „notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs“Kaip scenarijus. ") Į Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Išeiti pasibaigus IfEnd IfNextSet oWMP = Sukurti 7 ") Nustatykite colCDROMs = oWMP.cdromCollectionFor d = 0 į colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 į colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset nieko

3 žingsnis: išsaugokite ir išbandykite

išsaugokite failą kaip cd.vbs darbalaukyje ir dukart spustelėkite, kad paleistumėte

4 žingsnis: sustabdykite

paspauskite ctrl+alt+ištrinti atidarytą užduočių tvarkyklę spustelėkite procesus spustelėkite wscript.exe paspauskite pabaigos procesą

Rekomenduojamas: