Отслеживание нажатий на клавиатуру - VB
Формулировка задачи:
Люди! Прорыл весь список АПИ-шок, но не нашел. Возможно я чтото пропустил, но к сожалению проблему решить не удалось.
Ближе к делу...
Припустим есть моя прога, она свернута и пользователь работает с другой программой. Как отслежовать каждое нажатие на клавиатуру, и так, чтобы можно была к тому же витащить код этой клавиши...
И как тоже самое сделать с мышью???
Заранее спасибо!!! Стас
Решение задачи: «Отслеживание нажатий на клавиатуру»
textual
Листинг программы
Option Explicit Private Const WH_MOUSE = 7 Private Const WH_KEYBOARD = 2 Private Declare Function LoadLibrary Lib 'kernel32' Alias 'LoadLibraryA' (ByVal lpLibFileName As String) As Long Private Declare Function FreeLibrary Lib 'kernel32' (ByVal hLibModule As Long) As Long Private Declare Function GetProcAddress Lib 'kernel32' (ByVal hModule As Long, ByVal lpProcName As String) As Long Private 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 Private Declare Function UnhookWindowsHookEx Lib 'user32' (ByVal hHook As Long) As Long Private hLib As Long, hProc As Long, hHook As Long Private Sub Form_Load() Dim lretval As Long hLib = LoadLibrary('D:MyDll1.dll') 'Ну адресс ДЛЛ - ки hProc = GetProcAddress(hLib, 'HookIn') lretval = SetWindowsHookEx(WH_MOUSE, hProc, hLib, 0) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д