Indetectables

Código: Seleccionar todo

#cs ----------------------------------------------------------------------------

 AutoIt Version:            3.3.9.4 (beta)
 Autor:                     DuNeD@i
 Función:                   Caputardor de Pantalla
 Uso:                       Capturador_Pantalla($Timer, [$Name], [$Final])
                                                $Timer: Cadencia de capturas
                                                $Name: Nombre de las capturas
                                                $Final: Número de capturas
 Ejemplo:                   Capturador_Pantalla(0.5, "", 20)
#ce ----------------------------------------------------------------------------

#include<clipboard.au3>
#include<screencapture.au3>
#include<misc.au3>

Capturador_Pantalla(0.5)

Func Capturador_Pantalla($Timer, $Name = "Image_", $Final = 100000)
    Global $alpha = @DesktopDir & "\Screen"
    Local $Image, $Count = 1
    If Not FileExists($alpha) Then DirCreate($alpha)
    While $Count <= $Final
        Sleep($Timer * 1000)
        $Image = $alpha & "\" & $Name & $Count & ".jpg"
        _ScreenCapture_Capture($Image)
        _ClipPutFile($Image)
        $Count += 1
   Wend
EndFunc

MsgBox(64,"Información", "Archivos creados en :" & $alpha)