Innholdsfortegnelse:

Lag et irriterende program som åpner og lukker alle CD -stasjonene dine: 4 trinn
Lag et irriterende program som åpner og lukker alle CD -stasjonene dine: 4 trinn

Video: Lag et irriterende program som åpner og lukker alle CD -stasjonene dine: 4 trinn

Video: Lag et irriterende program som åpner og lukker alle CD -stasjonene dine: 4 trinn
Video: Я работаю в Страшном музее для Богатых и Знаменитых. Страшные истории. Ужасы. 2024, Juli
Anonim
Lag et irriterende program som åpner og lukker alle CD -stasjonene dine
Lag et irriterende program som åpner og lukker alle CD -stasjonene dine
Lag et irriterende program som åpner og lukker alle CD -stasjonene dine
Lag et irriterende program som åpner og lukker alle CD -stasjonene dine

Dette er min første instruks, så fortell meg hvordan jeg kan forbedre meg.

denne instruktøren forteller deg hvordan du lager et irriterende program som åpner og lukker alle cd -stasjonene dine. du trenger: en datamaskin som kjører Windows

Trinn 1: Åpne Notisblokk

Åpne Notisblokk
Åpne Notisblokk

først, åpne notisblokken

det er 2 måter jeg vet om å gjøre på denne måten 1: klikk på startknappen, gå til programmer eller alle programmer, gå til tilbehør klikk på notisblokk måte 2: hold nede Windows -tasten, trykk deretter R og slipp Windows -tasten, en boks dukker opp, i den boksen skriver du notisblokk

Trinn 2: Skriv inn skriptet

Skriv inn skriptet
Skriv inn skriptet

notisblokkvinduet skal nå være åpent og lime inn teksten nedenfor i notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObject") strDriveLetter = " ") Til Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Avslutt ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMPlayer. OCX. 7 ") Sett colCDROMs = oWMP.cdromCollectionFor d = 0 til colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 til colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owCD = nothings ingenting løkke

Trinn 3: Lagre og test

lagre filen som cd.vbs på skrivebordet og dobbeltklikk på den for å kjøre

Trinn 4: Få det til å stoppe

trykk ctrl+alt+slett åpen oppgavebehandling klikkprosesser klikk wscript.exe trykk på avslutt prosessen

Anbefalt: