25
novembre
2008
Détection périphérique USB
novembre
2008
Un article de ogotcha
Voilà après un certain nombre de recherches (infructueuses) j’ai enfin trouvé comment intercepter la connexion et la déconnexion d’un périphérique USB.
Merci WMI ;).
Code:
Imports System.Management 'A ajouter aussi dans vos référence projet
Dim WithEvents ManagEvent As ManagementEventWatcher
Dim QueryEvent As WqlEventQuery
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
QueryEvent = New WqlEventQuery("Select * from Win32_DeviceChangeEvent")
ManagEvent = New ManagementEventWatcher(QueryEvent)
ManagEvent.Start()
End sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
ManagEvent.Stop()
End Sub
Private Sub ManagEvent_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles ManagEvent.EventArrived
'Evenement lors de la détection
End Sub
Dim WithEvents ManagEvent As ManagementEventWatcher
Dim QueryEvent As WqlEventQuery
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
QueryEvent = New WqlEventQuery("Select * from Win32_DeviceChangeEvent")
ManagEvent = New ManagementEventWatcher(QueryEvent)
ManagEvent.Start()
End sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
ManagEvent.Stop()
End Sub
Private Sub ManagEvent_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles ManagEvent.EventArrived
'Evenement lors de la détection
End Sub