Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отрубить клавиатуру и мышь? / 5 сообщений из 5, страница 1 из 1
06.01.2006, 15:25:13
    #33470487
Nikz
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отрубить клавиатуру и мышь?
В общем пишется программка для компьютерного клуба.
На каждой машине висит агент.
По истечении определенного срока этот агент должен сделать невозможным использованиие клавиатуры и мыши.
Пока в голову приходят всякие гадости, типа
Код: plaintext
sendkeys "[ESC]"

в цикл повесить, но как то это некрасиво.
Вот я и думаю, может есть способ перехватывать нажатия клавиш на клавиатуре, и при этом говорить системе что никакая клавиша на самом деле не нажималась?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2006, 17:08:19
    #33470652
DDE
DDE
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отрубить клавиатуру и мышь?
А почему просто не выключить комп?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2006, 17:54:09
    #33470702
SmeL_md
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отрубить клавиатуру и мышь?
Выключать комп нельзя. Вдруг клиент печатает курсовую, да еще первый раз ворд увидел, и он даже не подозревае,т что файл можно сохранять до того когда уходишь домой.
___
Идея не супер но можно создать окно, которое сделает снимок экрана, его проресует на себе и развернется на весь экран. И форму поставить OnTop на таймер, также Form1.enable=False. Можно также попробовать присвоить себе горячии клавиши системы и что то делать когда будут кланцать Alt+Tab и т.д и т.п. После этого получится эффект что комп залочен :).
p.s. Если бы только ламеры работали в интернет клубах и пользователи не блестали своей изобритательностью. Есть коммерческие проекты почему бы ими не воспользоваться?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2006, 18:44:04
    #33470747
DDE
DDE
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как отрубить клавиатуру и мышь?
Есть BlockInput в USER32.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.01.2006, 13:58:47
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отрубить клавиатуру и мышь? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 470ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166594]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 183ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 194ms
total:  470ms
x
x
Закрыть


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