Estoy aprendiendo visual basic despues de solo haber tocado programación estructurada y me hago un poko un lio. Me he aventurado a crear un chat cutre cliente servidor con basic xd. El problema es que cuando le doy a conectar en el cliente me dice Error 10048 en tiempo de ejecucion, dirección en uso. Aclaro que ejcuto tanto servidor como cliente en mi ordenador y para conectar utilizo mi ip local. LEs posteo los codes.

Cliente:

Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub
 
Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub
 

Servidor:

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_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub
 

Aclaro que el puerto utilizado es el 888. Esta establecido en el interfaz gráfico de VBA al igual que tambien lo esta el tipo de conexión (TCP/IP).


Salu2 y gracias de antemano.

No creo que el problema sea de codigo, sino que en los mismos sockets estas usando el mismo puerto  y eso no se hace jeje, el socket servidor debe tener un puerto y el cliente otro, fuera de eso, creo que deberia funcionar xD

No sale xd. Esque es lo que pas cuando trabajas con el entorno de basic xd.


Salu2 y gracias

Ya, esque en parte es importante... de todas formas una pregunta:

¿Has probado éste objeto servidor en otro programa?
Lo que es el propio objeto, la clase... ¿sabes al 100% que funciona?

Sería bueno ver cómo se generan los eventos de nuevo cliente y data recivido si los tiene... esque pueden ser muchas cosas...

¿puede ser el error algo parecido a esto?:

llamada insegura desde diferente tread. Se ha hecho referencia a un objeto a través de un tread que no fue creado por este...

Mas o menos, no recuerdo cómo es, pero vaya....

¿O no se controlo soket exception?

El caso eske el codigo fuente esta cambiado al manual que vi pero basicamente es lo mismo. He podido observar por otros codes que he visto que el problema se encuentra en conection request. Resulta que en conection request en otros codecs establecen de nuevo winsock1.localport en 0 y vulven a aceptar la conexion entrante no si si sera este el error. La verdad esk me toy liando un poko.


Salu2