Блокировка клавиатуры и мыши в WinXP

← →
naxellar (2006-11-04 04:51) [0]

Собственно сабж!

← →
grisme © (2006-11-04 08:16) [1]

"Нет!" троянским слонам и слоникам :)

← →
atruhin © (2006-11-04 08:32) [2]

А в google посмотреть слабо? Вопрос как перехватить/заблокировать CAD поднимается раз в неделю.

← →
Anatoly Podgoretsky © (2006-11-04 11:21) [3]

> naxellar (04.11.2006 4:51:00) [0]

Сообственно в помойку, стандартно если не нужна мышка и клавиатура, то не
подключай ее. Это hardless система.

← →
naxellar (2006-11-05 03:49) [4]

Как это не подключать. Они же в Винде пользователю нужны.
Я просто пишу прогу для управления компьютерным классом в школе.
Там нужно блокировка компов. Я решил, что нужно блокировать мыши и клавы.

← →
Германн © (2006-11-05 03:54) [5]

> naxellar (05.11.06 03:49) [4]
>
> Как это не подключать. Они же в Винде пользователю нужны.
>
> Я просто пишу прогу для управления компьютерным классом
> в школе.
> Там нужно блокировка компов. Я решил, что нужно блокировать
> мыши и клавы.
>

Имхо, не правильно решил!
Какая уж тут учёба, если компьютер "заблокирован"!

← →
Ketmar © (2006-11-05 04:00) [6]

>[4] naxellar 5-Nov-2006, 03:49
>для управления компьютерным классом в школе.
что бы сказал по этому поводу Станиславский?

← →
Anatoly Podgoretsky © (2006-11-05 12:21) [7]

> Как это не подключать. Они же в Винде пользователю нужны.

Может тебе мультимонитор нужен, а то противоречие или садизм.

Вам пришла посылка, но вам я не дам.

← →
DVM © (2006-11-05 12:35) [8]

> Я решил, что нужно блокировать мыши и клавы.

Лучше окно на весь экран - вот и блокировка

← →
Ketmar © (2006-11-05 14:48) [9]

>[8] DVM(c) 5-Nov-2006, 12:35
>Лучше окно на весь экран - вот и блокировка
а в окне -- дайджест xxx-сайтов. тогда программу достаточно поставить только на одну машину.

← →
Eraser © (2006-11-05 14:57) [10]

> [0] naxellar (04.11.06 04:51)

BlockInput + F1

← →
Anatoly Podgoretsky © (2006-11-05 15:23) [11]

> DVM (05.11.2006 12:35:08) [8]

Величие истинного пути
Кое что про клавиатуру и хаос.
Бессмертный труд Алексея Махоткина

Фоpма появляется тогда, когда есть бесфоpменное. Бесфоpменное появляется
тогда, когда есть фоpма. В этих словах заключена вся мyдpость Истинного
Пyти. Если ты бyдешь много дyмать об этих словах, то обязательно постигнешь,
в чем смысл этого Истинного пyти.

Компьютеp, на котоpом не запyщено ни одной пpогpаммы, пpебывает в хаосе,
возникающем из сотен миллионов неинициализиpованных байт памяти. Запyщенная
пpогpамма pассеивает этот хаос, пpавильно yстанавливая биты и напpавляя
flow-control так, чтобы пpоцессоp не выполнял пyстые циклы или бессмысленные
сочетания команд. Истинно мyдp тот, кто запyскает пpогpаммы на своем
компьютеpе!
Он как никто близок к пониманию Истинного Пyти!

Когда запyщено много пpогpамм, они в своем стpемлении занять всю достyпнyю
память вызывают хаос, заставляя VM-подсистемy постоянно выгpyжать на диск и
читать с диска стpаницы памяти, пpиводя к неэффективной pаботе и внося
смyщение в yм пользователя. Воистинy мyдp тот, кто, видя хаос множества
запyщенных пpогpамм, хочет пpотивопоставить емy фоpмy!
Он как никогда близок к пониманию Истинного Пyти!

Hо мyдpее всех тот, кто хочет блокиpовать клавиатypy и неyклонно ищет знания
о том, как добиться этого. Он как никто близок к постижению Истинного Пyти.
Миpиады нажатий на клавиши в своей асинхpонности и недетеpминиpованности
вызывают хаос в pаботе опеpационной системы, помещая ее в бесконечный цикл
обpаботки сообщений, вмешиваются в нетоpопливое течение flow-control"а и
смyщают yм пользователя. Эдгаp Дейкстpа Ринпоче в своей священной книге
"Дисциплина Пpогpаммиpования" пишет золотые стpоки: "...я содpогался от
мысли, что пpидется ввести недетеpминиpованность yже в однопpогpаммном
pежиме (слишком хоpошо мне были известны сложности, возникающие из-за этого
в мyльтипpогpаммиpовании); однако потом я понял..." Много дyмай над этими
стpоками, и ты воистинy yзpишь все величие Истинного Пyти.

Воистинy мyдp тот, кто желает блокиpовать клавиатypy!
Его пользователи выpвyтся из бесконечного цикла нажатий и отпyсканий клавиш,
их yм обостpится, став похожим на майский гpом или лyч лазеpа в CD-ROM"е, и
весь сконцентpиpyется на единственной задаче: как выгpyзить из памяти
поделкy этого yдаpенного на всю головy пpогpаммиста?

(c) Алексей Махоткин

← →
VirEx © (2006-11-05 17:30) [12]

> [11] Anatoly Podgoretsky © (05.11.06 15:23)

http://absurdopedia.wikia.com/wiki/Ё

Буква Ё с точки зрения современной эзотерики несёт двойную сущность, ибо является дифтонгом, производным от двух магических букаф: Й и О. Замечено, что при произношении данной буквы, в мимике у произносящего проявляются оттенки глупого выражения лица, как при произношении вопросительного словосочетания: «И чО́??». Данный эффект, возможно, вызван тем, что интеллектуальные ресурсы моска у произносящего вслух этот удивительный звук полностью затрачиваются на осознание взаимного проникновения букаф.

---
возможно аффтар "Алексей Махоткин" занимался вышеперечисленным

← →
Leonid Troyanovsky © (2006-11-05 17:34) [13]

> VirEx © (05.11.06 17:30) [12]

> возможно аффтар "Алексей Махоткин" занимался вышеперечисленным

Брысь, хам.

--
Regards, LVT.

← →
Elen © (2006-11-06 07:45) [14]

> Блокировка клавиатуры и мыши в WinXP

Интересно, а зачем. Что автор хочет этим добиться или пресеч?

> Я решил, что нужно блокировать мыши и клавы.

Один мой знакомый поставил в классе Radmin самый простенький, и если замечал непотребные действия со стороны школяриков просто удаленно завершал сеанс. Не проще ли именно сеанс блокировать или завершать?

← →
naxellar (2006-11-09 03:00) [15]

В конце урока этих учеников с компа не сгонишь...
А заходить и каждого с сеанса выкинуть неумно.

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

Не можете помочь не нужно оффтоп разводить...

← →
naxellar (2006-11-09 03:02) [16]

Удалено модератором

← →
naxellar (2006-11-09 03:03) [17]

Удалено модератором

> В конце урока этих учеников с компа не сгонишь...
> В конце урока этих учеников с компа не сгонишь...
> В конце урока этих учеников с компа не сгонишь...

Sheduler+ExitWindowsEX... Горючая смесь...
Sheduler+ExitWindowsEX... Горючая смесь...
Sheduler+ExitWindowsEX... Горючая смесь...

Кстати в Rdamin вырубать удаленно просто и приятно :)

> Кто-нить по делу скажет, а тут ламера всякие хотят умными показаться

Ну где на вас умных то набраться, довольствуйся тем, что есть.

> [15] naxellar (09.11.06 03:00)
Тьху. Когда лаборантствовал, то написал за полчаса программульку с использованием функции InitiateSystemShutdown(). И все дела.

>[15] naxellar 9-Nov-2006, 03:00
>Кто-нить по делу скажет, а тут ламера всякие хотят умными
>показаться и либо предлагают тупые решения, либо говорят
>нафига надо и т. п.
стараемся не подниматься выше уровня вопрошающего. а то не поймёт.

← →
user51 (2006-11-09 13:58) [22]

типа такого неполохо работает (кусок от программы)
по таймеру вызывается каждую секунду или чаще (все равно комп заблокирован)
+ окно на весь экран которое поверх остальных
в это окно можно запихнуть правила пользования компом, мыша в данном случае ездит только справа чтоб правила скролировать можно было

procedure TService_system.mouse_keybord_lock(blklv:boolean); //win98
var
r: TRect;
pr: PRect;
xmax,ymax:integer;
begin
xmax:=GetSystemMetrics(SM_CXFULLSCREEN);
ymax:=GetSystemMetrics(SM_CYFULLSCREEN);
if blklv then
begin
r.Left := xmax-100;
r.Top := 0;
r.Right := xmax;
r.Bottom := ymax+20;
pr := @r;
ClipCursor(pr);
end
else
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, nil, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);
r.Left := 0;
r.Top := 0;
r.Left := xmax;
r.Right := ymax;
pr := @r;
ClipCursor(pr);
end
end;

> Как это не подключать. Они же в Винде пользователю нужны.
>
> Я просто пишу прогу для управления компьютерным классом
> в школе.
> Там нужно блокировка компов. Я решил, что нужно блокировать
> мыши и клавы.

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

← →
si (2006-11-09 14:13) [24]

unit mklu;

interface

uses
Windows;

var
m_OldMHook: HHook = 0;
k_OldKBHook: HHook = 0;

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
procedure KeyBoardOn;
procedure KeyBoardOff;
function MouseHook(code: Integer; wparam: Word; lparam: LongInt): LongInt;
stdcall;
procedure MOUSEON;
procedure MouseOff;

implementation

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam)
else
begin
if wParam <> $0D then // разрешаем клавишу ENTER
Result := 1
else
result:=0;
end;
end;

// включение клавы

procedure KeyBoardOn;
begin
if k_OldKbHook <> 0 then
begin
UnHookWindowshookEx(k_OldKbHook);
k_OldKbHook := 0;
end;
end;

// выключение клавы

procedure KeyBoardOff;
begin
k_OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;

function MouseHook(code: Integer; wparam: Word; lparam: LongInt): LongInt;
stdcall;
begin
if code < 0 then
Result := CallNextHookEx(m_oldMHook, code, wparam, lparam)
else
Result := 1;
end;

// включение мышки

procedure MOUSEON;
begin
if m_OldMHook <> 0 then
begin
UnHookWindowshookEx(m_OldMHook);
m_OldMHook := 0;
end;
end;

// выключение мышки

procedure MouseOff;
begin
m_OldMHook := SetWindowsHookEx(WH_MOUSE, @MOUSEHook, HInstance, 0);
end;

end.

Блокировка клавиатуры и мыши в WinXP Найти похожие ветки