USB - Erkennung

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    USB - Erkennung

    Moin!

    Ich nutze diesen Code zur Erkennung von USB-Geräten:

    activevb.de/tipps/vbnettipps/tipp0055.html

    Die Auswertung erfolgt über den "Drive-Watcher" beim Einstecken und Abziehen.

    VB.NET-Quellcode

    1. Private Sub myDriveWatcher_DriveCoutChanged(ByVal sender As Object,
    2. ByVal e As System.IO.DriveInfo) Handles myDriveWatcher.DriveArrived
    3. MsgBox("Arrived -> " & e.Name & " - " & e.DriveType.ToString)
    4. End Sub
    5. Private Sub myDriveWatcher_DriveRemoved(ByVal sender As Object,
    6. ByVal e As System.IO.DriveInfo) Handles myDriveWatcher.DriveRemoved
    7. MsgBox("Removed -> " & e.Name & " - " & e.DriveType.ToString)
    8. End Sub


    "Problem" ist nun, dass die Meldung beim Anstecken / Abziehen immer 2x aufschlägt -

    also USB-Stick rein - Meldung kommt - auf OK drücken - Meldung kommt wieder - auf OK drücken - Ruhe

    (dito beim Abziehen)

    Habt Ihr eine Idee, woran es liegen könnte, dass die Ereignisse immer 2x ausgeführt werden ?

    Automatische Wiedergabe von Medien habe ich schon alles deaktivert unter Windows... ?( ?(
    Problem taucht bei Win 7 / 10 auf...
    @Digtro_77 Ich habe das von Dir verwiesene Projekt unter Win10, Studio 19, Framework 4.0 compiliert, es läuft so wie es soll.
    Setze mal in die Eventhandler je einen Haltepunkt rein und kläre auf, was da passiert.
    Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!