Imprimir Página - Problema con Winsocks.

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:

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:

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.

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: askrator en 4 Agosto 2007, 00:01 am