以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  狐表可以对应蓝牙接口吗？使用蓝牙传数据，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76317)
--  作者：wendude
--  发布时间：2015/10/26 22:16:00
--  狐表可以对应蓝牙接口吗？使用蓝牙传数据，谢谢
设置按钮，自动连接蓝牙，通过蓝牙传数据，可以实现吗
--  作者：大红袍
--  发布时间：2015/10/26 22:34:00
--  

要用到第三方类库。

 

1、在foxtable引用dll；

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:inthehand.net.personal.zip

 

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