VB - Zeitpunkt der letzten Benutzereingabe ermitteln

Public Declare Auto Function GetLastInputInfo Lib "user32" ( _
    ByRef LIIObj As LII) _
As Integer

Public Structure LII 'LastInputInfo
    Public Size As Integer
    Public Time As Integer
End Structure


''' <summary>
''' Diese Funktion gibt den Zeitpunkt der letzten Benutzereingabe in Millisekunden zurück.
''' Dabei wird die Zeit vom Systemstart genommen also von GetTickCount.
''' </summary>
Public Function GetLastInputTime() As Integer
    Dim LIIObj As New LII

    '"Unmanaged" Größe des Objekts speichern
    LIIObj.Size = CUInt(System.Runtime.InteropServices.Marshal.SizeOf(LIIObj))

    'Zeit der letzten Eingabe abfragen (Maus oder Tastatur)
    GetLastInputInfo(LIIObj)

    Return LIIObj.Time
End Function