要用到第三方类库。
1、在foxtable引用dll;
2、编写代码如
Dim bluetoothRadio = InTheHand.Net.Bluetooth.BluetoothRadio.PrimaryRadio
If bluetoothRadio Is Nothing Then
output.show("没有找到本机蓝牙设备!")
Else
output.show("ClassOfDevice: " & bluetoothRadio.ClassOfDevice.tostring)
output.show("HardwareStatus: " & bluetoothRadio.HardwareStatus)
output.show("HciRevision: " & bluetoothRadio.HciRevision)
output.show("HciVersion: " & bluetoothRadio.HciVersion)
output.show("LmpSubversion: " & bluetoothRadio.LmpSubversion)
output.show("LmpVersion: " & bluetoothRadio.LmpVersion)
output.show("LocalAddress: " & bluetoothRadio.LocalAddress.tostring)
output.show("Manufacturer: " & bluetoothRadio.Manufacturer)
output.show("Mode: " & bluetoothRadio.Mode)
output.show("Name: " & bluetoothRadio.Name)
output.show("Remote:" & bluetoothRadio.Remote)
output.show("SoftwareManufacturer: " & bluetoothRadio.SoftwareManufacturer)
output.show("StackFactory: " & bluetoothRadio.StackFactory.tostring)
End If
3、根据自己的需要写代码,具体例子 http://hzy3774.iteye.com/blog/1735163