Ermitteln ob bestimmtes USB Gerät angeschlossen ist

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von diylab.

    Ermitteln ob bestimmtes USB Gerät angeschlossen ist

    Hallo zusammen,

    ich arbeite gerade an einem kleinen Tool um eine Startumgebung für eine Software zu konfigurieren. Der Benutzer kann dabei verschiedene Versionen, Bibliotheken und Einstellungen auswählen, die dann beim Start entsprechend aufgerufen werden.

    Die Software ist Lizenz geschützt, hierbei gibt es 2 Mögliche Lizensierungen.

    Zum einen über eine Floating Lizenz per Netzwerk Server, oder Lokal per USB Hardlock

    Damit ich beim Aufbau der Umgebung weis, welche Lizenz ich ansteuern muss habe ich nach langem Googeln einen Code gefunden um alle angeschlossenen USB-Geräte per WMI auslesen zu können, und diesen an meine Bedürfnisse angepasst


    VB.NET-Quellcode

    1. Function FindUSBDevice(ByRef str As String) As Boolean
    2. Dim TempA As String = "Select * from Win32_USBControllerDevice"
    3. Dim TempB As String = "Select * From Win32_PnPEntity Where DeviceID = '"
    4. Dim Suche As String = ""
    5. Try
    6. Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(TempA)
    7. Dim moc As ManagementObjectCollection = mos.Get()
    8. For Each mo As ManagementObject In moc
    9. Dim Dependent As String = mo("Dependent").ToString().Replace("""", "")
    10. Dim Device As String = Dependent.Substring(Dependent.IndexOf("=") + 1)
    11. Dim Search As ManagementObjectSearcher = New ManagementObjectSearcher(TempB & Device & "'")
    12. Dim Col As ManagementObjectCollection = Search.Get()
    13. For Each Items As ManagementObject In Col
    14. Suche = (Items("Description").ToString())
    15. If InStr(Suche, str) > 0 Then Return True
    16. Next
    17. Next
    18. Return False
    19. Catch
    20. MsgBox("Fehler beim Auslesen der USB Geräte", , "Fehler")
    21. End Try
    22. End Function


    und rufe diesen dann so auf

    VB.NET-Quellcode

    1. If FindUSBDevice("SafeNet Inc. HASP Key") = True Then
    2. MsgBox("Hardlock wurde gefunden", , "Hardlock Suche")
    3. Else
    4. MsgBox("Hardlock wurde nicht gefunden", , "Hardlock Suche")
    5. End If


    Das ganze funktioniert auch Super, nur dauert dies auf meinem kleinen Privatrechner wo nichts angeschlossen ist ca. 10 Sekunden und auf meinem Firmenrechner vo recht viel angeschlossen ist ca. 25 Sekunden, und ich kann den Benutzer beim Start der Software keine 25 Sekunden warten lassen.

    Ich suche jetzt eine Möglichkeit quasi ohne lange Wartezeiten zu ermitteln ob das Hardlock angeschlossen ist !!

    Hat jemand eine Idee ??

    Gruß
    Dolzman

    @Dolzman

    Ich kann mich damit nicht so aus, aber ich habe das hier gefunden:
    developerfusion.com/article/84338/making-usb-c-friendly/
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    ich kann den Benutzer beim Start der Software keine 25 Sekunden warten lassen.
    Ist es nur eine Lizenzkontrolle?
    Wirf die Hardwaresuche in einen Hintergrund-Thread und mach zunächst mal weiter, wie wenn alles OK wäre.
    Erst wenn du das Hardlock definitv nicht findest, unterbrichst du und bittest den User, es einzustecken.
    Oder benötigst du Daten von dem Teil um mit dem Programm überhaupt arbeiten zu können?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Lizenzprüfung mache ich damit keine, ich ermittle nur welche Umgebung gestartet werden soll, auf dem Hardlock befinden sich die Schnittstellen Lizenzen, mit denen ich Daten von Fremdsystemen Importieren / Exportieren kann, auf dem Floating Server die normale Arbeitsumgebung. Wenn ich Daten in ein Fremdsystem exportieren will, wird das Hardlock angesteckt ich mache also nur Doppelklick auf die Datei, das Tool Startet, ermittelt die Lizenzumgebung, schreibt die Konfigurationsdateien und startet die Software. Also würde eine Hintergrundprüfung nichts bringen, da ich dann auch erst warten muss bis die Hardlockprüfung abgeschlossen ist.

    Edit:
    Mit der devcon.exe von Microsoft (CMD Tool vom Gerätemanager) kann man die USB devices recht schnell auslesen, benötigt aber Adminrechte, weswegen dies leider nich funktioniert!

    Gruß
    Dolzman

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Dolzman“ ()

    Hallo Mr. Dolzman,

    vielleicht könntest Du mal folgendes probieren...
    Ich habe vor einiger Zeit mal einen Dateimanager gebraucht, der schnell auf angeschlossene Laufwerke reagieren musste.
    Dazu benutzte ich folgende Klasse (ExplorerDrivewatcher.vb):

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports System.IO
    6. Public Class ExplorerDrivewatcher
    7. Inherits System.Windows.Forms.NativeWindow
    9. 'Konstanten für Windowsmessages
    10. Private Const WM_DEVICECHANGE As Integer = &H219
    11. Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    12. Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    14. 'Events
    15. Public Event WinProc(ByVal sender As ExplorerDrivewatcher, ByRef m As Message)
    16. Public Event Drive_Neu(ByVal DI As DriveInfo)
    17. Public Event Drive_entfernt(ByVal DN As String)
    19. Private allDrives As New List(Of DriveInfo)
    21. Public Sub New(ByVal Handle As IntPtr)
    22. 'übergibt dem NativeWindow das Handle
    23. MyBase.AssignHandle(Handle)
    24. 'Listet alle Laufwerke in allDrives
    25. allDrives = GetAllDrives()
    26. End Sub
    28. 'Ausgabemöglichkeit für Laufwerkliste
    29. Public Function Getdrives() As List(Of DriveInfo)
    30. Return allDrives
    31. End Function
    33. 'WinProc-Methode des übergebenen Handles
    34. Protected Overrides Sub WndProc(ByRef msg As Message)
    35. 'gibt die OriginalMessage an übergebenes Handles weiter
    36. MyBase.WndProc(msg)
    37. 'Event für externe Auswertung der Message
    38. RaiseEvent WinProc(Me, msg)
    39. 'Wenn ein Laufwerk gewechselt und ein neues Laufwerk erkannt wurde
    40. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEARRIVAL, IntPtr) Then
    41. 'alle laufwerke durchlaufen und in der liste suchen
    42. For Each s As String In Directory.GetLogicalDrives
    43. find_driveinfo_arg = s
    44. Dim d As DriveInfo = allDrives.Find(AddressOf find_driveinfo)
    45. If d Is Nothing Then
    46. d = New DriveInfo(s)
    47. 'laufwerk wurde in der liste nicht gefunden und ist somit neu
    48. 'MessageBox.Show("Neuer Datenträger erkannt = " & d.Name)
    49. 'laufwerk jetzt zur liste hinzufügen
    50. allDrives.Add(d)
    51. 'Event auslösen
    52. RaiseEvent Drive_Neu(d)
    53. End If
    54. Next
    55. End If
    57. 'Wenn ein Laufwerk gewechselt und ein Laufwerk entfernt wurde
    58. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEREMOVECOMPLETE, IntPtr) Then
    59. 'alle laufwerke aus der liste prüfen
    60. Dim temp As List(Of DriveInfo) = GetAllDrives()
    61. For Each d As DriveInfo In allDrives
    62. find_driveinfo_arg = d.Name
    63. Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
    64. If lost Is Nothing Then
    65. 'laufwerk wurde in der liste nicht mehr gefunden
    66. 'MessageBox.Show("Datenträger wurde entfernt = " & d.Name)
    67. 'Event auslösen
    68. RaiseEvent Drive_entfernt(d.Name)
    69. 'laufwerk aus der liste entfernen
    70. allDrives.Remove(d)
    71. 'schleife verlassen
    72. Exit For
    73. End If
    74. Next
    75. End If
    76. End Sub
    78. 'Funktion zum Auflisten der Laufwerke
    79. Private Function GetAllDrives() As List(Of DriveInfo)
    80. Dim ret As New List(Of DriveInfo)
    81. 'und wieder befüllen
    82. For Each d As String In Directory.GetLogicalDrives
    83. ret.Add(New DriveInfo(d))
    84. Next
    85. Return ret
    86. End Function
    88. 'suchfunktion zum finden der laufwerke in der collection
    89. Private find_driveinfo_arg As String
    90. Private Function find_driveinfo(ByVal d As DriveInfo) As Boolean
    91. If d.Name = find_driveinfo_arg Then
    92. Return True
    93. Else
    94. Return False
    95. End If
    96. End Function
    98. End Class



    Benutzt wurde sie dann im Form so:

    VB.NET-Quellcode

    1. #Region " Deklarationen"
    2. ' Instanzierung der Laufwerksüberwachung mit Fensterhandle
    3. Dim Drivewatcher As New ExplorerDrivewatcher(Me.Handle)
    4. #End Region
    6. #Region " Load Form"
    7. Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    8. ' Events
    9. AddHandler Drivewatcher.Drive_Neu, AddressOf LW_erkannt
    10. AddHandler Drivewatcher.Drive_entfernt, AddressOf LW_entfernt
    11. End Sub
    12. #End Region
    14. #Region " Überwachung der Laufwerke"
    15. ' Event Laufwerk neu
    16. Private Sub LW_erkannt(ByVal DI As DriveInfo)
    17. DirectoryTreeview1.RefreshTree()
    18. End Sub
    20. ' Event Laufwerk entfernt
    21. Private Sub LW_entfernt(ByVal Name As String)
    22. DirectoryTreeview1.RefreshTree()
    23. End Sub
    24. #End Region


    In den Events kannst Du dann so reagieren, wie es Dein Programm möchte.

    LG,
    Bruno

    Das Hardlock ist allerdings kein Laufwerk, und wird im Explorer auch nicht angezeigt, denke dass diese Variante deshalb nicht funktionieren wird. Ich werde mal versuchen die devcon.exe mit einzubinden, was einbauen um einen Adminuser zu hinterlegen, und dann die devcon.exe mit Adminrechten ausführen. Wenn ich nichts anderes finde wird das die einzige Möglichkeit sein.

    support.microsoft.com/kb/311272/de

    Gruß
    Dolzman

    Ich hab´s geschafft 8-) :) 8o :thumbup: :thumbsup: :D

    Und es war einfacher als ich gedacht habe. In meiner Verzweiflung habe ich versucht herauszufinden ob sich in der Registery irgendetwas ändert sobald ich das Hardlock anschließe, habe den HKLM Baum einmal mit und einmal ohne Hardlock exportiert und dann verglichen, und tatsächlich ändern sich einige Schlüssel

    Im Schlüssel HKLM\System\CurrentControlSet\Services befidet sich eine Auflistung sämtlicher USB Geräte die am Rechner angeschlossen sind oder waren, der Schlüssel "akshasp" gehört zum Hardlock, draunter befindet sich ein Schlüssel "Enum" und darin ein Wert "Count" ist das Hardlock dran, steht dieser auf 1, wenn nicht, auf 0.

    Und so kann ich im Bruchteil einer Sekunde ermitteln ob das HL aktiv ist, das funktioniert übrigens auch mit allen anderen USB Geräten, mann muss nur wissen welcher Schlüssel zu welchen Gerät gehört !! Und das auch noch ohne Adminrechte und externe Tools !!! :thumbup:

    VB.NET-Quellcode

    1. Dim MeinKey As RegistryKey
    2. Dim Inhalt As Integer
    4. Try
    5. MeinKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\services\akshasp\Enum")
    6. Inhalt = MeinKey.GetValue("Count", "")
    7. MeinKey.Close()
    8. Catch ex As Exception
    9. MsgBox("Fehler beim lesen", , "Registery")
    10. End Try
    13. If Inhalt = 1 Then
    14. MsgBox("Hardlock ist angeschlossen", , "HASP Suche")
    15. Else
    16. MsgBox("Hardlock ist nicht angeschlossen", , "HASP Suche")
    17. End If


    8-) 8-) 8-)

Facebook
Telefonspende