VBNet - Форум - Клава и мышь

Вопрос: Клава и мышь Добавлено: 06.11.03 10:14

Автор вопроса: MACROS

Подскажите, как отключить и включить мышь и клаву в программе!
Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

mzx

ICQ: 259560026

Вопросов: 21
Ответов: 143

Профиль | | #1

Добавлено: 06.11.03 11:04

Уточни вопрос.

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

В первом случае наверное проще заблокировать все элементы управления на форме:

Dim ctl As Control
For Each ctl In Me.Controls
ctl.Enabled = False
Next ctl

Ввод с клавиатуры для твоей проги можно отсекать установив для формы KeyPreview=True и написав код:

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Ответить

Номер ответа: 2
Автор ответа:

MACROS

Вопросов: 24
Ответов: 21

Профиль | | #2

Добавлено: 06.11.03 19:37

Я имелл ввиду во всех программах с помощью моей проги.

Тоесть я нажимаю на кнопку и клава отключается во всем Windows и т.д. с мышью.

Ответить

Номер ответа: 3
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #3

Добавлено: 08.11.03 11:30

Через rundll32 (только это, кажется, не во всех Виндах)

Ответить

Номер ответа: 4 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837	Профиль \| \| #4	Добавлено: 08.11.03 19:04
	В винде 98 95 Rundll поможет . Типа Rundll32 keyboard /Disable Ответить

Номер ответа: 5 Автор ответа: Justas ICQ: 259418212 Вопросов: 24 Ответов: 325	Web-сайт: justas.newmail.ru Профиль \| \| #5	Добавлено: 10.11.03 08:28
	Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long 'заблокировать мышь и клаву: BlockInput True 'разблокировать: BlockInput False 'з/ы 'под всеми виндами работает... Ответить

Страница: 1 |