32feet.NETを使用して、Bluetoothデバイスで、接続済みデバイス、ペアリング済みデバイス、ペアリング中のデバイスを取得する方法を記載します。
Bluetoothデバイス名を取得する
Windowsで、接続済み、ペアリング済み、および 近くにあるペアリングモードになっている機器のデバイス名を表示します。
1 2 3 4 5 6 7 8 9 |
Imports InTheHand.Net.Sockets Dim client = New BluetoothClient() Dim Devices = client.DiscoverDevices() If (Devices.Length > 0) Then For Each device In Devices Console.WriteLine(device.DeviceName) Next End If |
結果の例
1 2 3 4 |
Microsoft Bluetooth Number Pad Microsoft Bluetooth Mobile Keyboard 6000 BLM-80 LBT-SPP300 |
・実際のテストで表示されたているのは、キーボード、テンキー、モバイルプリンタ(BLM-80)、スピーカー(LBT-SPP300)です。
Bluetoothデバイス情報を取得する
デバイスの情報は、BluetoothDeviceInfoクラスで取得する
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Imports InTheHand.Net.Sockets Dim client = New BluetoothClient() Dim Devices = client.DiscoverDevices() If (Devices.Length > 0) Then For Each device As BluetoothDeviceInfo In Devices Console.WriteLine("DeviceName : {0}", device.DeviceName) Console.WriteLine("Connected : {0}", device.Connected) Console.WriteLine("Address : {0}", device.DeviceAddress) Console.WriteLine("Last seen : {0}", device.LastSeen) Console.WriteLine("Last used : {0}", device.LastUsed) Console.WriteLine("Device : {0}", device.ClassOfDevice.Device) Console.WriteLine("Major Device: {0}", device.ClassOfDevice.MajorDevice) Console.WriteLine("Service : {0}", device.ClassOfDevice.Service) Console.WriteLine("") Next End If |
結果例
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
DeviceName : Microsoft Bluetooth Number Pad Connected : False Address : 7CED8D6A65B3 Last seen : 2016/02/05 16:06:24 Last used : 2016/02/05 16:06:24 Device : PeripheralKeyboard Major Device: Peripheral Service : LimitedDiscoverableMode DeviceName : Microsoft Bluetooth Mobile Keyboard 6000 Connected : True Address : 7CED8D6AC286 Last seen : 2017/09/13 13:36:27 Last used : 2017/09/13 13:36:27 Device : PeripheralKeyboard Major Device: Peripheral Service : LimitedDiscoverableMode DeviceName : LBT-SPP300 Connected : False Address : 9BE623102709 Last seen : 2017/09/13 14:23:57 Last used : 1601/01/01 0:00:00 Device : AudioVideoHeadset Major Device: AudioVideoUnclassified Service : Rendering, Audio DeviceName : BLM-80 Connected : False Address : 000190E649CE Last seen : 2017/09/13 14:24:00 Last used : 1601/01/01 0:00:00 Device : Uncategorized Major Device: Uncategorized Service : None |