Обнаружение и сопряжение устройств Bluetooth в VB.NET UWP - PullRequest
Новая
       17

Обнаружение и сопряжение устройств Bluetooth в VB.NET UWP

0 голосов
/ 10 июля 2019

Я пытаюсь использовать 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

Спасибо!

...