vb.net蓝牙编程 win10蓝牙编程

怎样用VB.NET进行网络编程？

都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止

从策划到设计制作，每一步都追求做到细腻，制作可持续发展的企业网站。为客户提供成都网站设计、成都做网站、外贸网站建设、网站策划、网页设计、申请域名、网页空间、网络营销、VI设计、网站改版、漏洞修补等服务。为客户提供更好的一站式互联网解决方案,以客户的口碑塑造优易品牌,携手广大客户,共同发展进步。

去网上找蓝芽的SDK.....

新手的话,最好先学好基础的..一开始就搞那个不好..

Socket类连接后可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.

要注意的是.需要将它强制转化为 IPEndPoint类型然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口

例:

Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

'这里创建一个UDP Socket连接的实例 TCP也是一样的

'省略SOCKET连接的代码当SOCKET连接成功后可以用下面的语句获取远程信息

Dim IP as string ,Port as integer

'定义IP和Port变量用来保存地址及端口

IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())

Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)

你可以在timer前用if判断网络状态，

如断开，可用

threading.Thread.Sleep（10000） ‘当前线程挂起10秒

’可以开一个新线程去读取脱机数据。

如连接，则继续执行。

补充：

dim i as integer

'超过100次退出，避免死循环

for i=0 to 100

try

'ping你的端口

if ‘ok

exit for

else

threading.Thread.Sleep（10000） ‘当前线程挂起10秒

end

Catch ex As Exception

End Try

分享文章：vb.net蓝牙编程 win10蓝牙编程
网站地址：http://myzitong.com/article/dohojps.html