UDP笔记.docVIP

UDP笔记 采用UDP协议协议可以完成点对点的通信，并且通信端是对等关系。 客户端 ①界面 ②代码： Private Sub Form_Load() With UDPPeerA .RemoteHost = fxfcomputer .RemotePort = 1010 .LocalPort = 1011 .Bind 1011 End With End Sub Private Sub textSend_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then UDPPeerA.SendData textSend.Text End If End Sub Private Sub UDPPeerA_DataArrival(ByVal bytesTotal As Long) Dim contect As String UDPPeerA.GetData contect, vbString textOutput.Text = textOutput.Text contect End Sub 2服务器端 ①界面 ②代码： Private Sub Form_Load() With UDPPeerB .RemoteHost = fxfcomputer .RemotePort = 1011 .LocalPort = 1010 .Bind 1010 End With End Sub Private Sub textSend_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then UDPPeerB.SendData textSend.Text End If End Sub Private Sub UDPPeerB_DataArrival(ByVal bytesTotal As Long) Dim contect As String UDPPeerB.GetData contect, vbString textOutput.Text = textOutput.Text contect End Sub 总结： winsock控件属性和方法及事件 属性： 1.RemoteHost 通过该属性指定远程主机名称 2.RemotePort 通过该属性指定远程主机的指定端口 3.LocalPort 通过该属性指定本地主机的指定端口 方法： 1.bind 本地端口号 2.GetData str, vbString将远程主机发送过来的信息接收到变量“str”中，VBstring为接收长度 事件： DataArrival 当远程主机的信息发送过来后，本地计算机程序中的winsock控件就会发生该事件 textSend textOutput UDPPeerA UDPPeerA textOutput textSend