Узнать какая нажата клавиша на клаве

[VLADosik]

Народ помогите!
Значит мне надо сделать прогу... которая узнаёт какая кнопка на клаве нажата... допустим я открыл блокнот и начал писать там "бла бла бла" в проге должно отразится допустим в Text'овом окне "бла бла бла" и так чтобы отображались все нажатые кнопки на клаве.

[JohnK]

Если хочешь следить за всеми нажатиями клавиш по системе, нужно ставить глобальный хук на клаву.
Смотри в сторону SetWindowsHookEx(WH_KEYBOARD, procadd, hMod, 0)
Причем процедура обработки клавиш должна находиться в dll.
dll пиши не на VB

[BV]

Могу дать свой пример глобального хука на C++.
Надо?

[VLADosik]

Могу дать свой пример глобального хука на C++.
Надо?

давай=)
JohnK, а пример кода не мог бы привести... а то я с DLL мало знаком...

[Хакер]

VLADosik
Пример чего? Процедуры обратного вызова на другом языке?

[VLADosik]

VLADosik
Пример чего? Процедуры обратного вызова на другом языке?

Да

[Хакер]

VB:

Код: Выделить всё

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


End Function


Сишный эквивалент:

Код: Выделить всё

INT WINAPI KeyboardProc(INT idHook, INT wParam, INT lParam)
{

}


[VLADosik]

Хакер, немог бы подробнее объяснить как ето сделать.
Любая нажатая клавиша чтобы отбражалась в Text'овом окне.
Заранее спасибо.

[Хакер]

http://www.allapi.net/apilist/35AD48797 ... C094D.html

[BV]

давай

Бери...

[VLADosik]

http://www.allapi.net/apilist/35AD48797A780091740CBCF14EBC094D.html

спс за код. Ето как я понял модуль?
и как етот модуль привезать к форме? как он бооще работает.
Сорри на нубский вопрос.

[Хакер]

Часть первая:

Код: Выделить всё

'In a module
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'if idHook is less than zero, no further processing is required
    If idHook < 0 Then
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'check if SHIFT-S is pressed
        If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then
            'show the result
            Form1.Print "Shift-S pressed ..."
        End If
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function

Часть вторая:

Код: Выделить всё

'In a form, called Form1
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'set a keyboard hook
    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'remove the windows-hook
    UnhookWindowsHookEx hHook
End Sub


Часть первая:

Код: Выделить всё

'In a module
Public Const WH_KEYBOARD = 2
...

In a module (In - в, module - модуль ; итого: В модуле) - означает что этот кусок нужно помешать в модуль.

Часть вторая:

Код: Выделить всё

'In a form, called Form1
...

In a form, called Form1 (In - в, form - форма, called - причастие - названной; итого: В форме, названной Form1) - означает что нужно поместить это кусок в код формы, которая должна называться Form1

_____________________

Глупой вопрос исчез?

[VLADosik]

Haker, я не понял суть етого исходника всё сделал...
когда нажимаб Shift+s на форме появляется 4 раза надпись Shift+s presents... и всё ...

[Хакер]

Это пример по созданию хуков. Здесь делатся хук на Ctrl+S. Если не в силах переделать ЭТО в ТО что тебе нужно, то стоит забросить эту идею.

[JohnK]

Хакер

допустим я открыл блокнот и начал писать там "бла бла бла" в проге должно отразится допустим в Text'овом окне "бла бла бла" и так чтобы отображались все нажатые кнопки на клаве.

VLADosik

JohnK, а пример кода не мог бы привести... а то я с DLL мало знаком...

Допустим у тебя есть некая YOURHOOK.DLL, в ней есть функции KeyProc:

Код: Выделить всё

'MODULE1

Private Declare Sub SetKeyHook Lib "YOURHOOK" (ByVal hKeyHook As Long, ByVal iForm As Long)

Public Function SetLock() As Boolean
Dim procadd As Long
SetLock = False
hMod = LoadLibrary("YOURHOOK.DLL")
If hMod > 0 Then
'Set Key Hook
procadd = GetProcAddress(hMod, "KeyProc")
hHookLockKey = SetWindowsHookEx(WH_KEYBOARD, procadd, hMod, 0)
On Error Resume Next
If hHookLockKey > 0 Then Call SetKeyHook(hHookLockKey, 0)
SetLock = True
                 Else
   FreeLibrary (hMod)
End If
End Function


Убрать хук:

Код: Выделить всё

Call UnhookWindowsHookEx(hHookLockKey)