Temas

eso no se xq me pasa pero cuando pruebo mi troyano en mi pc funciona muy bien pero cuando lo pruebo en otro, pasa un rato y la conexión se corta 

he probado con conexion inversa y directa y lo mismo

mi duda es si es problema del winsock q la conexion es mala o es mi troyano

gracias

Holas bueno llevo horas tratando de hacer esto...

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 :

Private Sub enviar_Click()
Dim chat As Variant
chat = Text1.Text & Text2.Text
frmmain.Ws(vIndex(0)).SendData "msg" & chat
End Sub

Server :

Dim chat As Variant
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