1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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
|