Съдържание:

Направете досадна програма, която отваря и затваря всичките ви CD дискове: 4 стъпки
Направете досадна програма, която отваря и затваря всичките ви CD дискове: 4 стъпки

Видео: Направете досадна програма, която отваря и затваря всичките ви CD дискове: 4 стъпки

Видео: Направете досадна програма, която отваря и затваря всичките ви CD дискове: 4 стъпки
Видео: Ирония на съдбата, или Честита баня 1 серия 2024, Ноември
Anonim
Направете досадна програма, която отваря и затваря всички ваши CD дискове
Направете досадна програма, която отваря и затваря всички ваши CD дискове
Направете досадна програма, която отваря и затваря всички ваши CD дискове
Направете досадна програма, която отваря и затваря всички ваши CD дискове

това е първият ми инструктаж, така че, моля, кажете ми как мога да се подобря.

тази инструкция ви казва как да направите досадна програма, която отваря и затваря всичките ви CD дискове. ще ви трябва: компютър с Windows

Стъпка 1: Отворете Notepad

Отворете Notepad
Отворете Notepad

първо отворете бележника

има 2 начина, по които знам, че мога да направя този начин 1: щракнете върху бутона за стартиране, отидете на програми или всички програми, отидете на аксесоари, щракнете върху бележника начин 2: задръжте клавиша windows, след това натиснете R, след това освободете клавиша windows, поле ще се появи, в това поле въведете бележник

Стъпка 2: Въведете скрипта

Въведете скрипта
Въведете скрипта

прозорецът на бележника вече трябва да бъде отворен и копирайте текста по -долу в notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4 Върнете се към грешка NextSet fs = CreateObject ("Scripting = ") Към Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Излезте от ForEnd IfEnd IfNextSet oWMPO 7 ") Задайте colCDROMs = oWMP.cdromCollectionFor d = 0 до colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 към colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owM = нищо нищо

Стъпка 3: Запазете и тествайте

запишете файла като cd.vbs на вашия работен плот и щракнете двукратно върху него, за да стартирате

Стъпка 4: Направете го да спре

натиснете ctrl+alt+изтрийте отворен мениджър на задачи щракнете върху процеси щракнете wscript.exe натиснете край процес

Препоръчано: