УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
Скрипты от скуки

Опции темы

Поиск в этой теме

Опции просмотра

#!/usr/bin/perl # cdrom_eject.pl # извлечение и загрузка CDRom # by perl_demon@mail.ru - 16.03.08 use Win32API::File 0.08 qw( :ALL ); $hCdRom= CreateFile( "\\\\.\\CdRom0", GENERIC_READ()|GENERIC_WRITE(),FILE_SHARE_READ()|FILE_SHARE_WRITE(), [], OPEN_EXISTING(), 0, [] ) or die "Can't CREATEFILE CDROM: $^E\n"; $rez=DeviceIoControl($hCdRom, IOCTL_STORAGE_EJECT_MEDIA,[],[],[],[],[],[]); sleep(5); $rez=DeviceIoControl($hCdRom, IOCTL_STORAGE_LOAD_MEDIA,[],[],[],[],[],[]); CloseHandle($hCdRom);