Inhoudsopgave:

Maak een vervelend programma dat al uw cd-stations opent en sluit - Ajarnpa
Maak een vervelend programma dat al uw cd-stations opent en sluit - Ajarnpa

Video: Maak een vervelend programma dat al uw cd-stations opent en sluit - Ajarnpa

Video: Maak een vervelend programma dat al uw cd-stations opent en sluit - Ajarnpa
Video: Curious Beginnings | Critical Role: THE MIGHTY NEIN | Episode 1 2024, November
Anonim
Maak een irritant programma dat al je cd-stations opent en sluit
Maak een irritant programma dat al je cd-stations opent en sluit
Maak een irritant programma dat al je cd-stations opent en sluit
Maak een irritant programma dat al je cd-stations opent en sluit

dit is mijn eerste Instructable dus vertel me alsjeblieft hoe ik kan verbeteren.

deze instructable vertelt je hoe je een vervelend programma maakt dat al je cd-stations opent en sluit. je hebt nodig: een computer met Windows

Stap 1: Open Kladblok

Kladblok openen
Kladblok openen

open eerst Kladblok

er zijn 2 manieren die ik ken om dit te doen 1: klik op de startknop, ga naar programma's of alle programma's, ga naar accessoires klik op kladblok manier 2: houd de Windows-toets ingedrukt en druk vervolgens op R en laat de Windows-toets los, een vak zal verschijnen, typ in dat vak kladblok

Stap 2: Typ het script

Typ het script
Typ het script

het Kladblok-venster zou nu open moeten zijn. Kopieer en plak de onderstaande tekst in notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = "=Voor intDriveLetter = ""AscDriveLetter = ""AscDriveLetter = ""Voor intDriveLetter ") To Asc("Z")Err. ClearIf fs. GetDrive(Chr(intDriveLetter)). DriveType = CD-ROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr(intDriveLetter)Exit ForEnd IfEnd IfNextSet oWMP = CreateObject("WMPlayer. OCX. 7")Stel colCDROMs = oWMP.cdromCollectionFor d = 0 in op colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0 op colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = niets ingesteld colCDROMs = nietsloop

Stap 3: Opslaan en testen

sla het bestand op als cd.vbs op je bureaublad en dubbelklik erop om het uit te voeren

Stap 4: Laat het stoppen

druk op ctrl+alt+delete open taakbeheer klik op processen klik op wscript.exe druk op proces beëindigen

Aanbevolen: