AutoIt Français

Code : Tout sélectionner

#include<GDIPlus.au3>
#include<GUIConstantsEx.au3>
global const $largeur_gui=119
global const $hauteur_gui=39
$gui=guicreate("",$largeur_gui,$hauteur_gui)
guisetstate()
_gdiplus_startup()
$image=_gdiplus_imageloadfromfile("test.bmp")
;Get handle to a Graphics object
$graphique=_gdiplus_graphicscreatefromhwnd($gui)
;Draw the picture into the GUI - it will stretch to fit the GUI
_gdiplus_graphicsdrawimageRect($graphique,$image,0,0,100,$hauteur_gui)
;Get $tagGDIPBITMAPDATA structure
$bmp=_gdiplus_bitmapLockbits($image,20,20,60,60,$GDIP_ILMWRITE,$GDIP_PXF32RGB)
if @ERROR then msgbox(0,"","Error locking region for writing")
;Stride - Offset, in bytes, between consecutive scan lines of the bitmap. If the stride is positive, the bitmap is top-down. If the stride is negative, the bitmap is bottom-up.
$dll=dllstructgetdata($bmp,"Stride")
consolewrite("Bitmap Stride: " & $dll & @CRLF)
;Image width - Number of pixels in one scan line of the bitmap.
$largeur = dllstructgetdata($bmp,"largeur")
consolewrite("Bitmap Width: " & $largeur & @CRLF)
;Image height - Number of scan lines in the bitmap.
$hauteurt=dllstructgetdata($bmp,"hauteur")
consolewrite("Bitmap Height: " & $hauteurt & @CRLF)
;Pixel format - Integer that specifies the pixel format of the bitmap
$pixel=dllstructgetdata($bmp, "pixel")
consolewrite("Bitmap PixelFormat: " & $pixel & @CRLF)
;Scan0 - Pointer to the first (index 0) scan line of the bitmap.
$scan=dllstructgetdata($bmp,"scan")
consolewrite("Bitmap Scan0: " & $scan & @CRLF)
for $for=0 to $hauteurt -1
for $for2=0 to $largeur -1
$pixel=dllstructcreate("dword", $scan+$for*$dll+$for2*4)
dllstructsetdata($pixel,1,0x0000FF00)
;consolewrite(Hex(dllstructgetdata($pixel, 1)) & @CRLF)
next
;consolewrite("-------" & @CRLF)
next
;Unlock region previously locked for writing
_gdiplus_bitmapunlockbits($image,$bmp)
_gdiplus_graphicsdrawimagerect($graphique,$image,100,0,100,100)
while 1
$message=guigetmsg()
if $message=$GUI_EVENT_CLOSE then exitloop
wend
func OnAutoItExit()
if $image  then _gdiplus_imagedispose($image)
_gdiplus_shutdown()
endfunc

Code : Tout sélectionner

dllstructsetdata($pixel,1,0x0000FF00)

Code : Tout sélectionner

global $var = 0
dim $1[10000]

while 1
sleep (5)
$var += 1
$1[$var] = pixelgetcolor ($x, $y)
$x += 1
if $x = @DesktopWidth then
$x = 0
$y += 1
endif
if $y = @DesktopHeight thenexitloop
wend
for $i = 1 to $var
stringreplace ($1[$i], "code couleur initial", "code couleur a sortir")
 

Code : Tout sélectionner

ChangerCouleur("test.bmp","test2.bmp","0x0xE5E5E5","0x000000")