Поиск кнопки в окне по шаблону картинки

#include <ImageSearch.au3>

;
; Demo on the functions of ImageSearch
; Assumes that you have a Recycle Bin icon at the top left of your screen
; Assumes that you have IE6 or 7 icon visible
; Please make the icon visible or we won't be able to find it
;

MsgBox(0,"MSG","You need to have the should have recycle bin, and preferably, an IE icon, a PDF icon and folder icon for the demo to go nicely. All of them should be visible on the desktop")

$x1=0
$y1=0
;
; find recycle bin and move to the center of it
; change 2nd argument to 0 to return the top left coord instead
$result = _ImageSearch("recycle2.bmp",1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a empty recycle bin here...")
EndIf

; find recycle bin and move to the center of it
$result = _ImageSearch("recycle2.bmp",0,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a empty recycle bin here... cursor move to top left of image")
EndIf


; find recycle bin and move to the center of it
; change 2nd argument to 0 to return the top left coord instead
$result = _ImageSearch("recycle.bmp",1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a recycle bin with stuff here...")
EndIf

; find recycle bin and move to the center of it
$result = _ImageSearch("recycle.bmp",0,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a recycle bin with stuff here... cursor move to top left of image")
EndIf



MsgBox(0,"MSG","Search for a recycle bin in the top left corner in a 200x200 box")

; find recycle bin if it is in the top left corner of screen
; change 2nd argument to 0 to return the top left coord instead
$result = _ImageSearchArea("recycle2.bmp",1,0,0,200,200,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a empty recycle bin in top left corner")
EndIf

; find recycle bin if it is in the top left corner of screen
; change 2nd argument to 0 to return the top left coord instead
$result = _ImageSearchArea("recycle.bmp",1,0,0,200,200,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a recycle bin with stuff in top left corner")
EndIf


; I guess most people should at least have an IE icon on the desktop
$result = _ImageSearch("ie7Desktop.bmp",0,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found an IE icon here")
EndIf

; I guess most people should at least have an PDF icon on the desktop
$result = _ImageSearch("pdf.bmp",0,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a PDF icon here")
EndIf

; I guess most people should at least have an Folder icon on the desktop
$result = _ImageSearch("folder.bmp",0,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Found a Folder icon here")
EndIf

; wait for a non empty recycle bin to appear
MsgBox(0,"MSG","Empty your recycle bin and then click OK. Then throw something in the bin within 15s")
$result = _WaitForImageSearch("recycle.bmp",15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Hey... your recycle bin now has stuff")
EndIf

; wait 15s for either the full or empty recycle bin
MsgBox(0,"MSG","Using WaitForImages to see whether you have a full or empty bin")
Dim $anArray[10]
$anArray[0]=2  ; two images to wait to appear
$anArray[1]="recycle.bmp"  ; image 1 to wait for
$anArray[2]="recycle2.bmp"  ; image 2 to wait for
$result = _WaitForImagesSearch($anArray,15,1,$x1,$y1,0)
if $result=1 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Hey... your recycle bin has stuff")
EndIf
if $result=2 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Hey... your recycle bin is empty")
EndIf
if $result=0 Then
	MouseMove($x1,$y1,3)
	MsgBox(0,"Found","Hey... cannot find your recycle bin")
EndIf

#include <ImageSearch.au3>

HotKeySet("{F9}","Start")
HotKeySet("{F10}","Stop")

global $y = 0, $x = 0

Func Start()
local $search = _ImageSearchArea('123.jpg', 1, 194, 408, 21, 212, $x, $y, 0)
If $search = 1 Then
MouseMove($x, $y, 10)
EndIf
EndFunc

Func stop()
    Exit
 EndFunc

while 1
sleep(200)
WEnd

#include <ScreenCapture.au3>
#include "BmpSearch.au3"

_GDIPlus_Startup()

; для проверки поиска сохраняем фрагмент экрана в виде картинки
; координаты: 100,100; размер: 50х50; формат: 24-разрядный bmp
_ScreenCapture_Capture(@ScriptDir & "\test.bmp", 100, 100, 150, 150, False)

; снимок экрана
$hSource = _ScreenCapture_Capture()
; загрузка картинки из файла
$hBmp = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\test.bmp")
; создание дескриптора
$hFind = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBmp)
; поиск картинки
$aCoords = _BmpSearch($hSource, $hFind, 1)

If @error Then
  ConsoleWrite("Не найдено" & @CRLF)
Else
  ConsoleWrite("X:" & $aCoords[1][2] & " Y:" & $aCoords[1][3] & @CRLF)
EndIf