ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отрубить клавиатуру и мышь?
5 сообщений из 5, страница 1 из 1
Как отрубить клавиатуру и мышь?
    #33470487
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
В общем пишется программка для компьютерного клуба.
На каждой машине висит агент.
По истечении определенного срока этот агент должен сделать невозможным использованиие клавиатуры и мыши.
Пока в голову приходят всякие гадости, типа
Код: plaintext
sendkeys "[ESC]"

в цикл повесить, но как то это некрасиво.
Вот я и думаю, может есть способ перехватывать нажатия клавиш на клавиатуре, и при этом говорить системе что никакая клавиша на самом деле не нажималась?
...
Рейтинг: 0 / 0
06.01.2006, 15:25:13
| Ответить | Цитировать | Написать  
Как отрубить клавиатуру и мышь?
    #33470652
DDE
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DDE
Гость
А почему просто не выключить комп?
...
Рейтинг: 0 / 0
06.01.2006, 17:08:19
| Ответить | Цитировать | Написать  
Как отрубить клавиатуру и мышь?
    #33470702
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
Выключать комп нельзя. Вдруг клиент печатает курсовую, да еще первый раз ворд увидел, и он даже не подозревае,т что файл можно сохранять до того когда уходишь домой.
___
Идея не супер но можно создать окно, которое сделает снимок экрана, его проресует на себе и развернется на весь экран. И форму поставить OnTop на таймер, также Form1.enable=False. Можно также попробовать присвоить себе горячии клавиши системы и что то делать когда будут кланцать Alt+Tab и т.д и т.п. После этого получится эффект что комп залочен :).
p.s. Если бы только ламеры работали в интернет клубах и пользователи не блестали своей изобритательностью. Есть коммерческие проекты почему бы ими не воспользоваться?
...
Рейтинг: 0 / 0
06.01.2006, 17:54:09
| Ответить | Цитировать | Написать  
Как отрубить клавиатуру и мышь?
    #33470747
DDE
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DDE
Гость
Есть BlockInput в USER32.
...
Рейтинг: 0 / 0
06.01.2006, 18:44:04
| Ответить | Цитировать | Написать  
Как отрубить клавиатуру и мышь?
    #33471178
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
Всем спасибо.
DDE особенное спасибо - это как раз то что надо.

Сделал на основе этого примера:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    DoEvents
    'block the mouse and keyboard input
    BlockInput True
    'wait 10 seconds before unblocking it
    Sleep  10000 
    'unblock the mouse and keyboard input
    BlockInput False
End Sub
...
Рейтинг: 0 / 0
07.01.2006, 13:58:47
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отрубить клавиатуру и мышь?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33470747&tid=2166594]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 63ms
get topic data:
 28ms
get forum data:
 2ms
get page messages:
 78ms
get tp. blocked users:
 1ms
others: 201ms
total:  397ms
созд. / загр.: 397ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]