Tester l'inactivité de Windows ?

Voila ce que ça donne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Imports System.Runtime.InteropServices
 
Public Class IdleTime
 
    Private Declare Function GetLastInputInfo Lib "User32.dll" _
      (ByRef lastInput As LASTINPUTINFO) As Boolean
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure LASTINPUTINFO
        Public cbSize As Int32
        Public dwTime As Int32
    End Structure
 
 
    Public ReadOnly Property IdleTime() As Integer
        Get
            Dim lastInput As New LASTINPUTINFO
            lastInput.cbSize = Marshal.SizeOf(lastInput)
            If GetLastInputInfo(lastInput) Then
                Return (Environment.TickCount - lastInput.dwTime) / 1000
            End If
        End Get
    End Property
End Class

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim it As New IdleTime
        Label1.Text = "Fermeture de session dans : " & it.IdleTime & " / 300 Secondes"
        If it.IdleTime > 60 Then
            Me.Show()
        Else
            Me.Hide()
        End If
        If it.IdleTime >= 300 Then
            Process.Start("logoff.exe")
        End If
    End Sub