Visual-Basic virtual COM-PORT erkennen, Bluetoothmodulnamen auslesen?!

[MOBA 2. (Gast)]

Hallo Leute,

ich habe eine kurze Frage zu Visual-Baisc. Ich habe mir ein kleines 
Terminal geschrieben, mitdem ich meine Geräte ansprechen und 
Firmwareupdates durchführen kann. Da diese Geräte überwiegend alle 
Bluetoothmodule besitzen, verbinde ich mich über COM-Ports.

Jetzt zu meinem Problem: Das Bluetoothmodul erstellt immer 2 COM-Ports 
(einen "echten" und einen "virtual", schätze ich mal). Es geht nur einer 
davon; in der Verbindungsliste werden aber alle angezeigt - so muss man 
erst immer durch testen welcher das ist (das Terminal erkennt nach 
verbinden, ob er "echt" ist, und ob das passende Gerät dran hängt, sonst 
wird er automatisch geschlossen und eine Fehlermeldung ausgegeben).
- Ist es möglich, direkt nur in der Liste die richtigen Com-Ports 
anzuzeigen?

Zweite Frage:
- Bei vielen Geräten hat man zwangsläufig viele COM-Ports in der Liste; 
ich dachte mir, da Windows ja auch den Namen des Gerätes weiß (also den 
Namen des Bluetoothmoduls) und daraus irgendwie eine Zuweisung tätigt 
zum COM-PORT sollte es doch möglich sein, in der Verbindungsliste nicht 
nur COM1 bis COMn anzuzeigen, sondern den Bluetoothmodulnamen (bspw: 
COM1 (meinGeraet))?

Weiß jmd. wie und ob das möglich ist?

[MOBA 2. (Gast)]

Weiß das echt keiner?

[bluppdidupp (Gast)]

http://stackoverflow.com/questions/1388871/how-do-i-get-a-list-of-available-serial-ports-in-win32

[Einhart P. (einhart)]

Meine USB Geräte und virtuelle COM Ports erkenne ich mittels dem WMI 
Service.

Der Code fängt so an:

    Try
      oWMISrv = GetObject("winmgmts:\\.\root\cimv2")

      collDvcs = oWMISrv.ExecQuery("Select * From Win32_PnPEntity")

      For Each iDvc In collDvcs
.
.
.

Mit dem Service bekommt man alle möglichen Systeminformationen.

[MOBA 2. (Gast)]

Hallo Einhart,

das hört sich schonmal ganz Interessant an, brauche ich dafür eine .dll 
oder kann ich das über eine .lib einbinden?

Weißt du ob ich dort auch den Bluetoothnamen direkt einem COM-PORT 
zuordnen kann? Unter Systemsteuerung ist dieses nämlich nicht zu sehen.

Ich kenne dieses WMI noch gar nicht, wie kann ich denn die 2 COM-PORTs 
vom Bluetoothmodul differenzieren?

[Einhart P. (einhart)]

Moin Marius,

Eine DLL benötigst du nicht. System.Management muss impotiert werden

Imports System.Management

Im Bezug auf Bluetooth habe ich keine Erfahrung. Ich nehme an dass die 
dafür nötigen Informationen auch dabei sind. Einfach 'mal die Devices im 
Debug durchgehen und anschauen welche Infos enthalten sind.

Oder die Stichwörter googlen: vb.net WMI bluetooth

Bei den USB VCOM Ports sehe ich neben PID und VID die Seriennummern der 
Geräte. Damit kann ich auch gleiche Geräte identifizieren.

[MOBA 2. (Gast)]

Hallo Enhart,

ich bin nicht so der PC-Programmierer, ich habe ehrlich gesagt keine 
Ahnung wonach ich suchen muss.

Du hattest mir so einen kleinen Code Schnipsel gegeben - könnte ich 
davon einen ganzen Auszug bekommen um mal zu testen was ich dort 
zurückgeliefert bekomme?

[Rufus Τ. F. (rufus)]

Du kannst ja zunächst mal die "for each"-Schleife vervollständigen und 
Dir dann im Debugger ansehen, was iDvc jeweils an Informationen enthält.

Ja, auch VB hat so etwas.

[Einhart P. (einhart)]

Versuch's hiermit (ein Formular mit einer Multiline-Textbox:

Imports System.Management

Public Class Form1

  Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles 
Me.Shown
    Dim oWMISrv, collDvcs

    Try
      oWMISrv = GetObject("winmgmts:\\.\root\cimv2")
      collDvcs = oWMISrv.ExecQuery("Select * From Win32_PnPEntity")

      For Each iDvc In collDvcs
        TextBox1.Text = TextBox1.Text & iDvc.Caption & vbCrLf
        TextBox1.Text = TextBox1.Text & " - " & iDvc.DeviceID & vbCrLf & 
vbCrLf
      Next
    Catch
      MsgBox("DeviceInfo", vbCritical, Err.Description)
    End Try

  End Sub
End Class

Das sollte dir einiges an Systeminformationen zeigen. Das ist nur ein 
kleiner Teil der mit WMI Abfragemöglichkeiten.

[bluppdidupp (Gast)]

ggf. auch interessant:
http://www.microsoft.com/en-us/download/details.aspx?id=8572

[MOBA 2. (Gast)]

Hallo bluppdidupp & Einhart,

den Link den du mir geschickt hast ist super; das Programm ist Klasse, 
nun kann ich wenigstens mal gucken wonach ich suche - dein Quellcode ist 
tlws. dadrin auch enthalten, Einhart.

Problem: DeviceID liefert mir die COM1-COMn (das geht auch mit 
.getPortNames())

Ich habe mir alle Funktionen was unter SerialPort gelistet war 
angeguckt. Ich bekomme dort aber leider nur die Namen wie im Geräte 
Manager zu sehen (Standartmäßige Serial-über-Bluetooth-Verbindung). So 
heißen die halt alle :(

Was ich gerne sehen wollte, war der Name des Gerätes, wenn man auf das 
Bluetoothsymbol 2x klickt und dann unter PC & Geräte -> Bluetooth 
[Windows 8.1]. Dort stehen dann die gekoppelten Geräte mit Ihrem Namen. 
Wie kann ich den denn bekommen (zugewiesen auf einen Port)?

Der Code von Einhart liefert diese Namen, allerdings nicht in Bezug zu 
dem COM-PORT :|. Auf jedenfall schonmal einen Schritt weiter, danke dir.

Jetzt wäre noch super, wenn ich dazu irgendwie den Com-Port herausfinden 
könnte.

Ich bekomme durch Einharts Quellcode den Namen und die Seriennummer - 
vll. kann ich jetzt die Seriennummer vom Com-Port auslesen und das 
vergleichen - ich werde es mal testen und mich wieder melden!

[fbi (Gast)]

Bluetooth-Geräte kann man auch über die Socket-Schnittstelle ansprechen.
In C/C++ z.B. mit:

socket(AF_BTH, SOCK_STREAM, BTHPROTO_RFCOMM);

Dann weiter als Server (bind/WSASetService/listen/accept...) oder als 
Client (connect...).
Wenn man den Gerätenamen kennt gehen auch z.B.: 
WSALookupServiceBegin/WSALookupServiceNext/WSALookupServiceEnd um die 
BT-Adresse dazu rauszubekommen.
Ansonsten, mit BluetoothFindFirstRadio/... findet man die lokalen 
BT-Adapter, mit BluetoothFindFirstDevice/... die Geräte usw.
Prinzipiell sollten die APIs auch in VB ansprechbar sein.
Siehe auch 
http://msdn.microsoft.com/en-us/library/windows/desktop/aa362932%28v=vs.85%29.aspx

Ansonsten mal nach c4fdevkit suchen, da scheint auch was in der Richtung 
drin zu sein.

Und noch ein paar Links:
http://32feet.codeplex.com
http://blogs.microsoft.co.il/shair/2009/06/21/working-with-bluetooth-devices-using-c-part-1

[MOBA 2. (Gast)]

Hi Einhart

ich habe jetzt mal einiges versucht. Ich bekomme von deinem Quellcode 
die ID und den echten Bluetoothnamen - dann bekomme ich noch als 
komplett anderen Eintrag einen COM-PORT und eine andere ID.

Ich dachte die beiden IDs seien gleich -> dann hätte ich PORT einfach 
dem Namen zuweisen können. Nun merke ich gerade das das unterschiedlich 
ist.

Bspw. diese beiden Teile gehören zusammen - jetzt müsste ich noch in 
Software herausfinden, dass diese zusammengehören und könnte das dann 
zuweisen und in der Gerätebox listen (z. Zt. stehen dort halt nur die 
COM1-COMn, man weiß halt nicht welcher jetzt für bspw. HouseControl 
ist).

HouseControl-BTHENUM\DEV_001401171479\8&3265BCB9&0&BLUETOOTHDEVICE_001401171479

gehört zu

(COM9)-BTHENUM\{00001101-0000-1000-8000-00805F9B34FB}_LOCALMFG&000A\8&1FD1D244&0&001401171479_C00000000

Wie man schön sehen kann, bekomme ich jetzt den COM-PORT (COM9) und den 
Namen (HouseControl).

[Rufus Τ. F. (rufus)]

Sieh Dir mal genau Deine beiden Strings an.

> DEV_  001401171479

> \8&1FD1D244&0 & 001401171479 _C00000000

Vielleicht hilft das ja etwas weiter

[MOBA 2. (Gast)]

Ja danke Rufus :)

Ich habe es nach 'ner viertel h auf die Ausgaben starren auch gemerkt :D

Super! Jetzt wird langsam 'nen Schuh draus.

[MOBA 2. (Gast)]

So,

ich danke euch für eure Hilfe!!

Ich poste hier mal meinen (fast) fertigen Quellcode der Funktion, welche 
ausließt und die zusammengefügten Namen und Com-Port in einer Funktion 
als Array zurückgibt. Momentan ausschließlich Bluetooth - USB habe ich 
noch keine Geräte, würde dann aber aktualisiert werden. Man kann die 
Funktion aufrufen, und dann bspw. für eine Combo-Box nutzen. Vll. hat ja 
jmd. ein ähnliches Problem und kann es gebrauchen.

Public Function GetPortAndIDNames() As String()
        Dim oWMISrv, collDvcs
        Const SizeOF = 9999 'max devices
        Dim DeviceIDNAME As String
        Dim DeviceCOM_ID(SizeOF) As String
        Dim DeviceID_NAME(SizeOF) As String
        Dim SerialPortDevices(SizeOF) As String
        Dim runs(5) As Integer
        Dim BufferID As String()
        Dim bufStrNM As String()
        Dim bufStrPT As String()

        'Get and combine Objekts
        Try
            oWMISrv = GetObject("winmgmts:\\.\root\cimv2")
            collDvcs = oWMISrv.ExecQuery("Select * From Win32_PnPEntity")

            For Each iDvc In collDvcs
                DeviceIDNAME = iDvc.Caption & "{" & iDvc.DeviceID

                'get only Bluetooth Devices, NO USB
                If (InStr(1, DeviceIDNAME, "Seriell") > 0 Or InStr(1, DeviceIDNAME, "Serial") > 0 Or InStr(1, DeviceIDNAME, "BTHENUM\DEV") > 0) And InStr(1, DeviceIDNAME, "BTHENUM") > 0 Then
                    If InStr(1, DeviceIDNAME, "COM") > 0 Then
                        DeviceCOM_ID(runs(0)) = DeviceIDNAME
                        'MsgBox(DeviceCOM_ID(runs(0)))
                        runs(0) = runs(0) + 1
                    Else
                        DeviceID_NAME(runs(1)) = DeviceIDNAME
                        'MsgBox(DeviceID_NAME(runs(1)))
                        runs(1) = runs(1) + 1
                    End If
                End If
            Next
        Catch
        End Try

        For lauf As Integer = 0 To (runs(1) - 1) Step 1

            BufferID = DeviceID_NAME(lauf).Split("{")   'split out of name
            BufferID = BufferID(1).Split("_")           'split for ID

            For lauf2 As Integer = 0 To (runs(0) - 1) Step 1

                'Test Namespace
                If InStr(1, DeviceCOM_ID(lauf2), BufferID(2)) > 0 Then          'ID in Namespace?

                    'get local port and name
                    bufStrPT = DeviceCOM_ID(lauf2).Split(" ")
                    bufStrPT = bufStrPT(2).Split("{")
                    bufStrNM = DeviceID_NAME(lauf).Split("{")

                    SerialPortDevices(runs(3)) = (bufStrNM(0) & " " & bufStrPT(0))

                    runs(3) = runs(3) + 1
                End If
            Next
        Next

        Return (SerialPortDevices)
    End Function