AutoIt Français

Code : Tout sélectionner

; SCRIPT
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

#include <file.au3>
#include <Date.au3>
#include <GUIConstantsEx.au3>
#Include <GDIPlus.au3>
#include <Clipboard.au3>
#include <ScreenCapture.au3>

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

if $test==-1 Then
    DirCreate($rep_bug)
EndIf

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX



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

;$bug_img = @ComputerName  & "_" & $local_jour & "_" & $local_heure
$bug_img = "PPO_" & $local_jour & "_" & $local_heure
$bug_img = StringRegExpReplace($bug_img, " ", "") & ".png"
$bug_img = $rep_bug & "\" & $bug_img

Send("{PRINTSCREEN}")

;$bak = ClipGet()
;MsgBox(0, "Clipboard contains:", $bak)
$hGUI=GUICreate("WW")

_ClipBoard_Open ($hGUI)
$presse_papier=ClipGet()

if @error = 2 Then
    $hBitmap=_ClipBoard_GetData ($CF_BITMAP)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hBitmap = ' & $hBitmap & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    _ScreenCapture_SaveImage($bug_img, $hBitmap)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : _ScreenCapture_SaveImage($bug_img, $hBitmap) = ' & _ScreenCapture_SaveImage($bug_img, $hBitmap) & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

EndIf
  ; Close the clipboard
    _ClipBoard_Close ()