Question

VB6 Winsock接收单一IP数据都正常，如果多IP数据就会窜来窜去（UDP协议只接收机器数据）

初始化
With sock
.Protocol = sckUDPProtocol
.LocalPort = 5001
.Bind
End With
收到数据

Private Sub sock_DataArrival(ByValbytesTotal As Long)
deviceip = sock.RemoteHostIP
'接收新数据
Dim Buf() As Byte
sock.GetData Buf, vbByte
数据处理解析，有点复杂*********************************************
把数据写到以IP地址为索引的集合中去*****************************
End Sub

Answer 1

所有的数据包前面都主动加上发送者IP

追问

数据包是从RS232监听来的，我们是被动接收，加不了