conexion lenta con el csocketmaster

[wACtOr]

wenas, aver os komento un pequeño problema que tengo. el server de mi troyano lo e hecho con el moculo csocketmaster, pero la conexion es lentisima. para subir un archivo de 145 kb en local tarda sin exagerar unos 2 minutos. queria saber si esto es normal, o se debe a un fallo en mi codigo.
gracaias

PD. para no empezar otro post me acabo de acordar de un problema con el troya. sin lo uso en red local, se conecta perfectamente, pero si conecta desde fuera del router no conecta bien. me explico:
cuando recibo una conexion, muestra un form a lo msn con el nombre del pc que se conecta y reproduce un sonido. si lo ejecito el LAN funciona a las 1000, exceptuando el problema de lentitud. si se lo mando a mi novia(que es la encargada de pruebas xD) solo me muestra el form y reproduce el sonido, pero no muestra nombre ni nda, con lo cual no puedo acer nada. digamos que solo recibe la conexion, pero no establece.

Alguna idea de por que puede ser?

Muchas thanks xD

[yovaninu]

mis servidores estan con el csocketmaster y mi cliente con el winsock normal, no he tenido ningun problema por lo que puedo deducir que es tu código el que esta mal..., y dices que 2 minutos para un archivo de 150KB en red lan local?,  la misma cantidad desde afuera mi server me lo envia en segundos! asi que: definitivo es tu código!

[Sancho.Mazorka]

Es cierto el CSocketMaster tiene algunos bugs, si envias muchos comandos de flood con el cliente/servidor en la PC y los 2 usando el CSocketMaster uno de los 2 se termina bugueando, y con MSWINSCK.OCX no se buguea! Pero para que tarde 2min NUNCA!


Sancho.Mazorka   

[wACtOr]

ok, tonces es problema de mi codigo. en el cliente si que uso el mswinsck.ocx. pue si, incluso indectandome a mi mismo tarda tanto tiempo.

el codigo de subir y bajar archivos es este:

en el server:

Código (vb) [Seleccionar] Expandir

If Envio = True Then
    Llegada = Llegada & data
    If Len(Llegada) = lenFile Then
        Open Dir1.Path & "\" & nombreRecibido For Binary As #1
        Put #1, , Llegada
        Close #1
        Llegada = ""
        Envio = False
        ws.SendData "ok recibido"
    End If
    Exit Sub
End If
vData = Split(data, "|")

Select Case vData(0) 'Empezamos los casos
Case "subir" 'Recibe nombre y tamaño del archivo
lenFile = vData(1)
nombreRecibido = vData(2)
Envio = True
data = ""
ws.SendData "SendFile"
Exit Sub


y en el cliente:

Código (vb) [Seleccionar] Expandir

Case "SendFile" 'Enviamos el archivo a subir
    On Error Resume Next
    Frm_File.pb.Value = 0
   
    vIndex = Split(Lv.SelectedItem.Key, "|")
    Dim Send As String
   
    Open RutaSubida For Binary As #1
    Dim Todo As String
        Todo = Space(LOF(1))
        Get #1, , Todo
    Close #1
   
    Frm_File.pb.Max = Len(Todo)
   
    For o = 1 To Len(Todo) 'Leemos el archivo de 10 en 10 bit's
        Dim Porciento As Integer 'Para que apareza el porcentaje de descarga
        Porciento = o / Len(Todo) * 100
        Frm_File.lblEstado.Caption = "Subido:" & Porciento & "%"
        Parte = Mid(Todo, o, 10)
        o = o + 9
        Ws(vIndex(0)).SendData Parte 'Enviamos los 10 bit's
        Frm_File.pb.Value = o  'Para hacer avanzar la barra de progreso
        Sleep 1
    Next o
   
   
Case "ok recibido" 'Nos indica q el archivo a llegado
    MsgBox "Archivo enviado correctamente.", vbOKOnly
    Frm_File.lblEstado.Caption = ""
    Frm_File.pb.Value = 0

Bien este es el code que uso para subir archivos. es = que el ejemplo que subio eon. lo e intentado adaptar a mi troya, que ma costao lo mio, pero al final funciona. Gracias EON, ue grande eres xD.

weno, a ver si alguien sabe por que el motivo de la lentitud., puede ser que envia de 10 en 10 bits? aunque me parece que es demasiado tiempo para tan poca cosa
Gracias

[~~]

No es por los 10 bits, se ralentiza bastante por el progres bar, prueva a kitarselo y veras como te funciona mejor

[wACtOr]

pos nop, no es el pb lo e kitado y seguia tardando lo mismo. me ta volviendo loco -.-

[~~]

Pues pensé q seria por eso, ya q el progress bar ralentiza un poco el proceso (tb hay q tener en cuenta q mi ordenador es realmente viejo..) pero vamos dos minutos no xD mirate las conexiones y prueva en otros pc's a ver si va a ser tu conexion o algo asi...