VBWinsock控件(UDP协议)的使用

Winsock控件是VB6.0的一个新的功能，它可以进行两台机器之间的通讯，它分两种协议，一种是TCP协议，即TransmissionControlProtocol传输控制协议，另一种则是UDP协议，即UserDatagramProtocol用户数据包协议，也就是我要讲的。打开VB6.0，选择MicrosoftWinsockControl6.0，在左边的选择框中打勾。控件工具箱中也就多了这个图标（放大的）：新建一个工程，创建一个Winsock控件，RemoteHost填要连接到的机器的主机名或IP，LocalPort填本地端口，RemotePort填远程端口，Protocol选1–sckUDPProtocol（本例本地端口为1000，远程端口为1001）创建一个Command控件创建一个Text控件再新建一个工程，创建一个Winsock控件，LocalPort填本地端口，RemotePort填远程端口，Protocol选1–sckUDPProtocol（本例本地端口为1001，远程端口为1000）创建一个Text控件注意：本地端口和远程端口不能重合第一个工程的代码：PrivateSubCommand1_Click()Winsock1.SendDataText1.TextEndSubPrivateSubForm_Load()Winsock1.Bind1000,LocalIPEndSub第二个工程的代码：PrivateSubForm_Load()Winsock1.Bind1001,LocalIPEndSubPrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimaAsStringWinsock1.GetDataa,vbStringText1.Text=aEndSub