[FUNCION] Autoit TCP File Send

  • 0 Respuestas
  • 4113 Vistas

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

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 708
  • Actividad:
    0%
  • Country: 00
  • Reputación 136
  • 4 Esquinas
  • Skype: [email protected]
    • Ver Perfil
    • Doors.Party
    • Email

[FUNCION] Autoit TCP File Send

  • en: Diciembre 10, 2013, 11:02:38 am
HOLA!!!

Tuve muchos problemas para recibir datos binarios enviados con autoit, por eso cree esta funcion, a la cual se le pasa un socket conectado, el path del archivo a enviar y el tamaño del bufer de salida.

Nota: Esta funcion no notifica al otro lado cuando inicia o termina un archivo, aunque al terminar su ejecucion el archivo ha sido enviado correctamente por lo que pueden enviar un identificacador de inicio antes de llamar a la funcion y otro despues.

Código: (autoit) [Seleccionar]
Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
Local $BytesRead = 0
$FileHandle = FileOpen($File, 16)
While 1
$Data = FileRead($FileHandle, $MaxLen)
If @error Then ExitLoop
$BytesRead += TCPSend($sock, $Data)
Wend
FileClose($FileHandle)
Return SetError(0, 0, 1)
EndFunc   ;==>_TCPFileSend

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   DOORS.PARTY