IP отправителя UDP-пакета

[VOS]

Как узнать сабж, используя компонент Winsock?

Код: Выделить всё

Private Sub Form_Load()
ws.Bind 3030, "0.0.0.0"
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
MsgBox "<с_какого_IP_отправлены_данные>"
End Sub

[tyomitch]

RemoteHostIP

[VOS]

Положи 1 winsock на форму и вставь этот код:

Код: Выделить всё

Private Sub Form_Load()
With Winsock1
.Protocol = sckUDPProtocol
.Bind 1111, "0.0.0.0"
End With
End Sub

Private Sub Winsock1_Connect()
MsgBox "b"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
MsgBox "c"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
MsgBox "a"
MsgBox Winsock1.RemoteHostIP
End Sub

(если я конечно правильно понял твою реплику)
MsgBox'ы с "a","b","c" - для отслеживания событий.
При посылке на сокет "foo" вылетает msgbox "a", потом msgbox "", т.е. в .RemoteHostIP никаких данных нет