Private Sub ScanWithLeScanner
Dim ScanSettingsStatic As JavaObject
ScanSettingsStatic.InitializeStatic("android.bluetooth.le.ScanSettings")
Dim ScanSettingsBuilder As JavaObject
ScanSettingsBuilder.InitializeNewInstance("android.bluetooth.le.ScanSettings.Builder", Null)
'https://developer.android.com/reference/android/bluetooth/le/ScanSettings.Builder
ScanSettingsBuilder.RunMethod("setScanMode", Array(ScanSettingsStatic.GetField("SCAN_MODE_LOW_LATENCY")))
'----------------------------------------------------------------------
' Add Scan Filter
Dim ScanFilterStatic As JavaObject
ScanFilterStatic.InitializeStatic("android.bluetooth.le.ScanFilter")
Dim ScanFilterBuilder As JavaObject
ScanFilterBuilder.InitializeNewInstance("android.bluetooth.le.ScanFilter.Builder", Null)
'https://developer.android.com/reference/android/bluetooth/le/ScanFilter.Builder
ScanFilterBuilder.RunMethod("setDeviceName", Array("B4APeripheral"))
ScanFilterBuilder.InitializeNewInstance("android.bluetooth.le.ScanFilter.Builder", Null)
Dim Filters As JavaObject
Filters.InitializeArray("android.bluetooth.le.ScanFilter",ScanFilterBuilder.RunMethod("build",Null))
'---------------------------------------------------------------------------
ScanSettingsBuilder.InitializeNewInstance("android.bluetooth.le.ScanSettings.Builder", Null)
Scanner.RunMethod("startScan", Array(Filters, ScanSettingsBuilder.RunMethod("build", Null), ScanCallback))
'Scanner.RunMethod("startScan", Array(Null, ScanSettingsBuilder.RunMethod("build", Null), ScanCallback))
End Sub