Socket por UDP...

[cadrogui]

hola tengo una aplicacion cliente-servidor y lo que quiero hacer es que cuando el servidor este corriendo, envia al cliente un mensaje que en este caso sera la ip del pc que tiene al servidor..
lo estoy tratando de hacer asi...

este es el code del servidor...

SocketUDP.RemoteHost = "255.255.255.255"
SocketUDP.LocalPort = 101
SocketUDP.RemotePort = 101
SocketUDP.Protocol = sckUDPProtocol

Dim EnviarUDP As String
EnviarUDP = "Server!" & SocketUDP.LocalIP
Debug.Print "Enviando: " & EnviarUDP
SocketUDP.SendData EnviarUDP

pero en el cliente no se que poner pq no me r4ecibe lo que esta renviando el servido...

como lo puedo hacer?

lo estaoy tratando asi:

en el form load

SocketUDP.RemoteHost = "255.255.255.255"
SocketUDP.LocalPort = 101
SocketUDP.RemotePort = 101
SocketUDP.Protocol = sckUDPProtocol

y despues esto

Private Sub Socketudp_DataArrival(ByVal bytesTotal As Long)

On Error GoTo error
Dim datos As String
SocketUDP.GetData datos
udp.Text = udp.Text + datos & vbCrLf

error:
MsgBox "error"
End Sub

pero no pasa nada, la idea es que apenas corra el cliente me de el mensaje que me esta enviando el servidor..


salu2