Bueno estoy haciendo un troyano y el cliente y el servidor conectan, lo que pasa esque el cliente envia este codigo.
FrmClient.WS.SendData Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
y el servidor lo recibe asi
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.
tu error es que no envias "Mensajes" al principio de la cadena.
la cosa quedaria asi
"Mensajes" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
Se me olvido el caracter de despues de Mensajes
asi seria lo correcto
"Mensajes|" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text
OK, ya me funciona, muchisimas gracias :)
no problem, si tienes alguna duda mas ya sabes :)