Transferencia de archivos con visual basic

[gulabyte]

La cuestión es que con el código que uso los archivos se mandan por paquetes de 8 kilobytes y se mandan muuy lento (unos dos minutos para mandar un archivo de 300KB con un ping de poco más de 500ms) y no es muy util para la captura de pantalla...

Eso de los 8KB me parece que lo leí por ahí, que es el peso maximo que pueden tener o algo... Este es código que uso:

Código [Seleccionar] Expandir

Open Artxibu For Binary As #sfreefile
        byteread = LOF(sfreefile)
        Do While Not EOF(sfreefile)
             filebuffer = Space$(read)
                read = 8192 ' 8 KB-eko zatixetan batzendou
                If totalread + read > byteread Then
                    read = byteread - totalread
                End If
                filebuffer = Input(read, #sfreefile) ' irakurtendabena bufferrin sartzendou
                totalread = totalread + read
                GREATS.SendData filebuffer
                If Not Len(filebuffer) = 8192 Then: Exit Do
            Loop
        GREATS.SendData "END"
        Close #sfreefile

Lo que quiero es que por lo menos se acerque un poco al maximo de subida...


Gracias de antemano y salu10