Autoit.ES

Código: Seleccionar todo

#Include <GDIPlus.au3>

#Include <WinAPI.au3>

#include <ScreenCapture.au3>



;El punto a mirar, para simplificar coger unas coordenadas entre 0 y $lado

;Naturalmente con GDI las coordenadas serían relativas al bitmap capturado, para

;PixelGetColor serían globales, pero coloco el cuadrado de captura en 0,0 para

;que coincidan y simplificar el ejemplo

Local $x = 5, $y = 5

$lado = 10 ;Por coger un cuadrito alrededor del pixel, se puede hacer más peque, claro



_GDIPlus_Startup()

$Contexto = _WinAPI_GetDC(0) ;DC del escritorio

; La UDF en vez de GetDC usa CreateCompatibleDC, tampoco funciona:

;$Contexto = _WinAPI_CreateCompatibleDC(0)



$HBITMAP = _ScreenCapture_Capture("", 0, 0, $lado, $lado, false)

_WinAPI_SelectObject($Contexto, $HBITMAP) ;Hay que seleccionar el bitmap para que GetPixel en GDI funcione



$col1 = PixelGetColor($x, $y)

$col2 = DLLCall("gdi32.dll", "int","GetPixel", "int",$Contexto, "int",$x, "int",$y)

MsgBox(0, "Coloritos", "PixelGetColor: <" & $col1 & ">" & @LF & "GetPixel: <" & $col2 & ">" & @LF )



_WinAPI_DeleteObject($HBITMAP)



_WinAPI_ReleaseDC(0, $Contexto)

;En la UDF como crean uno nuevo en vez de liberar, lo borran:

;_WinAPI_DeleteDC($Contexto)



_GDIPlus_ShutDown ()

 

Código: Seleccionar todo

$lado = 30

$tIni = TimerInit()

for $y = 0 to $lado

    For $x = 0 To $lado

        $var = PixelGetColor($x, $y)

        ;ConsoleWrite($var & " ")

    Next

Next

ConsoleWrite(@LF & TimerDiff($tIni) & " ms" & @LF)

Código: Seleccionar todo

#Include <GDIPlus.au3>

#Include <WinAPI.au3>

Local $x = 1, $y = 1

_GDIPlus_Startup()

$Contexto = _WinAPI_GetDC(0)

$col1 = PixelGetColor($x, $y)

$col2 = DLLCall("gdi32.dll", "int","GetPixel", "int",$Contexto, "int",$x, "int",$y)

MsgBox(0, "Coloritos", "PixelGetColor: <" & Hex($col1) & ">" & @LF & "GetPixel: <" & Hex($col2[0]) & ">" & @LF )

_WinAPI_ReleaseDC(0, $Contexto)

_GDIPlus_ShutDown ()

 

Código: Seleccionar todo

Global Const $hDwmApiDll = DllOpen("dwmapi.dll")

If _IsAeroEnable() = 0 Then _EnableDisableAero(False)

#Region dwmAPI.au3

;===============================================================================

; Function Name:   _EnableDisableAero()

; Description:    Enables or Disables the Aero design from Vista to the default design.

; Parameter(s):    $bEnable [BOOLEAN]: True enables the Aero, False disables it.

; Requirement(s):  dwmapi.dll, Windows Vista

; Return Value(s): Returnvals of DLLCall

; Author(s):       GtaSpider

;===============================================================================

;

Func _EnableDisableAero($bEnable = True) ;True/False

    Local $aDll = DllCall($hDwmApiDll,"int","DwmEnableComposition","int",$bEnable)

    If @error Then Return SetError(@error,0,0)

    Return $aDll[0]

EndFunc

;===============================================================================

;

; Function Name:   _IsAeroEnable

; Description:    Checks if aero is enable

; Parameter(s):    None

; Requirement(s):  dwmapi.dll, Windows Vista

; Return Value(s): 0 If disabeld, 1 if enabled

; Author(s):       GtaSpider

;===============================================================================

;

Func _IsAeroEnable()

    Local $asDll = DllCall($hDwmApiDll,"int","DwmIsCompositionEnabled","str","")

    If @error Then Return SetError(@error,0,0)

    Return StringReplace(StringReplace(Asc($asDll[1]),"1",True),"0",False)

EndFunc

Func OnAutoItExit()

    DllClose($hDwmApiDll);Close dwmapi

EndFunc

#EndRegion dwmAPI.au3