老师，电脑的蓝牙地址我参考了论坛之前的帖子知道怎么获取，那手机版的呢，尤其是获取本手机所连接设备的地址。。。
电脑蓝牙：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76317&skin=0
以下代码手机版就不对了。。。
Dim wb As New weui
Dim e As RequestEventArgs = args(0)
wb.AddForm("","form1","lanya.htm")
Dim bluetoothRadio = InTheHand.Net.Bluetooth.BluetoothRadio.PrimaryRadio
If bluetoothRadio Is Nothing Then
With wb.AddInputGroup("form1","ipg1","蓝牙地址")
.AddInput("btmsl","蓝牙地址","text").value = "无"
End With
Else
output.show("LocalAddress: " & bluetoothRadio.LocalAddress.tostring)
With wb.AddInputGroup("form1","ipg1","蓝牙地址")
.AddInput("btmsl","蓝牙地址","text").value = bluetoothRadio.LocalAddress.tostring
End With
End If
e.WriteString(wb.Build)
[此贴子已经被作者于2017/7/26 19:18:15编辑过]
加好友 
发短信
Post By：2017/7/26 19:18:00 [只看该作者]
