Я пытаюсь использовать DevicePicker
для включения сопряжения устройств Bluetooth в моем приложении VB.NET UWP. Когда я запускаю этот код, средство выбора устройств даже не пытается искать устройства Bluetooth и сразу же советует мне: «Убедитесь, что устройство включено и доступно для обнаружения». Обнаружение и сопряжение устройств Bluetooth работает в настройках. Нужно ли мне как-то включать/активировать Bluetooth для моего приложения UWP? (Я пытаюсь установить сопряжение и взаимодействовать с iPhone с ПК с Windows.)
Код у меня есть ниже:
Imports Windows.Devices.Bluetooth
Imports Windows.Devices.Enumeration
Public NotInheritable Class MainPage
Inherits Page
Private Async Sub Button_Click(sender As Object, e As RoutedEventArgs)
Debug.WriteLine("Starting enumeration...")
Dim dp = New DevicePicker()
dp.Filter.SupportedDeviceSelectors.Add(BluetoothLEDevice.GetDeviceSelector())
dp.Filter.SupportedDeviceSelectors.Add(BluetoothLEDevice.GetDeviceSelectorFromPairingState(False))
dp.Filter.SupportedDeviceSelectors.Add(BluetoothLEDevice.GetDeviceSelectorFromPairingState(True))
Dim mydev As DeviceInformation = Await dp.PickSingleDeviceAsync(New Rect())
If mydev IsNot Nothing Then
Await mydev.Pairing.PairAsync(DevicePairingProtectionLevel.EncryptionAndAuthentication)
End If
End Sub
End Class
Спасибо!