Tartalomjegyzék:

Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót: 4 lépés
Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót: 4 lépés

Videó: Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót: 4 lépés

Videó: Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót: 4 lépés
Videó: Készítsünk Photoshop .psd fájlból minden mentéskor egy AI generált képet. A ComfyUI-t használja. 2024, November
Anonim
Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót
Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót
Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót
Készítsen bosszantó programot, amely megnyitja és bezárja az összes CD -meghajtót

ez az első Instructable, ezért kérem, mondja meg, hogyan javíthatnék.

ez az utasítás elmagyarázza, hogyan lehet bosszantó programot készíteni, amely megnyitja és bezárja az összes CD -meghajtót. amire szüksége lesz: egy Windows rendszert futtató számítógépre

Lépés: Nyissa meg a Jegyzettömböt

Nyissa meg a Jegyzettömböt
Nyissa meg a Jegyzettömböt

először nyissa meg a jegyzettömböt

kétféle módon tudom ezt megtenni: 1: kattintson a Start gombra, lépjen a programokhoz vagy az összes programhoz, menjen a tartozékokhoz kattintson a Jegyzettömb 2. módszerére: tartsa lenyomva a Windows billentyűt, majd nyomja meg az R gombot, majd engedje fel a Windows gombot, egy doboz felugrik, ebbe a mezőbe írja be a jegyzettömböt

2. lépés: Írja be a szkriptet

Írja be a szkriptet
Írja be a szkriptet

a Jegyzettömb ablaknak most opencopy -nak kell lennie, és illessze be az alábbi szöveget a notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemDr" ") To Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Kilépés az IfEnd IfNextSet oWMP = Create 7 ") Állítsa be a colCDROMs = oWMP.cdromCollectionFor d = 0 értéket a colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 értékre a colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = semmi semmi hurok

3. lépés: Mentés és tesztelés

mentse el a fájlt cd.vbs néven az asztalon, és kattintson duplán a futtatásához

4. lépés: Állítsa le

nyomja meg a ctrl+alt+törlése nyitott feladatkezelő kattintási folyamatok kattintson a wscript.exe folyamat befejezése gombra

Ajánlott: