Feedback

VB - Zeitpunkt der letzten Benutzereingabe ermitteln

Veröffentlicht von am 20.10.2006
(1 Bewertungen)
Diese Funktion gibt den Zeitpunkt der letzten Benutzereingabe in Millisekunden zurück.
Dabei wird die Zeit vom Systemstart genommen also von GetTickCount und nicht die Uhrzeit.
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
Abgelegt unter Idle.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!

Ähnliche Snippets