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

   
Vista:

sockets app Cliente/servidor, ¿ cómo pongo la ip ?

Publicado por pintureti (5 intervenciones) el 09/12/2007 23:54:54
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)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:sockets app Cliente/servidor, ¿ cómo pongo la i

Publicado por Harold V. (411 intervenciones) el 13/12/2007 23:27:09
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:sockets app Cliente/servidor, ¿ cómo pongo la i

Publicado por pintureti (5 intervenciones) el 14/12/2007 12:59:21
Gracias !!! ;)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

sockets

Publicado por Laura (1 intervención) el 26/01/2011 21:43:13
grthtjyrj
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar