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

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:51

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“

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ų

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ą