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