［VB.NET］Windowsアプリケーションでの無入力監視

    Private Sub Form_Load(...) Handles MyBase.Load
        AddHandler Me.MouseMove, AddressOf AllControl_MouseMove
        AddMouseMoveEventHandler(Me)
    End Sub

    Private Sub AddMouseMoveEventHandler(ByVal hParent As Control)
        For Each hControl As Control In hParent.Controls
            If hControl.HasChildren = True Then
                AddMouseMoveEventHandler(hControl)
            End If

            AddHandler hControl.MouseMove, AddressOf AllControl_MouseMove
        Next hControl
    End Sub

    Private Sub AllControl_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
        Console.WriteLine("MouseMoved!!")
    End Sub

'フィルタを登録(アプリ内で最初に記述)
Application.AddMessageFilter(New TestFilter)

'フィルタ定義
Public Class TestFilter
    Implements IMessageFilter

    Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
        Const WM_MOUSEMOVE = &H200
        If m.Msg = WM_MOUSEMOVE Then
            ApplicationTimerReset()
        End If
    End Function
End Class