两台计算机 串口通信怎么实现,如何实现多台计算机之间的网络通信？

点击上方蓝字，关注我哦！！

VB是一门面向对象、可视化的采用事件驱动机制的编程语言。VB功能强大，应用广泛，除了用VB编程来开发一些日常程序软件外，其还可以与数据库结合来开发综合的数据管理系统，亦可以进行串口通信、二次开发。

今天我们就一起来看一下VB在网络编程方面的应用，首先学习一些网络通信的基本控件知识及最简单的程序，后续我们会讲解实现两台计算机之间信息的互相传送与接收。

VB编写网络程序主要有两种方式：

1.winsock控件 ；

2.winsockAPI；

本文我们首先介绍winsock控件 。

WinSock控件

WinSock控件本身不在VB的标准工具箱中，我们使用时需要从部件中选择

MicroSoft WinSock control 6.0控件将其添加到工具箱中，然后添加到窗体上即可以使用了。

1、WinSock控件的主要属性

a.Protocol属性

通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol，Winsock控件默认协议是TCP。注意：虽然可以在运行时设置协议，但必须在连接未建立或断开连接后。

b.SocketHandle属性    SocketHandle返回当前socket连接的句柄，这是只读属性。

c.RemoteHostIP属性    RemoteHostIP属性返回远程计算机的IP地址。在客户端，当使用了控件的Connect方法后，远程计算机的IP地址就赋给了RemoteHostIP属性，而在服务器端，当ConnectRequest事件后，远程计算机(客户端)的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后，发送UDP报文的计算机的IP才赋给了这个属性。

d.ByteReceived属性    返回当前接收缓冲区中的字节数

e.State属性

返回WinSock控件当前的状态

f. RemoteHost | 远程机器名

g.RemotePort | 远程机器的通信程序端口

h.Protocal | 使用TCP或UDP协议

m.LocalHostName | 本地机器名

n.LocalIP | 本地机器IP地址

k.LocalPort | 本地机器通信程序的端口(0

2.WinSock主要方法

WinSock主要方法

a.Bind方法    用Bind方法可以把一个端口号固定为本控件使用，使得别的应用程序不能再使用这个端口。

b.Listen方法    Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。

c.Connect方法    当本地计算机希望和远程计算机建立连接时，就可以调用Connect方法。    Connect方法调用的规范为：    Connect RemoteHost,RemotePort

d.Accept方法    当服务器接收到客户端的连接请求后，服务器有权决定是否接受客户端的请求。

e.SendData方法    当连接建立后，要发送数据就可以调用SendData方法，该方法只有一个参数，就是要发送的数据。

f.GetData方法    当本地计算机接收到远程计算机的数据时，数据存放在缓冲区中，要从缓冲区中取出数据，可以使用GetData方法。GetData方法调用规范如下：    GetData >

g.PeekData方法    和GetData方法类似，但PeekData在取得数据后并不把缓冲区清空。

3.Winsock控件主要事件

a.ConnectRequest事件

当本地计算机接收到远程计算机发送的连接请求时，控件的ConnectRequest事件将会被触发。

b.SendProgress事件    当一端的计算机正在向另一端的计算机发送数据时，SendProgress事件将被触发。SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。

c.SendComplete事件    当所有数据发送完成时，被触发。

d.DataArrival事件    当建立连接后，接受到了新数据就会触发这个事件。注意：如果在接受到新数据前，缓冲区中非空，就不会触发这个事件。

e.Error事件    当在工作中发生任何错误都会触发这个事件。

***************************************************************

今天，我们首先利用WinSock控件的LocalHostName和LocalIP两个属性，来获取当前计算机的用户名和IP地址，从而为下期两台计算机之间进行通信而做准备。

Option Explicit

Private Sub Command1_Click()

Print "当前计算机用户名为："; Winsock1.LocalHostName

Print "当前计算机IP地址为："; Winsock1.LocalIP

End Sub

◆获取任意电脑的IP地址！

◆VB编程中时间计算问题如何求解？

◆VB实战 | 数据库登录功能如何实现？

大家对本期的讲解有疑问以及在学习VB的过程中有问题，可以添加小编微信号：vbyjk521 ，小编会耐心提供在线解答。

长按上图，关注跟我学VB公众平台