IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Tester l'inactivité de Windows ?


Sujet :

VB.NET

  1. #1
    Membre éprouvé
    Avatar de troxsa
    Inscrit en
    Novembre 2004
    Messages
    388
    Détails du profil
    Informations personnelles :
    Âge : 51

    Informations forums :
    Inscription : Novembre 2004
    Messages : 388
    Par défaut Tester l'inactivité de Windows ?
    Bonjour a tous

    Comment faire pour savoir si Windows est inacive
    il y a le movement de la souris et le processus inactif du système (a quel pourcentage ?)

    processus inactif du système (System Idle Process) du a l'antivirus peut on dire qu'a 95 % du System Idle Process c'est un systeme inactif ?

    Il manque d'autre paramettre ?

    en vous remerciant tous par avance.

    Cordialement,
    Troxsa

  2. #2
    Membre éprouvé
    Avatar de troxsa
    Inscrit en
    Novembre 2004
    Messages
    388
    Détails du profil
    Informations personnelles :
    Âge : 51

    Informations forums :
    Inscription : Novembre 2004
    Messages : 388
    Par défaut
    Voila ce que ça donne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 26/04/2008, 10h34
  2. Réponses: 2
    Dernier message: 18/10/2007, 15h32
  3. Réponses: 6
    Dernier message: 14/03/2006, 19h44
  4. Réponses: 1
    Dernier message: 20/09/2005, 21h15
  5. Tester connexion Internet active sous Windows
    Par Altau dans le forum Développement
    Réponses: 3
    Dernier message: 12/08/2002, 12h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo