WinSock

[jesusmmc]

Hola.
Estoy intentando poder conectarme a un servidor con el siguiente codigo, pero no me funciona.
Yo me tengo que conectar teniendo en cuenta una IP publica y un puerto concreto, y debo identificarme en el servidor con un nombre. El codigo que tengo es el siguiente, si alguien me puede ayudar.

Private Sub Form_Load()
Winsock1.RemotePort = 1023
Winsock1.RemoteHost = "Equipo"
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub


Gracias
Un saludo

[hmtech]

hola:

tienes el codigo del servidor, para saber que informacion le puedes enviar y como enviarla?

te falto poner el IP del servidor para conectarte.
ej.:

If Winsock1.State <> sckClosed Then
Winsock1.Close
End If

Winsock1.RemoteHost = "192.168.0.1"
Winsock1.Connect

Cuando programo con winsock pongo el servidor a que coja el nombre de la maquina o persona que se quiere conectar con:

text1.text = winsock1.RemoteHost o RemoteHostIP

la forma en que el cliente envie el nombre podria ser:

ej.:
supongamos que el usuario cliente ponga su nombre en un TextBox y enviar el contenido de ese textbox. pero tendrias que saber donde en el servidor va a identificarlo por eso la pregunta si tienes el codigo del servidor?

no se, si estoy mal que me corrijan para eso estamos pero deberias saber el codigo del servidor para poder programar el cliente.

saludos
hmtech