'Данный пример покажет, как можно установить глобальный хук на мышь, и 'ваша программа будет считать количество нажатий на клавиши мыши и на 'колесо прокрутки. Также ваша программа будет реагировать на нажатие любой 'клавиши клавиатуры.
Также данный пример в окне DEBUG располагает информацию о местоположении курсора.
'Добавьте модуль в вашу программу и также расположите на форме 5 элементов TextBox.
'КОД ФОРМЫ
Private Sub Form_Load() Text1 = "0" Text2 = "0" Text3 = "0" Text4 = "0" Text5 = "0" hHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf HookProc, 0, 0) End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call UnhookWindowsHookEx(hHook) End Sub
'КОД МОДУЛЯ
Option Explicit
Public Type POINTAPI x As Long y As Long End Type
Public 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 Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Подсчет нажатий на кнопки мыши", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!