Discussion :

[philippe123]

Bonjour à tous,

j'ai besoin de réaliser une appli qui detecte le retour d'une mise en veille prolongée sur des postes d'un réseau. Donc une appli qui est active tout le temps qu'un poste est allumé.

Au premier abord j'ai pensé à réaliser un service windows qui écoutait l'évenement SystemEvents.PowerModeChanged0.
Mais lors d'une mise en veille, les services sont arretés ... donc mauvaise piste !

La solution est donc de créer une appli qui tourne en arriere plan sur un poste.

Quelle serait la meilleure methode selon vous? (j'ai pensé à faire un timer infini mais ca ne me plait pas trop !)

merci pour votre aide

Philippe

[philippe123]

On m'a conseillé de faire un thread mais je ne connais pas du tt le principe et je galere un max !

Pour l'intant j'ai ca mais je suis un peu perdu, j'ai du mal à me rendre compte si mon thread est actif

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
25
26
27
28
29
30
31
32
Module start
    Private WithEvents m_thread As BackgroundWorker
    Sub main()
        Try
            m_thread = New BackgroundWorker
            'Déclaration des procédure pour gérer les evenements du backgroundworker
            AddHandler m_thread.DoWork, AddressOf m_thread_DoWork
            'Si pas déjà en execution lance le backgoundworker
            If Not m_thread.IsBusy Then m_thread.RunWorkerAsync()
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub m_thread_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles m_thread.DoWork
        'Recup Thread
        Dim LocThread As BackgroundWorker = CType(sender, BackgroundWorker)
        Try
            ' on ajoute l'evnt changement alim
            AddHandler SystemEvents.PowerModeChanged, AddressOf PowerHandler
            ' tq on annule pas le thread
            While Not LocThread.CancellationPending
 
            End While
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub PowerHandler(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)
        ' je fait mes traitements
    End Sub
 
End Module

Pourriez-vous m'éclaircir sur tout ca

merci

Philippe

[Aspic]

Oui ton thread est actif ! QUel est le problème ?

[philippe123]

Bah en fait avec le code ci-desssus, lorsque je lance mon exe, mon thread semble être fermé par la fermeture de mon appli...


Avec le code ci-dessous, c'est ok. J'ai deplace la boucle TQ thread actif et la ca fonctionne :

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
25
26
27
28
Private WithEvents m_thread As BackgroundWorker
 
Sub main()
   m_thread = New BackgroundWorker
   m_thread.WorkerSupportsCancellation = True
 
   AddHandler m_thread.DoWork, AddressOf m_thread_DoWork
 
   If Not m_thread.IsBusy Then m_thread.RunWorkerAsync()
 
   AddHandler SystemEvents.PowerModeChanged, AddressOf PowerHandler
 
   While Not m_thread.CancellationPending 'Controle si arrêt demandé
 
   End While
End Sub
 
Private Sub m_thread_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles m_thread.DoWork
 
End Sub
 
Private Sub PowerHandler(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)
   Select Case e.Mode
      Case PowerModes.Suspend '*** mise en veille
	...
      Case PowerModes.Resume '*** retour de mise en veille
	...
end sub

Est-ce la bonne méthode, ou ai-je oublier quelque chose?

Le fait d'avoir une boucle vide ainsi qu'une methode vide me choque un peu !

Merci

[Aspic]

Est-ce la bonne méthode, ou ai-je oublier quelque chose?

Le fait d'avoir une boucle vide ainsi qu'une methode vide me choque un peu !

Merci

La boucle vide en sert à rien ! et sans parler de la méthode vide..... Qu'est ce que tu veux faire exactement ? Arreter le traitement quand on clique sur annuler ?

[philippe123]

je me doutais bien que j'étais à coté de la plaque!

je vais essayer d'être + clair.

Mon but est de créer une application non fenêtrée qui, une fois lancé, ne s'arrête jamais et écoute l'événement PowerChanged.

une sorte de tâche en arriere plan qui écoute l'evt en question; totalement transparent pour les utilisateurs.

Un service Windows aurait été parfait mais comme je l'explique au premier post, c'est impossible

j'espère avoir été un peu plus clair dans mon explication.

merci pour l'intérêt et le temps consacré à mon post.

Philippe