Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Блокировка копутера, (клавиатура и мышь) 
:(
    Опции темы
DonPager
Дата 4.9.2004, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2



подскажите как полностью заблокировать компутер - без всяких паролей и прочего - просто на некоторое время полность заблокировать мышь и клаву.

ЗЫ.
ежели сможете заодно подскажите как енто сделать с помощью масма...

спасибо



--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
-=::BlackCat::=-
Дата 4.9.2004, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1456
Регистрация: 12.7.2003
Где: растёт анаша?

Репутация: 1
Всего: 6



naschot mishi i klavi est i w FAQe i na forume uge raz 100 bilo wink.gif


--------------------
-=::BlackCat::=-user posted image

такой дуратцкий аватар потому как мой 100х100, а такие подгрузить нелзя, движок форума чо сам не может его переделать??  гррр, админ, форум косячит  
PM MAIL ICQ   Вверх
DonPager
Дата 4.9.2004, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2



-=::BlackCat::=- я конечно не буду оригинальным если скажу что в факе немного не то что мне надо smile.gif

а именно:
мне надо чтобы ВСЕ приложения как работали так и продолжали работать, однако пользователь ничего не мог бы сделать ( даже мышь не сдвинуть )
т.е. зачем мне всё это надо: допустим я выкуриваю сигарету за 5 минут - я поставил такое время - покурил пришёл и полный гарантий что к компу никто не подходил - пришёл и продолжил работать smile.gif


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
Pakshin A. S.
Дата 4.9.2004, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Код

procedure BlockInput; external 'user32.dll';

procedure Block;
asm
 push 1
 call BlockInput;
end;

procedure UnBlock;
asm
 push 0
 call BlockInput;
end;

procedure BlockExit;
begin
 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
end;

procedure UnBlockExit;
begin
 SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
end;

function TryBlockInput:boolean;
begin
 Result:=false;
 try
  Block;
  BlockExit;
 finally
  Result:=true;
 end;
end;

function TryUnBlockInput:boolean;
begin
 Result:=false;
 try
  UnBlock;
  UnBlockExit;
 finally
  Result:=true;
 end;
end;


Но только не под новыми версиями (2000, XP и т. п.)...
Добавлено @ 16:49
Ещё есть тема по теме:
http://forum.vingrad.ru/index.php?showtopi...;+alt\+del
PM   Вверх
chaos
Дата 8.9.2004, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44



вот так можно блокировать мышь biggrin.gif
Код

SetCursorPos(0,0);

это должнобыть в теле таймера
PM WWW   Вверх
_hunter
Дата 8.9.2004, 10:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



DonPager , тебе под какую ось?



--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Pakshin A. S.
Дата 8.9.2004, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Цитата(chaos @ 8.9.2004, 11:41)
вот так можно блокировать мышь 

Код

SetCursorPos(0,0);



это должнобыть в теле таймера


biggrin.gif biggrin.gif biggrin.gif Супер предложение!!!! Но лучше что-то в этом духе: SetCursorPos(-10000, -10000); biggrin.gif biggrin.gif biggrin.gif

PM   Вверх
DonPager
Дата 9.9.2004, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2



.... я решил впрос с помощью блокирования всех окон (в том числе и новых)
EnableWindow(hwnd,false).... -всё это повесил отдельным процессом который тормозится таймером - и всё smile.gif и вопрос с блокированием мыши сам собой отпал
единственное что огорчает- если прога зависнет до срабатывания таймера - комп придётся перезагружать sad.gif



--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
-=::BlackCat::=-
Дата 9.9.2004, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1456
Регистрация: 12.7.2003
Где: растёт анаша?

Репутация: 1
Всего: 6



biggrin.gif


--------------------
-=::BlackCat::=-user posted image

такой дуратцкий аватар потому как мой 100х100, а такие подгрузить нелзя, движок форума чо сам не может его переделать??  гррр, админ, форум косячит  
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 9.9.2004, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63



А что если (под ХР):
а) Делаем форму на весь экран с Layered=true и полностью прозрачную
б) Делаем её поверх всех окон, отслеживаем, если кто-нибудь хочет отменить фокус и забираем его обратно
в) Отслеживаем нажатие последовательность каких-нибудь кнопочек и тогда окошко просто закрывается...
г) Мышь можно спрятать, чтобы не мешалась, а клава... так кроме ctrl-alt-del ничего пахать не будет (конечно, OnCliseQuery надо обработать), а если кто и нажмёт на них, то хоть и увидет окошко диспетчера задач, но нажать ни на что не сможет (нечем, да и окошко закрывает tounge.gif )
В таком случае не может быть, чтобы EnableWindow сделало потом бяку - если ты все отключаешь, а топом ВСЕ включаешь, то значит, что окошко, которое было отключено может стать включённым (в любой другой проге).

Это сообщение отредактировал(а) Illusion Dolphin - 9.9.2004, 16:18


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
rubenhak
Дата 10.9.2004, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 17.9.2003
Где: Yerevan

Репутация: нет
Всего: нет



можно и так заблокировать, но как назад разблокировать - вот ето не знаю.

rundll32.ехе keyboard, disable
rundll32.ехе mouse, disable
PM WWW MSN   Вверх
decoder
Дата 10.9.2004, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 204
Регистрация: 18.5.2004
Где: Харьков(хохол, к сожалению)

Репутация: нет
Всего: -1



Цитата(Pakshin @ 8.9.2004, 18:54)
Но лучше что-то в этом духе: SetCursorPos(-10000, -10000);
Звыняюсь за облом, но функция СетКурсорПос дальше, чем КлипКурсор прописал ставить не будет, поэтому результат вышеуказанного предложения будет тот же
Цитата(chaos @ 8.9.2004, 10:41)
Код

SetCursorPos(0,0);


--------------------
Молчать, я вас спрашиваю!
PM MAIL   Вверх
decoder
Дата 12.9.2004, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 204
Регистрация: 18.5.2004
Где: Харьков(хохол, к сожалению)

Репутация: нет
Всего: -1



Наверное, самый дурацкий способ блокировки - это поставить хук WH_JOURNALPLAYBACK. Работает просто парадоксально, но тем не менее блокирует компутер (всё, кроме CAD).
--------------------
Молчать, я вас спрашиваю!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0554 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.