For Each device In devices If device.DeviceName.Contains(deviceName) Then Return device End If Next Return Nothing End Function
Imports InTheHand.Net.Bluetooth Imports InTheHand.Net.Sockets Public Function FindBluetoothDevice(deviceName As String) As BluetoothDeviceInfo Dim client As New BluetoothClient() Dim devices As BluetoothDeviceInfo() = client.DiscoverDevices(255) vb net bluetooth vbforums
' In Package Manager Console: ' Install-Package InTheHand.Net.Personal For Each device In devices If device
Public Sub SendData(device As BluetoothDeviceInfo, message As String) Dim ep As New BluetoothEndPoint(device.DeviceAddress, BluetoothService.SerialPort) Dim client As New BluetoothClient() client.Connect(ep) May your posts remain forever unarchived
Public Class BluetoothHelper Public Shared Sub SendString(targetDeviceName As String, message As String) Try ' Method 1: Try COM ports first For Each com In My.Computer.Ports.SerialPortNames Using sp As New SerialPort(com, 9600) sp.Open() sp.WriteLine(message) sp.Close() Return End Using Next ' Method 2: Fallback to 32feet.NET Dim device = FindBluetoothDevice(targetDeviceName) If device IsNot Nothing Then SendData(device, message) End If Catch ex As Exception MessageBox.Show("Bluetooth failed: " & ex.Message) End Try End Sub End Class CodeNewbie_42 marks the thread as SOLVED and writes: "Turns out, the answer was hiding in plain sight. Bluetooth in VB.NET isn't hard – it's just serial communication with a different handshake . Thank you, VBForums. May your posts remain forever unarchived." Thread closed. 37,284 views. 9 helpful votes. Want me to turn this into a full downloadable VB.NET project or explain any specific Bluetooth scenario (e.g., receiving data, multiple connections, pairing without user dialog)?