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

**burik** » 16.08.2006 (Ср) 19:12

Сдравствуйте уважаемые програмёры!

У меня такой вопрос:
как отслеживать все нажатия клавиш, независимо в каком окне?

**Debugger** » 16.08.2006 (Ср) 19:18

GetKeyboardState.
И ещё: с русским будут ЗАПАРКИ. Придумал ты не очень: я уже пытался...

**end3r** » 16.08.2006 (Ср) 20:52

Это в модуле

Код: Выделить всё: Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'Здесь кнопки, какие нужно отлавливать Public Const VK_Q = &H51 'это Q Public Const VK_ESCAPE = &H1B 'это escape и т.д. Public Const VK_CONTROL = &H11 Public Const VK_RETURN = &HD

На форму кладешь таймер

Код: Выделить всё: Private Sub Timer1_Timer() ' Здесь по нажатию клавиши escape прячется форма, поменяй на свое If GetAsyncKeyState(VK_ESCAPE) Then Form1.Hide End If End Sub

**IIIypuk** » 16.08.2006 (Ср) 22:04

вот пример

**burik** » 17.08.2006 (Чт) 7:57

Спасибо всем!
Все работает!

Клавиатурный шпион