Com-Schnittstellen Auslesen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von schnibli.

    Com-Schnittstellen Auslesen

    Hallo Miteinander,

    Ich würde gerne alle verfügbaren Com-Schnittstellen auflisten (mit dem Dazugehörigen name)

    z.b.
    Wenn ich ein Bluetooth-Adapter einstecke, soll das Programm in einer Listbox folgendes ausgeben:

    Com3 - Bluetooth
    Com6 - Bluetooth

    Des weiteren:

    Com 5 - USB to Serial
    Com 6 - USB to Serial


    Ich hoffe, das ihr versteht was ich meine.

    Warum ich das gerne hätte, ich Programmiere Omron SPS mit Bluetooth Dongel, im Programm von Omron muss ich immer den Bluetooth Com Port einstellen, daher währe es einfach wenn diese Aufgelistet währen.

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @schnibli: Meinst Du so was:

    VB.NET-Quellcode

    1. ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
    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!
    Der könnte in der Registry stehen. Such mal danach.
    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!
    Ich habe dies hier Probiert:

    VB.NET-Quellcode

    1. Try
    2. Dim searcher As New ManagementObjectSearcher( _
    3. "root\cimv2", _
    4. "SELECT * FROM Win32_SerialPort")
    5. For Each queryObj As ManagementObject In searcher.Get()
    6. MsgBox(queryObj("Description"))
    7. Next
    8. Catch err As ManagementException
    9. MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
    10. End Try


    Jedoch krieg ich keine message

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „schnibli“ ()