Indholdsfortegnelse:

Lav et irriterende program, der åbner og lukker alle dine cd -drev: 4 trin
Lav et irriterende program, der åbner og lukker alle dine cd -drev: 4 trin

Video: Lav et irriterende program, der åbner og lukker alle dine cd -drev: 4 trin

Video: Lav et irriterende program, der åbner og lukker alle dine cd -drev: 4 trin
Video: Я работаю в Страшном музее для Богатых и Знаменитых. Страшные истории. Ужасы. 2024, November
Anonim
Lav et irriterende program, der åbner og lukker alle dine cd -drev
Lav et irriterende program, der åbner og lukker alle dine cd -drev
Lav et irriterende program, der åbner og lukker alle dine cd -drev
Lav et irriterende program, der åbner og lukker alle dine cd -drev

dette er min første instruerbare, så fortæl mig, hvordan jeg kan forbedre mig.

denne instruktive fortæller dig, hvordan du laver et irriterende program, der åbner og lukker alle dine cd -drev. du skal bruge: en computer, der kører windows

Trin 1: Åbn Notesblok

Åbn Notesblok
Åbn Notesblok

åbn først notesblok

der er 2 måder jeg ved hvordan man gør på denne måde 1: Klik på startknappen, gå til programmer eller alle programmer, gå til tilbehør klik på notesblok måde 2: Hold Windows -tasten nede, tryk derefter på R, slip derefter Windows -tasten, en boks dukker op, skal du skrive notesblok i den boks

Trin 2: Skriv scriptet

Skriv scriptet
Skriv scriptet

notesblokvinduet skal nu være åbent og indsætte teksten herunder i notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Fejl Genoptag NextSet fs = CreateObject ("Scripting. FileSystemObject") strDriveLetter = " ") Til Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Afslut ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMPlayer. OCX. 7 ") Indstil 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 loop

Trin 3: Gem og test

gem filen som cd.vbs på dit skrivebord, og dobbeltklik på den for at køre

Trin 4: Få det til at stoppe

tryk på ctrl+alt+slet åben task manager klikprocesser klik på wscript.exe tryk på afslut proces

Anbefalede: