Private SID As String = "0000-fff0-0000-1000-8000-00805f9b34fb"
Public Sub StartScan
If manager.State <> manager.STATE_POWERED_ON Then
Log("Not powered on.")
Else If rp.Check(rp.PERMISSION_ACCESS_COARSE_LOCATION) = False Then
Log("No location permission.")
Else
manager.Scan2(Array(SID), False)
End If
End Sub
Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI & ", " & AdvertisingData)
Dim data1() As Byte = AdvertisingData.Get(1)
Dim data2() As Byte = AdvertisingData.Get(3)
Dim data3() As Byte = AdvertisingData.Get(9)
Dim data4() As Byte = AdvertisingData.Get(10)
Dim data5() As Byte = AdvertisingData.Get(0)
'you can use byte converter to convert to hex if you like:
Dim bc As ByteConverter
Log(bc.HexFromBytes(data1))
Log(bc.HexFromBytes(data2))
Log(bc.HexFromBytes(data3))
Log(bc.HexFromBytes(data4))
Log(bc.HexFromBytes(data5))
ConnectedName = Name
manager.StopScan
manager.Connect2(Id, False) 'disabling auto connect can make the connection quicker
End Sub
[code]