Problema con mi troyano.

[& eDu &]

Bueno estoy haciendo un troyano y el cliente y el servidor conectan, lo que pasa esque el cliente envia este codigo.

Código (vb) [Seleccionar] Expandir

FrmClient.WS.SendData Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
y el servidor lo recibe asi

Código (vb) [Seleccionar] Expandir


Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim data() As String
ws.GetData datos
data = Split(datos, "|")
Select Case data(0)
Case "Mensajes"
If data(3) = "Critical" Then
MsgBox data(0), vbCritical, data(1)
ElseIf data(3) = "Information" Then
MsgBox data(0), vbInformation, data(1)
End If
End Select
End Sub
El servidor deberia lanzar un mensaje con los valores de las arrays pero no se porque no va... ¿Alguien sabe porque no funciona? El cliente y el servidor conectan bn. Porque funciones como enviar... "Hola" a uno y el otro recibirlo lo hacen.

[skyline2412]

tu error es que no envias "Mensajes" al principio de la cadena.
la cosa quedaria asi

"Mensajes" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text

[skyline2412]

Se me olvido el caracter de despues de Mensajes

asi seria lo correcto
"Mensajes|" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text

[& eDu &]

OK, ya me funciona, muchisimas gracias

[skyline2412]

no problem, si tienes alguna duda mas ya sabes