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

Inhoudsopgave:

Anonim

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

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

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