Título: Desesperado con transeferncia de archivos... Publicado por: s_azazel en 7 Diciembre 2009, 16:49 pm 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 Título: Re: Desesperado con transeferncia de archivos... Publicado por: ssccaann43 © en 8 Diciembre 2009, 15:18 pm 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. |