Отслеживание нажатий на клавиатуру - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы