• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Открыть / Закрыть лоток опт. привода

  • Автор темы Автор темы morpheus
  • Дата начала Дата начала
M

morpheus

Заинтересовала меня одна возможность - открыть закрыть лоток оптического привода ( CD /DVD приводы ). Можно ли это зделать на Lotus.
Вот и получаетсья что можно ( за что и люблю лотус ). Используем Windows API

Всё очень просто в (Declarations) пишем
Код:
Declare Function mciSendStringA Lib "C:\WINDOWS\system32\winmm.dll" (Byval lpszCommand As String, Byval lpszReturnString As String, Byval cchReturn As Long,	Byval hwndCallback As Long ) As Long
где единственная заковырка с "C:\WINDOWS\system32\winmm.dll" - но ведь можно использовать Динамический LScript ( выяснить расположение папки с Windows не составит труда - используя переменные среды + windir )

ну и на кнопку повевить приблизительно такой код
Код:
		 Call mciSendStringA( "set cdaudio door open", "", 0, 0 ) - открыть
Call mciSendStringA( "set cdaudio door closed", "", 0, 0 ) - закрыть

Не стану расписывать значения параметров данной фунции mciSendString - можете прочитать на

Автор - Я :)
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab