No any response in android 10. I decide to give up,thanks a lot.
Public Sub StartScan
If manager.State <> manager.STATE_POWERED_ON Then
ToastMessageShow("请打开手机蓝牙...", False)
Else If Starter.rp.Check(Starter.rp.PERMISSION_ACCESS_COARSE_LOCATION) = False Then
ToastMessageShow("无定位许可...", False)
Else
manager.Scan2(Null, False)
End If
End Sub
Private Sub Manager_DeviceFound (Name As String, DeviceId As String, AdvertisingData As Map, RSSI As Double)
If Name="超靖界AEB" Then
ToastMessageShow("发现蓝牙设备 - "&Name, False)
manager.StopScan
manager.Connect2(DeviceId, False)
End If
End Sub