Visual Basic.NET - sockets app Cliente/servidor, ¿ cómo pongo la ip ?

Hola a tod@s :


El siguiente código, forma parte del formulario cliente de una app de ejemplo cliente/servidor con sockets en Visual Basic 2005, en el que el socket cliente y el socket servidor, se ejecutan en el mismo ordenador. ¿ Cómo podría poner la ip del servidor a la que tiene que atacar el socket cliente, si se ejecutaran en ordenadores diferentes ?, he estado probando varias cosas sin éxito. Gracias.


' Establish the remote endpoint for the socket.
' For this example use local machine.
Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
Dim remoteEP As New IPEndPoint(ipAddress, port)

' Create a TCP/IP socket.
Dim client As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

' Connect to the remote endpoint.
client.BeginConnect(remoteEP, New AsyncCallback(AddressOf ConnectCallback), client)

Imports System.Net.Sockets
Imports System.Text

Public Class Form1

Dim myNetworkStream As NetworkStream
Dim IPEpoint As New System.Net.IPEndPoint(Net.IPAddress.Parse("123.123.123.123"), 1045) 'Tu Ip,Tu Puerto
Dim s As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s.Bind(IPEpoint)
myNetworkStream = New NetworkStream(s)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If myNetworkStream.CanRead Then
Dim myReadBuffer(1024) As Byte
Dim myCompleteMessage As StringBuilder = New StringBuilder()
Dim numberOfBytesRead As Integer = 0

While myNetworkStream.DataAvailable
numberOfBytesRead = myNetworkStream.Read(myReadBuffer, 0, myReadBuffer.Length)
myCompleteMessage.AppendFormat("{0}", Encoding.ASCII.GetString(myReadBuffer, 0, numberOfBytesRead))
End While

MsgBox(("Haz recibido el siguiente emensaje : " + myCompleteMessage.ToString()))
Else
MsgBox("No puedes leer desde el NetWorkSteam.")
End If
End Sub
End Class

Gracias !!! ;)

grthtjyrj