• Home
 · 
• Windows API Call/Explanation
 · 
• How to detect system activity for mouse and keyboard

How to detect system activity for mouse and keyboard

How to detect system activity for mouse and keyboard

Rate How to detect system activity for mouse and keyboard

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' http://www.andreavb.com/tip020016.html
Option Explicit

'===========================================================
'TYPE
'===========================================================
Private Type POINTAPI
x As Integer
y As Integer
End Type
'===========================================================
'API
'===========================================================
Private Declare Sub GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI)
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
'===========================================================
'Variables
'===========================================================
Private posOld As POINTAPI
Private posNew As POINTAPI
 

'Module 

 '===========================================================
'InputCheck
'===========================================================
Public Function InputCheck() As Boolean
    Dim i As Integer

   'Get the current mouse cursor coordinates
    Call GetCursorPos(posNew)
    'Compare with old coordinates
    If ((posNew.x <> posOld.x) Or (posNew.y <> posOld.y)) Then
        posOld = posNew
        InputCheck = True
        Exit Function
    End If
    'Check keys state
    For i = 0 To 255
        If (GetAsyncKeyState(i) And &H8001) <> 0 Then
            InputCheck = True
            Exit Function
        End If
    Next i
    InputCheck = False
End Function

'Usage 

 'Create a Form with a Label and a Timer
Option Explicit

Private Sub Timer1_Timer()
    Label1.Caption = InputCheck
End Sub