AutoIt Français

Code : Tout sélectionner

#include <Clipboard.au3>
#include <ScreenCapture.au3>

; Création répertoire bugs si n'existe pas
$bug_rep="c:\BUGS"
$bug_retour= DirGetSize ($bug_rep)

if $bug_retour==-1 Then
    DirCreate($bug_rep)
EndIf

; Créé le nom du fichier
$local_jour = @YEAR & "_" & @MON & "_" & @MDAY
$local_heure = @HOUR & "_" & @MIN & "_" & @SEC

$bug_img = @ComputerName  & "_" & $local_jour & "_" & $local_heure
$bug_img = StringRegExpReplace($bug_img, " ", "") & ".gif"
$bug_img = $bug_rep & "\" & $bug_img

Send("{PRINTSCREEN}")


$hGUI=GUICreate("WW")

_ClipBoard_Open ($hGUI)

$presse_papier=ClipGet()

if @error = 2 Then
    $hBitmap=_ClipBoard_GetData ($CF_BITMAP)
    $test=_ScreenCapture_SaveImage($bug_img, $hBitmap)
    MsgBox(0,"Test",$test & @LF & @error)
EndIf
 

Code : Tout sélectionner

#Region ;**** Options AutoIt                            ****
Opt("MustDeclareVars", 1)
Opt("GUICloseOnESC", 1)
Opt("GUIOnEventMode", 1)
#EndRegion ;**** Options AutoIt                         ****
#Include <ButtonConstants.au3>
#Include <GUIConstantsEx.au3>

#Include <ScreenCapture.au3>

Global $Form1, $Button1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 64, 40, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($Button1, "Capture")

While 1
    Sleep(100)
WEnd

Func _Exit()
    Exit 0
EndFunc   ;==>_Exit

Func Capture()
    Local $bug_rep = "C:\BUGS"
    If Not FileExists($bug_rep) Then DirCreate($bug_rep)

    Local $local_jour = @Year & "_" & @Mon & "_" & @MDay
    Local $local_heure = @Hour & "_" & @Min & "_" & @Sec
    Local $bug_img = @ComputerName & "_" & $local_jour & "_" & $local_heure
    $bug_img = StringRegExpReplace($bug_img, " ", "")

;~  $bug_img &= ".gif"

;~  $bug_img &= ".png"

    $bug_img &= ".jpg"
    _ScreenCapture_SetJPGQuality(60)

;~  $bug_img &= ".bmp"
;~  _ScreenCapture_SetBMPFormat(0)

    _ScreenCapture_Capture($bug_rep & "\" & $bug_img, 0, 0, @DesktopWidth, @DesktopHeight, True)
    ShellExecute($bug_rep & "\" & $bug_img)
EndFunc   ;==>Capture