Блокировка и разблокировка клавы с мыхом

← →
Subdigger (2002-11-27 00:51) [0]

Подскажите пожалуйста люди, как заблочить каву с мыхом и потом разблочить. Причём я пытался через BlockInput по совету некотторых товарищей, но она выдаёт какуюто глючную месагу типа Ассес виалатиорн гдето там и разблочить можно только подойдя к машине и нажав три заветные кнопки. А включить нужно удалённо??!!
За ранне благодарен

← →
BoxTer (2002-11-27 07:16) [1]

Можно использовать из приложения Дельфи с помощью следующей конструкции:
ShellExecute(Application.Handle,
Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),
Pchar(команда),
Pchar("C:\Windows"),SW_SHOWNORMAL);
где: команда - одна из перечисленных ниже
Например, выход из Windows без любых сообщений/вопросов:
ShellExecute(Application.Handle,
Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),
Pchar("krnl386.exe,exitkernel"),
Pchar("C:\Windows"),SW_SHOWNORMAL);

"rundll32 shell32,Control_RunDLL" - Выводит "Панель управления"
"rundll32 shell32,OpenAs_RunDLL" - Выводит окошко - "Открыть с помощью.."
"rundll32 shell32,ShellAboutA Info-Box" - Покозать окно "About Windows"
"rundll32 shell32,Control_RunDLL desk.cpl" - Открыть "Свойства Экрана"
"rundll32 user,cascadechildwindows" - Сортировка окон "Каскадом" (Как в Win 3.x)
"rundll32 user,tilechildwindows" - Сместить Окна в низ
"rundll32 user,repaintscreen" - Обновить рабочий стол
"rundll32 shell,shellexecute Explorer" - Запустить проводник Windows.
"rundll32 keyboard,disable" - Вырубить Клавиатуру! (Вот Это я понимаю Заподло!)
"rundll32 mouse,disable" - Вырубить Мышь! (У Шефа Будет припадок:)))
"rundll32 user,swapmousebutton" - Поменять Местами клавиши Мыша! (Во мля! и этого Дядя Билли не забыл!)
"rundll32 user,setcursorpos" - Сместить курсор крысы в левый верхний угол
"rundll32 user,wnetconnectdialog" - Вызвать окно "Подключение сетевого диска"
"rundll32 user,wnetdisconnectdialog" - Вызвать окно "Отключение сетевого диска"
"rundll32 user,disableoemlayer" - Спровоцировать сбой!!! (Знаю, сам сразу не поверил, но это FUсKт...)
"rundll32 diskcopy,DiskCopyRunDll" - Показать окно "Copy Disk"
"rundll32 rnaui.dll,RnaWizard" - Вывод окна "Установка Связи", с ключем "/1" - без окна
"rundll32 shell32,SHFormatDrive" - Окно "Форматирование: Диск3,5(А)" вызвать
"rundll32 shell32,SHExitWindowsEx -1" - Перегрузить Explorer
"rundll32 shell32,SHExitWindowsEx 1" - Выключение Компутера.
"rundll32 shell32,SHExitWindowsEx 0" - Завершить Работу Текущего Пользователя
"rundll32 shell32,SHExitWindowsEx 2" Windows-98-PC boot
"rundll32 krnl386.exe,exitkernel" - выход из Windows без любых сообщений/вопросов
"rundll rnaui.dll,RnaDial "MyConnect" - Вызвать окошко "Установка связи" с соединением "MyConnect"
"rundll32 msprint2.dll,RUNDLL_PrintTestPage" - выбрать в появившемся меню принтер и послать, а него тест
"rundll32 user,setcaretblinktime" - установить новую частоту мигания курсора
"rundll32 user,setdoubleclicktime" - установить новую скорость двойного нажатия
"rundll32 sysdm.cpl,InstallDevice_Rundll" - установить non-Plug&Play оборудование

← →
Кулюкин Олег (2002-11-27 08:53) [2]

Выдернуть, а потом воткнуть обратно.

← →
subdigger (2002-11-27 09:07) [3]

BoxTer Вообще спасибо но ты не заметил одной тонкости. Мне нужно потом и отключить блокировку, что твои шелы почемуто не предусматривают...???...
И есть ещё один нуанс оно мусит работать под ХР

← →
Song (2002-11-27 09:38) [4]

Только SetWindowsHookEx()

← →
Cu (2002-11-27 09:46) [5]

Ты поищи, сдесь был приличный пример с хуками по мыху (ну и клаве тоже ) :-)

← →
Ruf (2002-11-27 18:51) [6]

ксати за такие примеры я этот сайт и люблю, тут их действительно полно, а BlockInput работает и в 98 и в ХР

← →
SeB (2002-11-28 09:25) [7]

У меня программа-клиент блокирует компьютеры с помощью BlockInput,
и все работает отлично, никаких "Ассес виалатиорн". Программа-сервер управляет этим делом по сети. (Это не троян - это для компьютерных клубов). Работает во всех системах.

← →
dimich1978 (2002-11-28 12:01) [8]

Объявляем
implementation

uses Unit2;

{$R *.DFM}

procedure BlockInput; external "user32.dll";

в теле процедуры
//блокируем
asm
push 1
call BlockInput
end;
end;
//разблокируем
asm
push 0
call BlockInput
end;

← →
Song (2002-11-28 13:10) [9]

...А потом нажимаем CAD.. блина.. где же нашв блокировка.. :-)

← →
dimich1978 (2002-11-28 14:50) [10]

>>Song
Да этот метод прокатывает тока под вин95\98, простым блокированием CAD, через systemparametersinfo

← →
esu (2002-11-28 19:59) [11]

... А человек начинает громко кричать почему у него клавиатура не работает и в кваке подстрелили :)

← →
TracKer (2002-11-28 20:11) [12]

Hi!
Тут проблемка возникла. Дело в том, что после использования BlockInput при работе некоторых игр разблокировать ввод просто не получается, и приходитя перезапускать комп. Как с этим бороться?

← →
Subdigger (2002-12-03 01:04) [13]

>>Song
Пасиба. Но я всё равно не доганяю как бы это его тупо застопорить нажатые кнопки.
Тупо повесить виндюк уже умею А вот шоб красиво поставить снять джак нет

Блокировка и разблокировка клавы с мыхом Найти похожие ветки