Конференция VBStreets

**step** » 14.02.2005 (Пн) 16:22

ЛЮДИ РЕАЛЬНО ЛИ ОТКЛЮЧИТЬ МЫШЬ И КЛАВУ В WINDOWS СРЕДСТВАМИ VB? МОИ МЫСЛИ: ЗАЦЫКЛИТЬ МЫШЬ В КАКОМ-НИБУТЬ УГЛУ ЭКРАНА! ИЛИ В РЕЕСТРЕ СКОРОСТЬ МЫШИ ПОСТАВИТЬ 0!
У КОГО ЕСТЬ КАКИЕ МЫСЛИ ПО ЭТОМУ ПОВОДУ?

**GSerg** » 14.02.2005 (Пн) 16:33

BlockInput?
ClipCursor?

**alibek** » 14.02.2005 (Пн) 16:45

Меня постоянно мучает один вопрос...

ЗАЧЕМ ТАК ОРАТЬ???

**KDima** » 14.02.2005 (Пн) 18:55

А как ограничить пле возможного перемещения курсора?

**tyomitch** » 14.02.2005 (Пн) 19:30

2KDima:

GSerg писал(а):ClipCursor

**SHURUP** » 14.02.2005 (Пн) 21:23

KDima писал(а):А как ограничить пле возможного перемещения курсора?

Что-то я не понял, как это понять.

ЛЮДИ РЕАЛЬНО ЛИ ОТКЛЮЧИТЬ МЫШЬ И КЛАВУ В WINDOWS СРЕДСТВАМИ VB? МОИ МЫСЛИ: ЗАЦЫКЛИТЬ МЫШЬ В КАКОМ-НИБУТЬ УГЛУ ЭКРАНА! ИЛИ В РЕЕСТРЕ СКОРОСТЬ МЫШИ ПОСТАВИТЬ 0!
У КОГО ЕСТЬ КАКИЕ МЫСЛИ ПО ЭТОМУ ПОВОДУ?

Рекомендую так-же узнать как прграмно отключать CAPS-LOCK :roll:

**KiloGraf** » 14.02.2005 (Пн) 21:29

KDima писал(а):А как ограничить пле возможного перемещения курсора?

Код: Выделить всё: Private Type RECT left As Long top As Long right As Long bottom As Long End Type Private Type POINT x As Long y As Long End Type Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT) Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) Private Sub Form_Load() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Command1.Caption = "Limit Cursor Movement" Command2.Caption = "Release Limit" End Sub Private Sub Command1_Click() 'Limits the Cursor movement to within the form. Dim client As RECT Dim upperleft As POINT 'Get information about our wndow GetClientRect Me.hWnd, client upperleft.x = client.left upperleft.y = client.top 'Convert window coцrdinates to screen coцrdinates ClientToScreen Me.hWnd, upperleft 'move our rectangle OffsetRect client, upperleft.x, upperleft.y 'limit the cursor movement ClipCursor client End Sub Private Sub Command2_Click() 'Releases the cursor limits ClipCursor ByVal 0& End Sub Private Sub Form_Unload(Cancel As Integer) 'Releases the cursor limits ClipCursor ByVal 0& End Sub

**SHURUP** » 14.02.2005 (Пн) 22:00

step, Зачем тебе єто вообще нужно? Возможно это можно решить каким-то более другим методом.

**step** » 15.02.2005 (Вт) 11:01

KiloGraf прикольная идея, даже супер! А клаву как отрубить ктони-ть знает?

**step** » 15.02.2005 (Вт) 14:23

SHURUP писал(а):step, Зачем тебе єто вообще нужно? Возможно это можно решить каким-то более другим методом.

Это нужно для администратирования пользователей по сетке с сервака!

**HotKitten** » 17.02.2005 (Чт) 0:22

Вот глянь

**step** » 17.02.2005 (Чт) 14:39

HotKitten СПАСИБО!!! Это то что нужно!

**KDima** » 17.02.2005 (Чт) 20:41

tyomitch писал(а):2KDima:
GSerg писал(а):ClipCursor

Я видел!

KiloGraf

Спасибо!

**HotKitten** » 21.02.2005 (Пн) 0:32

step писал(а):HotKitten СПАСИБО!!! Это то что нужно!

Но alt ctrl delete всё равно пашет

**ism** » 21.02.2005 (Пн) 0:56

GSerg писал(а):BlockInput

Отрубает все, что только можно...
Тоже для сетки делал все ОК

**HotKitten** » 21.02.2005 (Пн) 1:12

"все, что только можно" отрубает Чубайс :-)

)

**tyomitch** » 21.02.2005 (Пн) 1:21

Угу. А Путин отрежет так, что не вырастет.
Продолжим флуд? :-)

Конференция VBStreets

Выключение мыши и клавы в Windows

Выключение мыши и клавы в Windows

Кто сейчас на конференции