AutoIt Français

Code : Tout sélectionner

#include <misc.au3>
#include <ScreenCapture.au3>
HotKeySet("{ESC}", "Fin") ; Touche echap pour quitter le script en cours.
HotKeySet("{PRINTSCREEN}") ; Empeche la copie windows
Opt("MustDeclareVars", 1)
Opt("TrayIconDebug", 1)

Global $hBitmap, $countfile[3], $dll, $Client, $Dst, $Name
$Dst = @MyDocumentsDir & '\Screens'
$dll = DllOpen("user32.dll")

While 1
    Sleep(100)
    If _IsPressed("2C", $dll) Then
        If Not FileExists($Dst) Then DirCreate($Dst)
        $countfile = DirGetSize($Dst, 1)
        $Name = $Dst & '\Screen' & ($countfile[1] + 1) & '.jpg'
        If _IsPressed("12", $dll) Then
            $Client = WinGetPos("[ACTIVE]")
            If Not @error Then
                $hBitmap = _ScreenCapture_Capture($Name, $Client[0], $Client[1], $Client[0] + $Client[2], $Client[1] + $Client[3])
            EndIf
        Else
            $hBitmap = _ScreenCapture_Capture($Name)
        EndIf
        ShellExecute("explorer.exe", $Dst)
    EndIf
WEnd

Func Fin()
    DllClose($dll)
    Exit
EndFunc   ;==>Fin
 

Code : Tout sélectionner

#include <misc.au3>
#include <ScreenCapture.au3>
HotKeySet("{ESC}", "Fin") ; Touche echap pour quitter le script en cours.
HotKeySet("{PRINTSCREEN}") ; Empeche la copie windows

Opt("MustDeclareVars", 1) ; Oblige à définir les variables, un bon reflexe pour les programmeurs voulant se diriger vers un autre langage que Autoit après
Opt("TrayIconDebug", 1) ; Permet de vérifier, pendant que le script est en cours de codage, l'endroit ou il y a (si il y a) un bug. Ne sert plus à rien une fois le script terminé



Global $hBitmap, $countfile[3], $dll, $Client, $Dst, $Name ;Definition des variables
$Dst = @MyDocumentsDir & '\Screens';Definition du repertoire ou tu souhaite que les captures d'ecran s'enregistrent
If Not FileExists($Dst) Then DirCreate($Dst); Si le repertoire mis juste avant n'existe pas, on le crée


$dll = DllOpen("user32.dll");Ouverture de la dll "user32.dll" necessaire pour l'utilisation de la fonction _Ispressed

While 1 ; boucle principale qui ne finira jamais sauf si l'utilisateur clic sur Echap
    Sleep(100)
    If _IsPressed("2C", $dll) Then ; voir l'aide en cliquant sur _Ispressed. 2C correspont a la touche [Impr Ecran] _
        ;(suite) Si l'utilisateur clique, alors on fait la suite, sinon, on attend 0.1 sec et on retest
        
        $countfile = DirGetSize($Dst, 1) ; On compte le nombre de fichier presents dans le repertoire. Permet de changer le nom cf juste dessous
        $Name = $Dst & '\Screen' & ($countfile[1] + 1) & '.jpg';On definit le nom que l'on va mettre au screen. Si il y a 4 images dans \screens\ alors la screen va prendre le nom screen5
        If _IsPressed("12", $dll) Then; Rajout de Tlem: Si en meme tps que l'appui sur [Impr Ecran] on appui sur Alt, alors on va screen seulement la fenetre active
            $Client = WinGetPos("[ACTIVE]"); On prend les positions de la fenetre active
            If Not @error Then ; si il n'y a pas d'erreur, alors on screen avec les positions recus juste avant
                $hBitmap = _ScreenCapture_Capture($Name, $Client[0], $Client[1], $Client[0] + $Client[2], $Client[1] + $Client[3])
            EndIf
        Else; Si on n'appui pas sur Alt, alors on screen la totalité de l'ecran
            $hBitmap = _ScreenCapture_Capture($Name)
        EndIf
        ShellExecute("explorer.exe", $Dst); On affiche l'explorateur 
    EndIf
WEnd

Func Fin(); si l'utilisateur appui sur Echap, alors
    DllClose($dll);on ferme la dll pour qu'un autre programme puisse l'utiliser
    Exit;On quitte se merveilleux programme. Mais honnetement, qui voudrait arreter un programme comme ca???
EndFunc   ;==>Fin