Binaryworld - How to detect system activity for mouse and keyboard ... [ VB -> Keyboard-Mouse ]

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

'===========================================================
'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

Click here to copy the following block

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

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