Mensajes

como creo q es el servidor el q me da problemas aki pongo el code:

timer1 tiene intervalo de 5 segundos

Private Sub Timer1_Timer()
on error resume next
If Not WS.State = 7 Then Call conectar_Click
End If


Private Sub conectar_Click()

If Not WS.State = 7 Then GoTo con
con:
WS.Close
WS.Connect
End Sub

y esa es la conexión

PD: si el server esta bn me dicen y pongo el del cliente

Puede ser que tu "victima" tenga una mala conexion y cada X tiempo se desconecte, o que el troyano sea inestable y pierda la conexion.

esque lo estoi probando en un pc q esa conectado a mi internet y no creo q sea por eso xd

q tiene q estar mal para q sea inestable?

gracias 

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

si puedo hacer pero separado pero lo q no se es como hacer para q tire el msg cuando le llega la palabra y el msg ayuda pls

Bueno gracias por responder 

itente con el codigo de skullmaster123 pero tampoco funciono y el de Numeros tampoco, yo creo q es xq el servidor solo tira el mensaje cuando le llega la palabra exacta  si alguien sabe como hacer para q el servidor tire el msg cuando reciva la palabra y el mensaje q me diga pls 

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