Foro de elhacker.net

Hola a todos , pues lo que necesito es saber como puedo enviar X's datos al servidor y que este verfique algunas cosas y pues envie datos para atras.

Digamos que es un inicio de sesion con el control winsock , pues el cliente envia los datos al servidor -> el servidor busca en una carpeta los datos que este ah ingresado, si los datos existen y son correctos -> el servidor envia todos los datos.

pero que pasa , cada dato es para un cosas diferentes como por ejemplo ,


Nombre.text = Dato1
ID.text = Dato2
Numero.text = Dato3



Por ahora lo que tengo es esto que me lo recomendaron hace tiempo pero no logro que me funcione:

ENVIAR:
 
Dim Mensaje as String
Mensaje = Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.Text
Winsock1.SendData Mensaje
 
 
 

RECIBIR:
 
    Dim Compuesto As String
    Dim Separado() as string
 
    Winsock1.GetData Compuesto
    Separado()=Split(Compuesto,"||")
    Colortxt.Text = Separado(3)
    Activacion.Caption = Separado(4)
    De.Caption = Separado(1)
    MsgRecibido.Text = Separado(0)
 
 

Y quiero implementarlo a un winsock multipuertos que segun recuerdo se hace

WINSOCK1(0)

Ayuda como ago para que el socket que envie los datos al cliente que lo solicito.

Grcaias y un Saludo

No entiendo bien quieres saber a que control winsock debes enviar nueva informacion?

Deberias identificar para que es ese mensaje antes de utilizar la informacion, porque luego cuando tienes mas funciones no siepre vas a estar enviandos esos datos.

 

ENVIAR:
 
Dim Mensaje as String
Mensaje = "InfoServer||" & Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.text
 

Y luego lo identificas con un select case con el receptor

Dim Buffer As String
Dim datos() as variant
 
Winsock1.GetData Buffer
datos()=Split(Buffer,"||")
Select Case vDatos(0)
      Case "InfoServer" 'Identificamos que es un mensaje de datos de informacion del server
   Colortxt.Text = datos(3)
   Activacion.Caption = datos(4)
   De.Caption = datos(1)
   MsgRecibido.Text = datos(2)
 
End Select