detecter fin de session

Version imprimable

Bonjour j'ai reussi grace à ce bout de code

Code:

1
2
3
4
5
Dim oFSO
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	If oFSO.DriveExists("F") OR oFSO.DriveExists("G") OR oFSO.DriveExists("H") OR oFSO.DriveExists("I") Then
		msgbox "Attention un périphérique amovible est toujours branché, cliquer sur OK pour continuer",vbExclamation,"Attention !"
	End If

a detecter si une clé usb avec la lettre F ou G ou H ou I était brancher... mais
je n'arrive pas a utiliser le code de la faq pour capter le message WM_QUERYENDSESSION

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
25
26
27
28
29
30
'Message Windows QueryEndSession 
    Private Const WM_QUERYENDSESSION As Integer = &H11 
 
    'flag indiquant si la session est en cours de fermeture 
    Private _systemShutdown As Boolean = False 
 
 
    'Redéfinition de la fonction virtuelle WndProc 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) 
 
        'Mise dans systemShutdown la présence du message fermeture Windows 
        If m.Msg = WM_QUERYENDSESSION Then 
            _systemShutdown = True 
 
        End If 
        MyBase.WndProc(m) 
    End Sub 
 
    'Handler evenement closing 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
        'Si le message fermeture Windows a été envoyé, on l'annule ! 
        If _systemShutdown Then 
 
            e.Cancel = True 
            _systemShutdown = False 
            MessageBox.Show("Fermeture de session windows annulée") 
 
        End If 
 
    End Sub

vous pourriez m'éclairer sur l'utilisation que je dois en faire ?
le but final étant de bloquer la fermeture de windows si une clé usb est detecter à la fermeture ou l'arret du pc...
MErci beaucoup par avance... ciao ;)

modifie la fonction suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
        'Si le message fermeture Windows a été envoyé, on l'annule ! 
        If _systemShutdown Then 
 Dim oFSO
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	If oFSO.DriveExists("F") OR oFSO.DriveExists("G") OR oFSO.DriveExists("H") OR oFSO.DriveExists("I") Then
		msgbox "Attention un périphérique amovible est toujours branché, cliquer sur OK pour continuer",vbExclamation,"Attention !"
 
            e.Cancel = True 
            _systemShutdown = False 
            MessageBox.Show("Fermeture de session windows annulée") 
        End If
        End If 
 
    End Sub

un truc comme ça j'ai juste modifier le code, pas testé!

13/03/2008, 11h45
wechteuf

Hello
désolé de pas avoir repondu avant...
jez viens de tester mais je comprends pas vraiment il me met des message d'erreur de partout notament sur le passage de paramètre ou il me dit attendre des parenthese avant chaque "As ..." et le message _systemshtudown n'est pas reconnu erreur de caractère...
voila ...
si vous avez une idée...
je suis preneur
ciao et merci
25/09/2009, 17h03
Golard

C'est un peu tard... mais pourquoi ne pas utiliser l'évènement "MyApplication.Shutdown" ?

Mais attention l'évènement ne se déclenche pas si l'appli se plante... alors il faut aussi gérer l'évènement "MyApplication.UnhandledException".

Voilà, si j'ai pu aider, tant mieux.

PS: je suis sous VbNet2008