Problema con Winsocks.

[askrator]

Ola a todos.

Hasta hoy nunca habia probado los Winsocks, pero hoy ya me he puesto al encontrar un manual sencillo y que parece bueno. En este manual te dan el codigo fuente de dos programas pero al ejecutarlos no consigo que funcionen.

Loc codigos son:

Servidor

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
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 Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub


El puerto se pone en las propiedades solo crearlo con el valor 888

Cliente

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
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


Lo mismo del puerto ya esta puesto al principio.

Pongo a la escucha el servidor, no pasa nada y lo curioso es que el cortafuegos del kaspersky no me dice nada de que se ponga un puerto a la escucha, tampoco se muy bien si tendria que saltar...

Ejecuto el cliente y al poner la ip 127.0.0.1 y darle a conectar sale un error en esta linea:

Winsock1.Connect

Nose que puede estar fallando agradezco cualquier cosa.

Un saludo.

[Freeze.]

Hey porque puerto vas a entrar???

-.-

[ActiveSheet]

Winsock1.Connect  txtIP, txtPuerto

en cliente

[Tengu]

lo que deberias hacer es simpre antyes de acciones tipo connect o listen es cerrar el winsock1 de esta manera
winsock1.close
winsock1.connect

De lo contrario podriaas recibir errores tipo  peticion erronea para el estado actual o algo asi... o tbn doreccion en uso.

y si configutras el winsock desde un principio fijate bien que en el server el puerto 888 este en localport y en el cliente el 888 en remoteport. Salu25
                                 

[askrator]

Yaaaaaaaaaaaaaaaaaaaaaaa esta.

Al final era lo que decias tu ..::Fireb0y::.., en el cliente ponia el puerto 888 en localport en vez de en remoteport.

Muchas gracias por las respuestas a todos.

Un saludo.