RaidMan
09-02-2008, 18:34
Buenas!!
Vereis, estoy creando una aplicacion en VB en plan Cliente/Servidor. El problema es que cada vez que me conecto, el servidor cierra la conexion automaticamente, o eso es lo que dice el cliente.
Os dejo el codigo que tengo, para ver si vosotros veis el error, porque lo que soy yo, no lo veo:D (Se trata del servidor)
Private Sub Command2_Click()
On Error Resume Next
Ws.Close
Ws.LocalPort = Text5.Text
Ws.Listen
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Conectando...." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
------------------------------------------------------------------------
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Ws.Close
Ws.Accept requestID
Text1.Text = "***Se ha conectado, estas listo para jugar??***" & vbCrLf
Text1.Text = Text1.Text & "***Direccion IP:" & Ws.RemoteHostIP & vbCrLf
End Sub
------------------------------------------------------------------------
Private Sub ws_close()
Ws.Close
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & vbCrLf & "*** Conexion cerrada por tu colega***" & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Esta es la parte de las conexiones, en el Servidor me pone en el text1 "Conectando..."
Intento conectar con un cliente (que he creado) y en el text1 del cliente me sale "Conexion establecida!!" y luego "Conexion cerrada por RaidMan":confused::confused:
Pues nada... ahi os dejo el codigo, y si veis algo raro, decidmelo
Un saludo y gracias por todo
Vereis, estoy creando una aplicacion en VB en plan Cliente/Servidor. El problema es que cada vez que me conecto, el servidor cierra la conexion automaticamente, o eso es lo que dice el cliente.
Os dejo el codigo que tengo, para ver si vosotros veis el error, porque lo que soy yo, no lo veo:D (Se trata del servidor)
Private Sub Command2_Click()
On Error Resume Next
Ws.Close
Ws.LocalPort = Text5.Text
Ws.Listen
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Conectando...." & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
------------------------------------------------------------------------
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Ws.Close
Ws.Accept requestID
Text1.Text = "***Se ha conectado, estas listo para jugar??***" & vbCrLf
Text1.Text = Text1.Text & "***Direccion IP:" & Ws.RemoteHostIP & vbCrLf
End Sub
------------------------------------------------------------------------
Private Sub ws_close()
Ws.Close
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & vbCrLf & "*** Conexion cerrada por tu colega***" & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub
Esta es la parte de las conexiones, en el Servidor me pone en el text1 "Conectando..."
Intento conectar con un cliente (que he creado) y en el text1 del cliente me sale "Conexion establecida!!" y luego "Conexion cerrada por RaidMan":confused::confused:
Pues nada... ahi os dejo el codigo, y si veis algo raro, decidmelo
Un saludo y gracias por todo