#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIGdi.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIHObj.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}","_exit")
Func _exit()
    Exit
EndFunc

Global $screenDC, $gfxContext, $hDC, $hHBitmap, $buffer
Global $penRed, $penYellow, $penGreen
Global $GUI, $GUI_W = 600, $GUI_H = 600
Global $screenW = @DesktopWidth, $screenH = @DesktopHeight


$GUI = GUICreate("Captcha", $GUI_W, $GUI_H)
__StartUp()
GUISetState()
WinSetOnTop($GUI,"", True)


;~ _GDIPlus_GraphicsClear($gfx)
;~ _GDIPlus_GraphicsDrawImage($gfx, _Captcha_GetHidden($img), 0, 0)
;~ Sleep(3000)
;~ MsgBox(0,"",PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x64CC02)[0])

$Effect1 = _GDIPlus_EffectCreateHueSaturationLightness(0, -100)
;~ $Effect2 = _GDIPlus_EffectCreateBrightnessContrast(0, -50)
$Effect2 = _GDIPlus_EffectCreateSharpen(255, 80)
;~ _GDIPlus_EffectCreateColorBalance(
$search = False
While 1

    $cursor = GUIGetCursorInfo($GUI)
    If GUIGetMsg() = - 3 Then Exit

    _GDIPlus_GraphicsClear($gfxContext, 0xFF555555)

    $bitmap = ScreenToBitmap($screenDC, 0, 0, @DesktopWidth, @DesktopHeight)

    If IsArray($search) = False Then $search = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x64CC02)
    If IsArray(PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x64CC02)) Then

        $bitmap = _GDIPlus_BitmapCloneArea($bitmap, $search[0] - 35, $search[1] - 200, 280, 280)

        $slidepos = _Captcha_GetHidden($bitmap)
        $pos = BitmapFit($bitmap, $GUI_W, $GUI_H)

        _GDIPlus_GraphicsDrawImagePointsRect($gfxContext, $bitmap, $pos[0], $pos[1], $pos[0] + $pos[2], $pos[1], $pos[0], $pos[1] + $pos[3], 0, 0, 280, 280)
        _GDIPlus_GraphicsDrawRect($gfxContext, __map(5, 0, 280, 0, $GUI_W), __map(180, 0, 280, 0, $GUI_H), __map(55, 0, 280, 0, $GUI_W), __map(55, 0, 280, 0, $GUI_W), $penRed)

        If IsArray($slidepos) Then
            $posX = __map($slidepos[0], 0, 280, 0, $GUI_W)
            $posY = __map($slidepos[1], 0, 280, 0, $GUI_H)
            _GDIPlus_GraphicsDrawRect($gfxContext, $posX, $posY, 60, 60, $penYellow)
            _GDIPlus_GraphicsDrawLine($gfxContext, $posX, 0, $posX, $GUI_H, $penGreen)
        EndIf

        _WinAPI_BitBlt($hDC, 0, 0, $GUI_W, $GUI_H, $buffer, 0, 0, $SRCCOPY)
        If IsArray($slidepos) Then MouseClickDrag("left", $search[0], $search[1], $search[0] + $slidepos[0] - 15, $search[1], 0)

;~      ToolTip(Round(__map($cursor[0], 0, $GUI_W, 0, 280)) & "    " & Round(__map($cursor[1], 0, $GUI_H, 0, 280)))


    Else

        $pos = BitmapFit($bitmap, $GUI_W, $GUI_H)
        _GDIPlus_GraphicsDrawImagePointsRect($gfxContext, $bitmap, $pos[0], $pos[1], $pos[0] + $pos[2], $pos[1], $pos[0], $pos[1] + $pos[3], 0, 0, @DesktopWidth, @DesktopHeight)

        _WinAPI_BitBlt($hDC, 0, 0, $GUI_W, $GUI_H, $buffer, 0, 0, $SRCCOPY)

    EndIf



    _GDIPlus_BitmapDispose($bitmap)
WEnd

Func _GDIPlus_GraphicsDrawImageRectRectIA($hGraphics, $hImage, $nSrcX, $nSrcY, $nSrcWidth, $nSrcHeight, $nDstX, $nDstY, $nDstWidth, $nDstHeight, $hImageAttributes = 0, $iUnit = 2)
    Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImageRectRect", "handle", $hGraphics, "handle", $hImage, "float", $nDstX, "float", _
            $nDstY, "float", $nDstWidth, "float", $nDstHeight, "float", $nSrcX, "float", $nSrcY, "float", $nSrcWidth, "float", _
            $nSrcHeight, "int", $iUnit, "handle", $hImageAttributes, "int", 0, "int", 0)
    If @error Then Return SetError(@error, @extended, False)
    Return $aResult[0] = 0
EndFunc   ;==>_GDIPlus_GraphicsDrawImageRectRectIA

Func _Captcha_GetHidden($hBitmap)

    Local $RGB, $bitmapW = _GDIPlus_ImageGetWidth($hBitmap), $bitmapH = _GDIPlus_ImageGetHeight($hBitmap)
    Local $lowest = 0xFFFFFFFFffff, $lX, $lY = $bitmapH, $ret[2]
    Local $threshHold = Number("0xFF101010", 3), $threshHold2 = Number("0xFFeeeeee", 3)

    _GDIPlus_BitmapApplyEffect($bitmap, $Effect1)
    _GDIPlus_BitmapApplyEffect($bitmap, $Effect2)


;~  For $x = Round($bitmapW / 4.62) To $bitmapW  - $bitmapW / 10 step 1

;~      For $y = $bitmapH / 24 To Round($bitmapH / 1.66) Step 1

;~          $RGB = _GDIPlus_BitmapGetPixel($hBitmap, $x, $y)

;~          If $RGB < $lowest Then
;~              $lowest = $RGB
;~              $lX = $x
;~              $lY = $y
;~          EndIf
;~      Next
;~  Next

    For $y = $bitmapH / 24 To Round($bitmapH / 1.86) Step 1

        For $x = Round($bitmapW / 4.62) To $bitmapW  - $bitmapW / 10 step 1

            $RGB = _GDIPlus_BitmapGetPixel($hBitmap, $x, $y)

            If $RGB <= $threshHold Then
;~              Exit

                $RGB = 0
                For $i = 1 To 10

                    $RGB += _GDIPlus_BitmapGetPixel($hBitmap, $x + $i, $y)
                Next
                $RGB /= 10
                If $RGB <= $threshHold Then

                    $RGB = 0
                    For $i = Round($bitmapW / 20) + 5 To Round($bitmapW / 20) + 14

                        $RGB += _GDIPlus_BitmapGetPixel($hBitmap, $i, $y + 1)
                    Next
                    $RGB /= 10
                    If $RGB >= $threshHold2 Then

;~  ;~              If $i = $bitmapW / 20 + 5 Then
                        $lx = $x
                        $ly = $y
                        $ret[0] = $lx
                        $ret[1] = $lY
                        Return $ret
                    EndIf
                EndIf
            EndIf
        Next
    Next


EndFunc


Func __StartUp()

    _GDIPlus_Startup()

    $screenDC = _WinAPI_GetDC(0)
    $hDC = _WinAPI_GetDC($GUI)
    $hHBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $GUI_W, $GUI_H)

    $buffer = _WinAPI_CreateCompatibleDC($hDC)
    _WinAPI_SelectObject($buffer, $hHBitmap)

    $gfxContext = _GDIPlus_GraphicsCreateFromHDC($buffer)
    _GDIPlus_GraphicsSetSmoothingMode($gfxContext, $GDIP_SMOOTHINGMODE_HIGHQUALITY)
    _GDIPlus_GraphicsSetPixelOffsetMode($gfxContext, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)

    $penRed = _GDIPlus_PenCreate(0xFFFF0000, 3)
    $penYellow = _GDIPlus_PenCreate(0xFFFFFF00, 3)
    $penGreen = _GDIPlus_PenCreate(0xFF00FF00, 3)
EndFunc

Func BitmapFit($bitmap, $fitW, $fitH)

    Local $w = _GDIPlus_ImageGetWidth($bitmap), $new_w
    Local $h = _GDIPlus_ImageGetHeight($bitmap), $new_h
    Local $derv_w = ___positive($w - $fitW)
    Local $derv_h = ___positive($h - $fith)

    If $derv_w >= $derv_h Then

        $new_w = $fitW
        $new_h = $h / ($w / $fitW)
        $new_x = 0
        $new_y = $fitH / 2 - $new_h / 2
    Else
        $new_h = $fitH
        $new_w = $w / ($h / $fitH)
        $new_y = 0
        $new_x = $fitW / 2 - $new_w / 2
    EndIf


    Local $ret[4] = [$new_x, $new_y, $new_w, $new_h]

    Return $ret
EndFunc

Func ScreenToBitmap($hDC, $x, $y, $w, $h)

    Local $tDC = _WinAPI_CreateCompatibleDC($hDC)
    Local $hBMP = _WinAPI_CreateCompatibleBitmap($hDC, $w, $h)
    _WinAPI_SelectObject($tDC, $hBMP)
    _WinAPI_BitBlt($tDC, 0, 0, $w, $h, $hDC, $x, $y, $SRCCOPY)

    $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP($hBMP)

    _WinAPI_DeleteObject($hBMP)
    _WinAPI_DeleteDC($tDC)
;~     Return $hBMP
    Return $hBitmap
EndFunc


Func ___positive($x)
    Return $x < 0 ? -$x : $x
EndFunc

Func __minmax($x, $min, $max)
    Return ($x - $min) / ($max - $min)
EndFunc

Func __map($x, $min1, $max1, $min2, $max2)
    If $max2 > $min2 Then
        Return __minmax($x, $min1, $max1) * ($max2 - $min2) + $min2
    Else
        Return  (1 - __minmax($x, $min1, $max1)) * ($min2 - $max2) + $max2
    EndIf
EndFunc