Resultados 1 al 4 de 4

Tema: Se cierra la conexion VB

  1. #1 Se cierra la conexion VB 
    Moderador HH
    Fecha de ingreso
    Nov 2006
    Mensajes
    1.516
    Descargas
    7
    Uploads
    0
    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 (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"

    Pues nada... ahi os dejo el codigo, y si veis algo raro, decidmelo


    Un saludo y gracias por todo
    Mess with the best, die like the rest.


    Hazle a los demas... antes de que te hagan a ti.
    Citar  
     

  2. #2  
    Avanzado
    Fecha de ingreso
    Sep 2002
    Ubicación
    En mi chavola
    Mensajes
    194
    Descargas
    4
    Uploads
    0
    Pues si.. hay cosas raras. No he mirado el código en profundidad, pero el primer fallo que he visto (o creo que es un fallo al menos que tenas los sockets enlazados de alguna manera, cosa que me extraña para lo que estás haciendo), es en:
    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

    Según la función el socket se llama Winsock1, pero segun el contenido de la función se llama Ws (supongo que por copiar y pegar). Por tanto o está mal el nombre del socket o estás haciendo una mala referencia hacia el.

    De todas formas si al corregir eso, no te funciona pasame el proyecto y lo miraré.

    Saludos.
    ---==Є£~CHΔCΔL==---

    ««--La curiosidad mató al gato, a mi me mostro las puertas--»»
    http://www.hacktheuniverse.tk
    Citar  
     

  3. #3  
    Moderador HH
    Fecha de ingreso
    Nov 2006
    Mensajes
    1.516
    Descargas
    7
    Uploads
    0
    Gracias The Chacal, si, esta parte la copie de otro servidor que hice, y no me habia dado cuenta... jeje
    Ahora pruebo a ver si es solo eso

    Un saludo



    AJA!! Pues si, era eso jj

    Vaya chorrada, mira que no verlo... tengo que fijarme mas

    Muchas gracias Chacal!!
    Última edición por RaidMan; 09-02-2008 a las 20:13
    Mess with the best, die like the rest.


    Hazle a los demas... antes de que te hagan a ti.
    Citar  
     

  4. #4  
    Avanzado
    Fecha de ingreso
    Sep 2002
    Ubicación
    En mi chavola
    Mensajes
    194
    Descargas
    4
    Uploads
    0
    Jeje xD, a todos nos pasa que nos despistamos.

    De nada, me alegro de poder ayudar

    Saludos!
    ---==Є£~CHΔCΔL==---

    ««--La curiosidad mató al gato, a mi me mostro las puertas--»»
    http://www.hacktheuniverse.tk
    Citar  
     

Temas similares

  1. Respuestas: 13
    Último mensaje: 29-07-2010, 11:04
  2. Así se cierra una 'web' de descargas
    Por clarinetista en el foro CIBERACTIVISMO
    Respuestas: 1
    Último mensaje: 09-01-2010, 01:01
  3. se cierra el explorer.exe!!
    Por DeKsToR en el foro WINDOWS
    Respuestas: 20
    Último mensaje: 22-07-2008, 16:46
  4. no cierra win98se!!!!
    Por tylio en el foro HARDWARE
    Respuestas: 6
    Último mensaje: 11-07-2003, 16:54
  5. Karpoff cierra
    Por eXcalibur en el foro NOTICIAS
    Respuestas: 7
    Último mensaje: 15-05-2003, 18:33

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •