Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET Bluetoothデバイスを取得する

32feet.NETを使用して、Bluetoothデバイスで、接続済みデバイス、ペアリング済みデバイス、ペアリング中のデバイスを取得する方法を記載します。

 

Bluetoothデバイス名を取得する

Windowsで、接続済み、ペアリング済み、および 近くにあるペアリングモードになっている機器のデバイス名を表示します。

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

結果の例

Microsoft Bluetooth Number Pad
Microsoft Bluetooth Mobile Keyboard 6000
BLM-80
LBT-SPP300

・実際のテストで表示されたているのは、キーボード、テンキー、モバイルプリンタ(BLM-80)、スピーカー(LBT-SPP300)です。

Bluetoothデバイス情報を取得する

デバイスの情報は、BluetoothDeviceInfoクラスで取得する

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

結果例

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

 

Posted in 32feet | Leave a reply

VB.NET 32feetのインストール

32feet.NETは、Bluetooth、赤外線(IrDA)など.NETコードから簡単にアクセスできます。

ライセンスは、MITです。で無料で商用利用も出来ます。

32feet.NETのインストール

Visual Studio の[ツール]-[Nuget パッケージ マネージャー]にて「32feet.NET」で検索して ”32feet.NET” をインストールします。