Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI & ", " & AdvertisingData)
'print all the advertising data map:
Dim bc As ByteConverter
ConnectedName = Name
' If Name = "AntuTech52" Then
' For Each k As Int In AdvertisingData.Keys
' Log($"${k}: ${bc.HexFromBytes(AdvertisingData.Get(k))}"$)
' Next
'
' End If
If Name = "AntuTech" Then
For Each k As Int In AdvertisingData.Keys
Log("This one = " & $"${k}: ${bc.HexFromBytes(AdvertisingData.Get(k))}"$)
Next
End If
manager.StopScan
manager.Connect2(Id, True) 'disabling auto connect can make the connection quicker
End Sub