Innehållsförteckning:

Gör ett irriterande program som öppnar och stänger alla dina CD -enheter: 4 steg
Gör ett irriterande program som öppnar och stänger alla dina CD -enheter: 4 steg

Video: Gör ett irriterande program som öppnar och stänger alla dina CD -enheter: 4 steg

Video: Gör ett irriterande program som öppnar och stänger alla dina CD -enheter: 4 steg
Video: Störig granne 2024, November
Anonim
Gör ett irriterande program som öppnar och stänger alla dina CD -enheter
Gör ett irriterande program som öppnar och stänger alla dina CD -enheter
Gör ett irriterande program som öppnar och stänger alla dina CD -enheter
Gör ett irriterande program som öppnar och stänger alla dina CD -enheter

detta är min första instruerbara så berätta för mig hur jag kan förbättra.

denna instruerbara berättar hur du gör ett irriterande program som öppnar och stänger alla dina cd -enheter. du behöver: en dator som kör windows

Steg 1: Öppna Anteckningar

Öppna anteckningsblock
Öppna anteckningsblock

först, öppna anteckningsblock

det finns 2 sätt jag vet hur man gör på detta sätt 1: klicka på startknappen, gå till program eller alla program, gå till tillbehör klicka på anteckningsblock sätt 2: håll ner Windows -tangenten och tryck sedan på R och släpp sedan Windows -tangenten, en ruta kommer att dyka upp, i den rutan skriver du anteckningsblock

Steg 2: Skriv in skriptet

Skriv in skriptet
Skriv in skriptet

Anteckningsfönstret ska nu öppnas och klistra in texten nedan i notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObject") strDriveLetter = "StrDriveLetter =" ") Till Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Avsluta FörEnd IfEnd IfNextSet oWMP = CreateObject (" WMPlayer. OCX. 7 ") Ställ in colCDROMs = oWMP.cdromCollectionFor d = 0 till colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 till colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owCD = nothings ingenting loop

Steg 3: Spara och testa

spara filen som cd.vbs på skrivbordet och dubbelklicka på den för att köra

Steg 4: Få det att sluta

tryck på ctrl+alt+ta bort öppen aktivitetshanterare klicka på processer klicka på wscript.exe tryck på avsluta processen

Rekommenderad: