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:
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