Article complet: Détection périphérique USB

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