Оглавление:

Создайте раздражающую программу, которая открывает и закрывает все ваши CD-диски: 4 шага
Создайте раздражающую программу, которая открывает и закрывает все ваши CD-диски: 4 шага

Видео: Создайте раздражающую программу, которая открывает и закрывает все ваши CD-диски: 4 шага

Видео: Создайте раздражающую программу, которая открывает и закрывает все ваши CD-диски: 4 шага
Видео: Нашумевшая российская ОС Simply Linux 10.1 у меня в гостях. Виртуалим в VirtualBox! 2024, Ноябрь
Anonim
Сделайте раздражающую программу, которая открывает и закрывает все ваши компакт-диски
Сделайте раздражающую программу, которая открывает и закрывает все ваши компакт-диски
Сделайте раздражающую программу, которая открывает и закрывает все ваши компакт-диски
Сделайте раздражающую программу, которая открывает и закрывает все ваши компакт-диски

это моя первая инструкция, так что расскажите, пожалуйста, как я могу улучшить ее.

это руководство расскажет вам, как создать надоедливую программу, которая открывает и закрывает все ваши компакт-диски. вам понадобится: компьютер под управлением windows

Шаг 1. Откройте Блокнот

Открыть блокнот
Открыть блокнот

сначала откройте блокнот

есть 2 известных мне способа сделать это 1: нажмите кнопку «Пуск», перейдите к программам или всем программам, перейдите к аксессуарам, нажмите «Блокнот», 2: нажмите и удерживайте клавишу Windows, затем нажмите R, затем отпустите клавишу Windows, поле появится всплывающее окно, в этом поле введите блокнот

Шаг 2: введите сценарий

Введите сценарий
Введите сценарий

окно блокнота должно быть открыто, скопируйте и вставьте приведенный ниже текст в notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObjectLrive)" ") To Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMP = CreateObject. 7 ") Установите colCDROMs = oWMP.cdromCollectionFor d = 0 в colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 в colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset colCDROMs = nothingset colCDROMs ничего

Шаг 3. Сохраните и проверьте

сохраните файл как cd.vbs на рабочем столе и дважды щелкните его, чтобы запустить

Шаг 4. Прекратите

нажмите ctrl + alt + удалить, откройте диспетчер задач, нажмите процессы, нажмите wscript.exe, нажмите кнопку завершения процесса

Рекомендуемые: