AHK: OpenCV определение лица

capture := _cvCaptureFromFile(file)
loop
{
   frame := _cvQueryFrame(capture)
   if !frame
      break
   _cvShowImage(window, frame)
   sleep 33
}
msgbox done


_cvCaptureFromFile(filename)
{
   Result := DllCall(opencv.opencv_highgui "\cvCreateFileCapture", "AStr", filename, "Cdecl Ptr")
   if !Result or ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvQueryFrame(capture)
{
   Result := DllCall(opencv.opencv_highgui "\cvQueryFrame", "Ptr", capture, "Cdecl Ptr")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

        // освобождаем ресурсы
        cvReleaseCapture( &capture );

;// load IPL type image 
pimg := _cvLoadImage(file1)

;// Create some windows to show the input and output images in.
_cvNamedWindow(window)

;// show our input image
_cvShowImage(window, pimg)

Global $tagIplImage = _
    "int  nSize;" & _             ;/* sizeof(IplImage) */
    "int  ID;" & _             ;                /* version (=0)*/
    "int  nChannels;" & _             ;         /* Most of OpenCV functions support 1,2,3 or 4 channels */
    "int  alphaChannel;" & _             ;      /* Ignored by OpenCV */
    "int  depth;" & _             ;             /* Pixel depth in bits: IPL_DEPTH_8U, IPL_DEPTH_8S, IPL_DEPTH_16S, IPL_DEPTH_32S, IPL_DEPTH_32F and IPL_DEPTH_64F are supported.  */
    "byte colorModel[4];" & _             ;     /* Ignored by OpenCV */
    "byte channelSeq[4];" & _             ;     /* ditto */
    "int  dataOrder;" & _             ;         /* 0 - interleaved color channels, 1 - separate color channels.cvCreateImage can only create interleaved images */
    "int  origin;" & _             ;            /* 0 - top-left origin,1 - bottom-left origin (Windows bitmaps style).  */
    "int  align;" & _             ;             /* Alignment of image rows (4 or 8). OpenCV ignores it and uses widthStep instead.    */
    "int  width;" & _             ;             /* Image width in pixels.                           */
    "int  height;" & _             ;            /* Image height in pixels.                          */
    "ptr IplROI;" & _             ;    /* Image ROI. If NULL, the whole image is selected. */
    "ptr maskROI;" & _             ;      /* Must be NULL. */
    "ptr  imageId;" & _             ;                 /* "           " */
    "ptr tileInfo;" & _             ;  /* "           " */
    "int  imageSize;" & _             ;         /* Image data size in bytes (==image->height*image->widthStep in case of interleaved data)*/
    "ptr imageData;" & _             ;        /* Pointer to aligned image data.         */
    "int  widthStep;" & _             ;         /* Size of aligned image row in bytes.    */
    "int  BorderMode[4];" & _             ;     /* Ignored by OpenCV.                     */
    "int  BorderConst[4];" & _             ;    /* Ditto.                                 */
    "ptr imageDataOrigin;"             ;  /* Pointer to very origin of image data (not necessarily aligned) - needed for correct deallocation */

DllStructGetData($tIplImagedst,'imageData')

    struct _IplROI *roi;    /* Image ROI. If NULL, the whole image is selected. */
    struct _IplImage *maskROI;      /* Must be NULL. */
    void  *imageId;                 /* "           " */
    struct _IplTileInfo *tileInfo;  /* "           " */

// OpenCV2.0\include\opencv\cxtypes.h
typedef struct _IplImage
{
    int  nSize;             /* sizeof(IplImage) */
    int  ID;                /* version (=0)*/
    int  nChannels;         /* Most of OpenCV functions support 1,2,3 or 4 channels */
    int  alphaChannel;      /* Ignored by OpenCV */
    int  depth;             /* Pixel depth in bits: IPL_DEPTH_8U, IPL_DEPTH_8S, IPL_DEPTH_16S,
                               IPL_DEPTH_32S, IPL_DEPTH_32F and IPL_DEPTH_64F are supported.  */
    char colorModel[4];     /* Ignored by OpenCV */
    char channelSeq[4];     /* ditto */
    int  dataOrder;         /* 0 - interleaved color channels, 1 - separate color channels.
                               cvCreateImage can only create interleaved images */
    int  origin;            /* 0 - top-left origin,
                               1 - bottom-left origin (Windows bitmaps style).  */
    int  align;             /* Alignment of image rows (4 or 8).
                               OpenCV ignores it and uses widthStep instead.    */
    int  width;             /* Image width in pixels.                           */
    int  height;            /* Image height in pixels.                          */
    struct _IplROI *roi;    /* Image ROI. If NULL, the whole image is selected. */
    struct _IplImage *maskROI;      /* Must be NULL. */
    void  *imageId;                 /* "           " */
    struct _IplTileInfo *tileInfo;  /* "           " */
    int  imageSize;         /* Image data size in bytes
                               (==image->height*image->widthStep
                               in case of interleaved data)*/
    char *imageData;        /* Pointer to aligned image data.         */
    int  widthStep;         /* Size of aligned image row in bytes.    */
    int  BorderMode[4];     /* Ignored by OpenCV.                     */
    int  BorderConst[4];    /* Ditto.                                 */
    char *imageDataOrigin;  /* Pointer to very origin of image data
                               (not necessarily aligned) -
                               needed for correct deallocation */
}
IplImage;

    struct _IplROI *roi;    /* Image ROI. If NULL, the whole image is selected. */
    struct _IplImage *maskROI;      /* Must be NULL. */
    void  *imageId;                 /* "           " */
    struct _IplTileInfo *tileInfo;  /* "           " */

"int  BorderMode[4];" & _  ;  /* Ignored by OpenCV.                  */
"int  BorderConst[4]

"int  nSize;" & _         ;  /* sizeof(IplImage) */
"int  ID;" & _           ;  /* version (=0)*/
"int  nChannels;" & _     ;  /* Most of OpenCV functions support 1,2,3 or 4 channels */
"int  alphaChannel;" & _   ;  /* Ignored by OpenCV */
"int  depth;" & 

	pResult := _cvCreateImage(_cvGetSize(pimg, width, height), 8, 4)
	ToolTip % width "`n" height "`n" pResult
	DllCall(opencv.opencv_imgproc "\cvCvtColor", "ptr", pimg, "ptr", pResult, "int", 0, "Cdecl")
	if ErrorLevel
		_Error(A_ThisFunc "`n" ErrorLevel) 
	off := 4, Type := "Ptr"  ;	Char Ptr
	While NumGet(pResult, (a_index-1) * off, Type) != ""
		str .=  (a_index-1) * off " : " NumGet(pResult, (a_index-1) * off, Type) "  "
	ToolTip % str

VarSetCapacity(buff, 112, 0)
DllCall("msvcrt\memcpy", Ptr, &buff, Ptr, pResult, "Uint", 16, "Cdecl")
DllCall(opencv.opencv_imgproc "\cvCvtColor", "ptr", pimg, "ptr", &buff, "int", 0, "Cdecl")

#NoEnv
#SingleInstance Force 
OnExit, Exiting

xNN := A_PtrSize = 8 ? "x64" : "x86"

SetWorkingDir L:\AutoHotKey\opencv_project\opencv\build\%xNN%\vc14\bin

Global opencv := {opencv_highgui:  "opencv_highgui2413.dll"
, opencv_core: "opencv_core2413.dll"
, opencv_imgproc:  "opencv_imgproc2413.dll"}

_OpenCV_Startup()

SetWorkingDir %A_ScriptDir%

file := "1.jpg"
window := "gui"
pimg := _cvLoadImage(file)

pResult := _cvCreateImage(_cvGetSize(pimg, width, height), 8, 4)
str := width " x " height "  " pResult "`n"   

DllCall(opencv.opencv_imgproc "\cvCvtColor", "ptr", pimg, "ptr", pResult, "int", 0, "Cdecl")
if ErrorLevel
	_Error("cvCvtColor`n" ErrorLevel)
	
off := 4, Type := "Uint"  ;	Char Ptr  Uint
While NumGet(pResult, (a_index-1) * off, Type) != ""
	str .=  (a_index-1) * off " : " NumGet(pResult, (a_index-1) * off, Type) "  "
ToolTip % str

_cvShowImage(window, pResult)

Esc::   
Exiting:
	If SecondExit || (0, SecondExit := 1)
		ExitApp 
	_cvReleaseImage(pResult)
	_cvReleaseImage(pImg)
	_Opencv_CloseDLL()
	ExitApp

#NoEnv
#SingleInstance Force 
OnExit, Exiting

xNN := A_PtrSize = 8 ? "x64" : "x86"

S_WorkingDir := A_WorkingDir
SetWorkingDir L:\AutoHotKey\opencv_project\opencv\build\%xNN%\vc14\bin

Global opencv := {opencv_highgui:  "opencv_highgui2413.dll"
	, opencv_core: "opencv_core2413.dll"
	, opencv_imgproc:  "opencv_imgproc2413.dll"}
	
_OpenCV_Startup()

SetWorkingDir %S_WorkingDir%

oFiles := ["1.jpg", "2.jpg"]

STM_SETIMAGE := 0x172, IMAGE_BITMAP := 0x0, SS_BITMAP := 0xE
WS_EX_COMPOSITED := E0x02000000  WS_EX_LAYERED := E0x00080000

Gui, -Caption +ToolWindow +E%WS_EX_COMPOSITED% +E%WS_EX_LAYERED%  
Gui, Margin, 0,0  
Gui, Add, Pic, hwndhPic %SS_BITMAP%

for i, file in oFiles
{
	pimage := _cvLoadImage(file) 
	hBitmap := _cvArrTohBitmap(pimage)
	SendMessage, STM_SETIMAGE, IMAGE_BITMAP, hBitmap,, ahk_id %hPic%
	DllCall("DeleteObject", Ptr, ErrorLevel)
	Gui, Show, AutoSize NA x0 y0
	_cvReleaseImage(pimage) 
	MsgBox Next
}
ExitApp

Esc::   
Exiting:
	If SecondExit || (0, SecondExit := 1)
		ExitApp  
	_Opencv_CloseDLL() 
	ExitApp

_cvArrTohBitmap(pimage, byref width = "", byref height = "") { 
	Result := _cvCreateImage(_cvGetSize(pimage, width, height), 8, 4)
	_cvCvtColor(pimage, Result, 0)  
	pData := NumGet(Result + 0, 68 + 20 * (A_PtrSize = 8), "Ptr")
	hBitmap := DllCall("CreateBitmap", "Int", width, "Int", height, "UInt", 1, "UInt", 32, "Ptr", pData)
	Return hBitmap, _cvReleaseImage(Result)
}

; Local $_aResult = DllCall($_opencvDll_2, "double:cdecl", "cvGetCaptureProperty", "ptr", $pCvCapture, "int", $i)

_cvGetCaptureProperty(cap, iprop) {  
	Result := DllCall(opencv.opencv_highgui, "\cvGetCaptureProperty", "Ptr", cap, "Int", iprop, "Cdecl double")
	if ErrorLevel
		_Error(A_ThisFunc "`n" ErrorLevel)
	return Result
}

; Local $_aResult = DllCall($_opencvDll_2, "int:cdecl", "cvSetCaptureProperty", "ptr", $pCvCapture, "int", $CV_CAP_PROP_FRAME_HEIGHT, "double", $y)

_cvSetCaptureProperty(cap, iprop, value) {
	DllCall(opencv.opencv_highgui, "\cvSetCaptureProperty", "Ptr", cap, "Int", iprop, "double", value, "Cdecl")
	if ErrorLevel
		_Error(A_ThisFunc "`n" ErrorLevel) 
}

 
#NoEnv
#SingleInstance Force
SetBatchLines, -1
OnExit, Exiting

xNN := A_PtrSize = 8 ? "x64" : "x86"

S_WorkingDir := A_WorkingDir
SetWorkingDir L:\AutoHotKey\opencv_project\opencv\build\%xNN%\vc14\bin

Global opencv := {opencv_core: "opencv_core2413.dll"
	, opencv_highgui: "opencv_highgui2413.dll"
	, opencv_imgproc: "opencv_imgproc2413.dll"}
	
window := "gui"

_OpenCV_Startup()

SetWorkingDir %A_ScriptDir%

file = -------------------------------

capture := _cvCaptureFromFile(file)

loop
{
	frame := _cvQueryFrame(capture)
	if !frame
		break
	_cvShowImage(window, frame)
	sleep 33
		if Close
	break
}
msgbox done
ExitApp

Esc:: Close := 1

Exiting:    
	If SecondExit || (0, SecondExit := 1)
		ExitApp  
	_cvReleaseCapture(Capture)
	_Opencv_CloseDLL()
	ExitApp
	
  ;	from me
  
_cvCaptureFromFile(filename)
{
   Result := DllCall(opencv.opencv_highgui "\cvCreateFileCapture", "AStr", filename, "Cdecl Ptr")
   if !Result or ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvQueryFrame(capture)
{
   Result := DllCall(opencv.opencv_highgui "\cvQueryFrame", "Ptr", capture, "Cdecl Ptr")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvReleaseCapture(cap){  
	DllCall(opencv.opencv_highgui "\cvReleaseCapture", "UIntP", cap, "Cdecl")  
}
 
_Error(val)
{
   msgbox % val "`nLastError - " A_LastError
   ; ExitApp
}

_OpenCV_Startup()
{
	For key, value in opencv 
		h := DllCall("LoadLibrary", "Str", value, "Ptr")  
}

_Opencv_CloseDLL()
{
	For key, value in opencv
	{ 
		if hModule := DllCall("GetModuleHandle", "str", value)
			DllCall("FreeLibrary", "ptr", hModule)
	}
}

_cvLoadImage(filename, iscolor := 1)  ;  CV_LOAD_IMAGE_COLOR
{
   Result := DllCall(opencv.opencv_highgui "\cvLoadImage", "AStr", filename, "int", iscolor, "Cdecl ptr")
   if !Result or ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvNamedWindow(name, flags := 0x00000001)   ;   CV_WINDOW_AUTOSIZE 
{
   DllCall(opencv.opencv_highgui "\cvNamedWindow", "AStr", name, "int", flags, "Cdecl ptr")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvShowImage(name, pimage)
{
	DllCall(opencv.opencv_highgui "\cvShowImage", "AStr", name, "ptr", pimage, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvCreateMat(cvrows, cvcols, cvtype)
{
   Result := DllCall(opencv.opencv_core "\cvCreateMat", "int", cvrows, "int", cvcols, "int", cvtype, "Cdecl ptr")
   if !Result or ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvMatchTemplate(cvimage, cvtempl, cvresult, cvmethod)
{
   DllCall(opencv.opencv_imgproc "\cvMatchTemplate", "ptr", cvimage, "ptr", cvtempl, "ptr", cvresult, "int", cvmethod, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvNormalize(cvsrc, cvdst, cva, cvb, cvnorm_type, cvmask)
{
   DllCall(opencv.opencv_core "\cvNormalize", "ptr", cvsrc, "ptr", cvdst, "Double", cva, "Double", cvb, "int", cvnorm_type, "ptr", cvmask, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvThreshold(cvsrc, cvdst, cvthreshold, cvmax_value, cvthreshold_type)
{
   DllCall(opencv.opencv_imgproc "\cvThreshold", "ptr", cvsrc, "ptr", cvdst, "Double", cvthreshold, "Double", cvmax_value, "int", cvthreshold_type, "Cdecl double")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvSize(width, height)
{
   return width&0xFFFFFFFF|height<<32
}

_cvPoint(x, y)
{
   return x&0xFFFFFFFF|y<<32
}

_cvCreateImage(cvsize, cvdepth, cvchannels)
{
   Result := DllCall(opencv.opencv_core "\cvCreateImage", "int64", cvsize, "int", cvdepth, "int", cvchannels, "Cdecl ptr")
   if !Result or ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvGetSize(pimage, ByRef width := 0, ByRef height := 0)
{
   WidthHeight := DllCall(opencv.opencv_core "\cvGetSize", "ptr", pimage, "Cdecl int64")
   width := 0xFFFFFFFF & WidthHeight
   height := WidthHeight >> 32
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return WidthHeight
}

_cvScalar(value)
{
   VarSetCapacity(vScalar, 32, 0)
   if IsObject(value)
   {
      loop 4
         NumPut(value%A_Index%, vScalar, (A_Index-1)*8, "double")
   }
   else
   {
      loop 4
         NumPut(value, vScalar, (A_Index-1)*8, "double")
   }
   return &vScalar
}

_CV_RGB(cvRed, cvGreen, cvBlue)
{
   VarSetCapacity(vScalar, 32, 0)
   NumPut(cvBlue, vScalar, 0, "double")
   NumPut(cvGreen, vScalar, 8, "double")
   NumPut(cvRed, vScalar, 16, "double")
   NumPut(0, vScalar, 24, "double")
   return &vScalar
}

_cvSet(cvarr, cvvalue, cvmask := 0)
{
   if (A_PtrSize = 4)
      DllCall(opencv.opencv_core "\cvSet", "ptr", cvarr, "double", NumGet(cvvalue+0, 0, "double"), "double", NumGet(cvvalue+0, 8, "double"), "double", NumGet(cvvalue+0, 16, "double"), "double", NumGet(cvvalue+0, 24, "double"), "ptr", cvmask, "Cdecl")
   else
      DllCall(opencv.opencv_core "\cvSet", "ptr", cvarr, "ptr", cvvalue, "ptr", cvmask, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvMinMaxLoc(cvarr, cvmin_val, cvmax_val, cvmin_loc, cvmax_loc, cvmask)
{
   DllCall(opencv.opencv_core "\cvMinMaxLoc", "ptr", cvarr, "ptr", cvmin_val, "ptr", cvmax_val, "ptr", cvmin_loc, "ptr", cvmax_loc, "ptr", cvmask, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvRectangle(cvimg, cvpt1, cvpt2, cvcolor, cvthickness, cvline_type, cvshift)
{
   if (A_PtrSize = 4)
      DllCall(opencv.opencv_core "\cvRectangle", "ptr", cvimg, "int64", cvpt1, "int64", cvpt2, "double", NumGet(cvcolor+0, 0, "double"), "double", NumGet(cvcolor+0, 8, "double"), "double", NumGet(cvcolor+0, 16, "double"), "double", NumGet(cvcolor+0, 24, "double"), "int", cvthickness, "int", cvline_type, "int", cvshift, "Cdecl")
   else
      DllCall(opencv.opencv_core "\cvRectangle", "ptr", cvimg, "int64", cvpt1, "int64", cvpt2, "ptr", cvcolor, "int", cvthickness, "int", cvline_type, "int", cvshift, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvCvtColor(cvsrc, cvdst, cvcode)
{
   DllCall(opencv.opencv_imgproc "\cvCvtColor", "ptr", cvsrc, "ptr", cvdst, "int", cvcode, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel) 
	
}

_cvResize(cvsrc, cvdst, cvinterpolation := 1)   ; CV_INTER_LINEAR
{
   DllCall(opencv.opencv_imgproc "\cvResize", "ptr", cvsrc, "ptr", cvdst, "int", cvinterpolation, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvEqualizeHist(cvsrc, cvdst)
{
   DllCall(opencv.opencv_imgproc "\cvEqualizeHist", "ptr", cvsrc, "ptr", cvdst, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvLoad(cvfilename, cvmemstorage := 0, cvname := 0, cvreal_name := 0)
{
   Result := DllCall(opencv.opencv_core "\cvLoad", "AStr", cvfilename, "ptr", cvmemstorage, "ptr", cvname, "ptr", cvreal_name, "Cdecl ptr")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvCreateMemStorage(cvblock_size)
{
   Result := DllCall(opencv.opencv_core "\cvCreateMemStorage", "int", cvblock_size, "Cdecl ptr")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvClearMemStorage(cvstorage)
{
   DllCall(opencv.opencv_core "\cvClearMemStorage", "ptr", cvstorage, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvHaarDetectObjects(cvimage, cvcascade, cvstorage, cvscale_factor := 1.1, cvmin_neighbors := 3, cvflags := 0, cvmin_size := 0, cvmax_size := 0)
{
   Result := DllCall(opencv.opencv_objdetect "\cvHaarDetectObjects", "ptr", cvimage, "ptr", cvcascade, "ptr", cvstorage, "double", cvscale_factor, "int", cvmin_neighbors, "int", cvflags, "int64", cvmin_size, "int64", cvmax_size, "Cdecl ptr")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvGetSeqElem(cvseq, cvindex)
{
   Result := DllCall(opencv.opencv_core "\cvGetSeqElem", "ptr", cvseq, "int", cvindex, "Cdecl ptr")
   if !Result or ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
   return Result
}

_cvReleaseImage(pimage)
{
   DllCall(opencv.opencv_core "\cvReleaseImage", "ptr*", pimage, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvReleaseMat(cvmat)
{
   DllCall(opencv.opencv_core "\cvReleaseMat", "ptr*", cvmat, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvDestroyAllWindows()
{
   DllCall(opencv.opencv_highgui "\cvDestroyAllWindows", "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

_cvClearSeq(cvseq)
{
   DllCall(opencv.opencv_core "\cvClearSeq", "ptr", cvseq, "Cdecl")
   if ErrorLevel
      _Error(A_ThisFunc "`n" ErrorLevel)
}

xNN := A_PtrSize = 8 ? "x64" : "x86"

S_WorkingDir := A_WorkingDir
SetWorkingDir L:\AutoHotKey\opencv_project\opencv\build\%xNN%\vc14\bin

file = -------------------------------

	file = C:\Users\DonGustavo\Desktop\Open\baza.bmp
	screen(x,y,w,h, OutputFilePath, hwnd="") 
	{
		hwnd := (hwnd="") ? WinExist("A") : hwnd 										
		pBitmap := Gdip_BitmapFromScreen(0,raster)
		if (pBitmap < 1)
		pToken := Gdip_StartUp(), pBitmap := Gdip_BitmapFromScreen(0,raster)
		pBitmap2 := Gdip_CreateBitmap(w, h)
		G2 := Gdip_GraphicsFromImage(pBitmap2), Gdip_SetSmoothingMode(G2, 4), Gdip_SetInterpolationMode(G2, 7)
		Gdip_DrawImage(G2, pBitmap, 0, 0, w, h, x, y, w, h)
		Gdip_SaveBitmapToFile(pBitmap2, OutputFilePath)
		Gdip_DeleteGraphics(G2), Gdip_DisposeImage(pBitmap), Gdip_DisposeImage(pBitmap2)
		if (pToken != "")
		Gdip_ShutDown(pToken)
	}	

	screen(1059, 348, 220, 325, file, NoxPlayer) 

	poisk_image(x, y, w, h, coef_sovp, f1, f2)
	{
		file1 := f1
		file2 := f2
		window := "gui"	
		_OpenCV_Startup()		
		pimg := _cvLoadImage(file1)		; базовый скриншот
		ptemp := _cvLoadImage(file2) 		; искомое изображение			
		_cvNamedWindow(window)
		_cvShowImage(window, pimg)
		_cvGetSize(pimg, width, height)
		_cvGetSize(ptemp, width2, height2)
		rw :=  width - width2 + 1
		rh :=  height - height2 + 1
		presult := _cvCreateMat(rh, rw, CV_32FC1 := 5)
		_cvMatchTemplate(pimg, ptemp, presult, CV_TM_CCOEFF_NORMED := 5)		
		_cvNormalize(presult, presult, 0, CV_C := 1, CV_MINMAX := 32, 0)
		_cvThreshold(presult, presult, coef_sovp, maxval := 1, CV_THRESH_BINARY := 0)
		VarSetCapacity(pmaxloc, 8, 0)
		VarSetCapacity(pminloc, 8, 0)
		VarSetCapacity(pmaxval, 8, 0)
		VarSetCapacity(pminval, 8, 0)
		pmask := _cvCreateImage(_cvSize(rw, rh), IPL_DEPTH_8U := 8, channels := 1)		
		_cvSet(pmask, _cvScalar(vScalar, 1))
		; Найти местоположение максимума
		_cvMinMaxLoc(presult, &pminval, &pmaxval, &pminloc, &pmaxloc, pmask)	

		loop
		{	; все, найденные со схожестью thresh := 0.94, подобия на базовом изображении 
			; обрамляется красной рамкой, если найдены
			_cvRectangle(pmask, _cvPoint(NumGet(pmaxloc, 0, "int")-5, NumGet(pmaxloc, 4, "int")-5), _cvPoint(NumGet(pmaxloc, 0, "int")+ width2, NumGet(pmaxloc, 4, "int")+height2), _cvScalar(vScalar, 0), -1, 8, 0)
			_cvRectangle(pimg, _cvPoint(NumGet(pmaxloc, 0, "int")-5, NumGet(pmaxloc, 4, "int")-5), _cvPoint(NumGet(pmaxloc, 0, "int")+ width2+10, NumGet(pmaxloc, 4, "int")+height2+10), _CV_RGB(vScalar, 255, 0, 0), 2, 8, 0)
			; вывод обновлённого базового изображения
			_cvShowImage(window, pimg)
			; найти местоположение максимума			
			_cvMinMaxLoc(presult, &pminval, &pmaxval, &pminloc, &pmaxloc, pmask)
			; где &pminval - указатель на возвращаемое минимальное значение
			; &pmaxval - указатель на возвращаемое максимальное значение
			; &pminloc - указатель на возвращаемое минимальное местоположение
			; &pmaxloc - указатель на максимальное возвращаемое местоположение
			; pmask - необязательная маска, которая используется для выбора подмассива			
			if (NumGet(pmaxval, 0, "double") < 0.99)
				break
			Sleep 100
		}
		Return
	}

	poisk_image(1645, 204, 120, 250, 0.94, f1 := "1.jpg", f2 := "2.jpg")

	Msgbox done
	_cvReleaseImage(pmask)
	_cvReleaseMat(presult)
	_cvReleaseImage(ptemp)
	_cvReleaseImage(pimg)
	_cvDestroyAllWindows()
	_Opencv_CloseDLL()