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

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

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

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: