Autoit en español
Aplicaciones con Autoit - Juan Antonio Villalpando

-- Tutorial de iniciación a Autoit --

Volver al índice del tutorial

____________________________

110.- Capturar pantalla y enviarla por FTP.

- Cada 10 segundos se realiza una captura de pantalla, esa imagen se guarda en la carpeta Mis Documentos del ordenador y se envía por FTP a un servidor remoto.

- Vamos a necesitar un hosting, esto es un sitio de internet remoto donde guardar las imágenes.

- En el siguiente tutorial vimos cómo darnos de alta en un servidor gratuito llamado Hostinger. Lee este tutorial y hazte una cuenta en ese hosting:

- Hostinger: 317.- Hosting gratuito, Hostinger.

- También necesitamos un cliente FTP para poder subir/bajar archivos a ese servidor remoto. Utilizaremos el cliente Filezilla como también he explicado en el tutorial anterior.

___________________________________________________
- Creación de la carpeta remota.

- Vamos a crear una carpeta en el servidor remoto llamada "mis_imagenes". Para eso entramos en el Filezilla, conectamos con el hosting remoto, marcamos sobre public_html, pulsamos con el botón derecho del ratón y luego en "Crear directorio".

- Aunque no es necesario, ya que somos los propietarios de esa carpeta, vamos a añadir permisos de Escribir para todos los usuarios.

------------------------------------------------------------------------------------------------------------------------------------------------

- Los archivos de imagen que capturemos se guardarán en la carpeta Mis Documentos de nuestro ordenador local. Consulta esa carpeta.

- Los archivos de imagen tendrán como nombre la fecha y hora de su captura: 24-06-14-34-16.jpg

- Cuando ejecutes el script, entra en el cliente Filezilla y consulta el directorio "mis_imagenes" para comprobar que han subido.

------------------------------------------------------------------------------------------------------------------------------------------------

_____________________________________________________________________
- Código de captura automática de pantalla y envío por FTP a un servidor remoto.

				   
#include <FTPEx.au3>
#include <ScreenCapture.au3>
; Juan A. Villalpando - KIO4.COM

$Servidor = "kio4.esy.es"
$Usuario = "u798509677"
$Clave = "contraseña"

; Realiza 8 capturas y envíos FTP.
For $n = 1 to 8
     $fecha =  @MDAY & "-" & @MON & "-" & @HOUR & "-" & @MIN & "-" & @SEC

     ;;;;;;;;;;;;;;;;;  CAPTURA y GUARDA EN Mis Documentos     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    ; Captura la pantalla completa
    $mi_captura = _ScreenCapture_Capture("")

    ; Guarda la imagen capturada en la carpeta de Mis documentos, el nombre será la fecha-hora de hoy.
    _ScreenCapture_SaveImage(@MyDocumentsDir & "\" & $fecha & ".jpg", $mi_captura)

    ; Muestra la imagen capturada.
    ShellExecute(@MyDocumentsDir & "\" & $fecha & ".jpg")


;;;;;;;;;;;;;;;;;;;;;;;; ENVÍO POR FTP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Conecta.
$mi_ftp = _FTP_Open("abrir")
$archivo_local = @MyDocumentsDir & "\" & $fecha & ".jpg"
$archivo_remoto =  "mis_imagenes/" & $fecha & ".jpg"
$conectar = _FTP_Connect($mi_ftp, $Servidor, $Usuario, $Clave)

; Envía.
_FTP_FilePut($conectar, $archivo_local, $archivo_remoto)

_FTP_Close($conectar)
_FTP_Close($mi_ftp)


; Espera 10 segundos para la siguiente captura  y envío.
Sleep(10000)
Next

__________________________________________
- Comentarios.

- El Bucle For ... to ..... Next, realiza el código interior 8 veces.

- $fecha = 24-06-14-32-51

- @MyDocumentsDir es la carpeta de Mis documentos o Biblioteca / Documentos.

- $fecha & ".jpg" esto lo hacemos para que las imágenes se guarden con formato jpg de imagen: 24-06-14-32-51.jpg

- https://www.autoitscript.com/autoit3/docs/libfunctions/_FTP_Connect.htm

- https://www.autoitscript.com/autoit3/docs/libfunctions/_FTP_FilePut.htm

__________________________________________
- Propuestas.

- En vez de guardar las imágenes directamente en la carpeta local de Mis Documentos, que se guarde en una subcarpeta que esté en Mis Documentos.

- Crea un directorio remotamente:

_FTP_DirCreate($conectar, "nuevo_directorio")

_____