Obsah:

Vytvořte otravný program, který otevře a zavře všechny vaše disky CD: 4 kroky
Vytvořte otravný program, který otevře a zavře všechny vaše disky CD: 4 kroky

Video: Vytvořte otravný program, který otevře a zavře všechny vaše disky CD: 4 kroky

Video: Vytvořte otravný program, který otevře a zavře všechny vaše disky CD: 4 kroky
Video: TOP 15 – Skryté funkce na iPhone (iOS), které musíte znát! 🔥 2024, Listopad
Anonim
Vytvořte otravný program, který otevře a zavře všechny vaše disky CD
Vytvořte otravný program, který otevře a zavře všechny vaše disky CD
Vytvořte otravný program, který otevře a zavře všechny vaše disky CD
Vytvořte otravný program, který otevře a zavře všechny vaše disky CD

toto je můj první Instructable, tak mi prosím řekněte, jak se mohu zlepšit.

tento návod vám řekne, jak vytvořit otravný program, který otevírá a zavírá všechny vaše disky CD. budete potřebovat: počítač se systémem Windows

Krok 1: Otevřete Poznámkový blok

Otevřete Poznámkový blok
Otevřete Poznámkový blok

nejprve otevřete poznámkový blok

Znám 2 způsoby, jak to udělat 1: klikněte na tlačítko Start, přejděte na programy nebo všechny programy, přejděte na příslušenství, klikněte na způsob poznámkového bloku 2: podržte klávesu Windows, poté stiskněte R a poté uvolněte klávesu Windows, pole vyskočí, v tomto poli zadejte poznámkový blok

Krok 2: Zadejte skript

Zadejte skript
Zadejte skript

okno poznámkového bloku by nyní mělo být otevřené zkopírujte a vložte níže uvedený text do programu notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObject" ") To Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMPlayer 7 ") Nastavit colCDROMs = oWMP.cdromCollectionFor d = 0 na colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 na colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset colCDROMs = nic smyčky

Krok 3: Uložte a otestujte

uložte soubor jako cd.vbs na plochu a dvojitým kliknutím jej spusťte

Krok 4: Nechte to zastavit

stiskněte ctrl+alt+odstranit otevřený správce úloh klikněte na procesy klikněte na proces wscript.exe stiskněte konec

Doporučuje: