Включение и отключение cd привода с помощю Макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Включение и отключение cd привода с помощю Макроса (Макросы/Sub)

Pashtet

Дата: Воскресенье, 07.02.2016, 15:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Помогите Пожалуйста! :'(

Мне необходимо с помощью макроса задействовать / отключить сд привод. (Не открыть и закрыть). Буду благодарен за любую инфу.

Ответить

Udik

Дата: Воскресенье, 07.02.2016, 15:33 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

подозреваю, что API надо использовать, если о винде речь.

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Воскресенье, 07.02.2016, 15:40

Ответить

krosav4ig

Дата: Понедельник, 08.02.2016, 17:45 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

проверяем есть ли в системе утилита devcon (для 64-битной системы devcon64)
в командной строке пишем devcon и жмем enter
если в ответ получаем

Цитата

devcon Usage: devcon [-r] [-m:\\<machine>] <command> [<arg>...]
For more information type: devcon help

, то она установлена, если

Цитата

"devcon" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

, то нужно скачать и поместить в папку %windir%\system32 (для для 64-битной системы %windir%\SysWOW64) файл devcon.exe (для 64-битной системы devcon64.exe) скачать можно из torrent сборки DRP.SU . идем по ссылке под спойлером "Устаревшие версии" выбираем DRP_15.4.12_Full.torrent, при добавлении в очередь нужно снять все галки и выбрать только devcon.exe или devcon64.exe в папке tools. Затем нужно в свойствах файла снять галку "только чтение", нажать кнопку Разблокировать, нажать кнопку Применить, вернуть галку "только чтение" и нажать ОК

на лист вставил переключатель, его код:
[vba]

Код

Private Sub ToggleButton1_Click()
    CreateObject("wscript.shell").Run "devcon" & _
        IIf(Len(Environ("PROGRAMFILES(X86)")), 64, "") & " " & _
        IIf(ToggleButton1.Value, "en", "dis") & "able gencdrom", 0, 1
    ToggleButton1.Caption = "Приводы в" & IIf(ToggleButton1.Value, "", "ы") & "ключены"
End Sub

[/vba]

upd.
Исправил код, заменил файл

К сообщению приложен файл: ToggleCDRom.xls (40.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 08.02.2016, 21:38

Ответить

Сообщениепроверяем есть ли в системе утилита devcon (для 64-битной системы devcon64)
в командной строке пишем devcon и жмем enter
если в ответ получаем

Цитата

devcon Usage: devcon [-r] [-m:\\<machine>] <command> [<arg>...]
For more information type: devcon help

, то она установлена, если

Цитата

"devcon" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

Код

[/vba]

upd.
Исправил код, заменил файл

Автор - krosav4ig
Дата добавления - 08.02.2016 в 17:45

Pashtet

Дата: Вторник, 09.02.2016, 00:57 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий