Серый форум — AHK: Поиск 3-х одинаковых картинок и тык по ним

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-11-02T15:47:20Z

kdn14062000 пишет:

я взял этот код

Не ясно какой этот, вам тут и картинки приложили, и много кода написали, и разжевали всё, честно говоря не охота будет в будущем вам отвечать на сообщения в стиле - догадайся сам, а то мне для тебя в падло оформить ссылку, и вобще что то толком объяснять, сам всё спросишь чё тебе там надо задрот.

kdn14062000 пишет:

иногда он находит вместо трех один или 2

Скорее всего не хватает variation.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-11-02T15:32:23Z

serzh82saratov
я взял этот код ,и он работает ,но иногда он находит вместо трех один или 2 .В чем может быть прикол

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-31T09:25:30Z

Да. Через opencv.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-31T08:45:21Z

Malcev
А есть вариант сделать так,чтобы искать изображения на экране немного увеличенные или уменьшенные ?

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-29T11:41:16Z

serzh82saratov пишет:

А метод получения снимка может как то влиять на скорость поиска в нём?

Нет, так это просто участок памяти к которой мы получаем доступ.

setbatchlines -1
DllCall("LoadLibrary", "str", "gdiplus")
VarSetCapacity(si, 8+2*A_PtrSize, 0)
NumPut(0x1, si, "uint")
DllCall("gdiplus\GdiplusStartup", "ptr*", pToken, "ptr", &si, "ptr", 0)
hDC := DllCall("GetDC", "ptr", 0, "ptr")
pDC := DllCall("CreateCompatibleDC", "ptr", hDC, "ptr")
VarSetCapacity(bi, 40, 0)
NumPut(40, bi, 0, "int")
NumPut(A_ScreenWidth, bi, 4, "int")
NumPut(A_ScreenHeight, bi, 8, "int")
NumPut(1, bi, 12, "short")
NumPut(bpp:=32, bi, 14, "short")
hBM := DllCall("CreateDIBSection", "ptr", pDC, "ptr", &bi, "int", 0, "ptr*", Scan, "int", 0, "int", 0, "ptr")
Stride:=((A_ScreenWidth*bpp+31)//32)*4
oBM := DllCall("SelectObject", "ptr", pDC, "ptr", hBM, "ptr")


DllCall("BitBlt", "ptr", pDC, "int", 0, "int", 0, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr", hDC, "int", 0, "int", 0, "uint", 0x00CC0020|0x40000000) ; SourceCopy | CaptureBlt
a := a_tickcount
loop % A_ScreenHeight
{
   A_IndexY := A_Index-1
   loop % A_ScreenWidth
      NumGet(Scan+0, (A_Index-1)*4 + A_IndexY*Stride, "uint")
}
msgbox % a_tickcount - a


hBM := DllCall("CreateCompatibleBitmap", "ptr", hDC, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr")
oBM := DllCall("SelectObject", "ptr", pDC, "ptr", hBM, "ptr")
VarSetCapacity(bi, 40, 0)
NumPut(40, bi, 0, "int")
NumPut(A_ScreenWidth, bi, 4, "int")
NumPut(-A_ScreenHeight, bi, 8, "int")
NumPut(1, bi, 12, "short")
NumPut(bpp:=32, bi, 14, "short")
Stride:=((A_ScreenWidth*bpp+31)//32)*4

VarSetCapacity(bits, A_ScreenWidth*A_ScreenHeight*4, 0)
DllCall("BitBlt", "ptr", pDC, "int", 0, "int", 0, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr", hDC, "int", 0, "int", 0, "uint", 0x00CC0020|0x40000000) ; SourceCopy | CaptureBlt
DllCall("GetDIBits", "ptr", pDC, "ptr", hBM, "int", 0, "int", A_ScreenHeight, "ptr", &bits, "ptr", &bi, "int", 0)
Scan := &bits
a := a_tickcount
loop % A_ScreenHeight
{
   A_IndexY := A_Index-1
   loop % A_ScreenWidth
      NumGet(Scan+0, (A_Index-1)*4 + A_IndexY*Stride, "uint")
}
msgbox % a_tickcount - a


hBM := DllCall("CreateCompatibleBitmap", "ptr", hDC, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr")
oBM := DllCall("SelectObject", "ptr", pDC, "ptr", hBM, "ptr")
VarSetCapacity(Rect, 16, 0)
NumPut(A_ScreenWidth, Rect, 8, "uint")
NumPut(A_ScreenHeight, Rect, 12, "uint")

DllCall("BitBlt", "ptr", pDC, "int", 0, "int", 0, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr", hDC, "int", 0, "int", 0, "uint", 0x00CC0020|0x40000000) ; SourceCopy | CaptureBlt
DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", "ptr", hBM, "ptr", 0, "ptr*", pBitmap)
VarSetCapacity(BitmapData, 16+2*A_PtrSize, 0)
DllCall("gdiplus\GdipBitmapLockBits", "ptr", pBitmap, "ptr", &Rect, "uint", ReadWrite := 3, "int", Format32bppArgb := 2498570, "ptr", &BitmapData)
Stride := NumGet(BitmapData, 8, "int")
Scan := NumGet(BitmapData, 16, "ptr")
a := a_tickcount
loop % A_ScreenHeight
{
   A_IndexY := A_Index-1
   loop % A_ScreenWidth
      NumGet(Scan+0, (A_Index-1)*4 + A_IndexY*Stride, "uint")
}
msgbox % a_tickcount - a
DllCall("gdiplus\GdipBitmapUnlockBits", "ptr", pBitmap, "ptr", &BitmapData)
DllCall("gdiplus\GdipDisposeImage", "ptr", pBitmap)

Можно предложить ему туда добавить.

Попробуй.

serzh82saratov пишет:

Кстати не в курсе как у него дела со второй версией, стабильный релиз ещё не планируется?

Не знаю.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-29T08:21:57Z

Malcev пишет:

Но только вряд ли lexikosa это заинтересует, так как он погряз в ahk2.

Можно предложить ему туда добавить.
Кстати не в курсе как у него дела со второй версией, стабильный релиз ещё не планируется?

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-29T08:08:58Z

А метод получения снимка может как то влиять на скорость поиска в нём?

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-28T02:34:07Z

Кстати из gdi/gdi+ самый быстрый вариант получать scan через CreateDIBSection (до 1.5 раз быстрее, чем GetDIBits и до 2 раз, чем gdi+ lockbits).

setbatchlines -1
DllCall("LoadLibrary", "str", "gdiplus")
VarSetCapacity(si, 8+2*A_PtrSize, 0)
NumPut(0x1, si, "uint")
DllCall("gdiplus\GdiplusStartup", "ptr*", pToken, "ptr", &si, "ptr", 0)
hDC := DllCall("GetDC", "ptr", 0, "ptr")
pDC := DllCall("CreateCompatibleDC", "ptr", hDC, "ptr")
VarSetCapacity(bi, 40, 0)
NumPut(40, bi, 0, "int")
NumPut(A_ScreenWidth, bi, 4, "int")
NumPut(A_ScreenHeight, bi, 8, "int")
NumPut(1, bi, 12, "short")
NumPut(bpp:=32, bi, 14, "short")
hBM := DllCall("CreateDIBSection", "ptr", pDC, "ptr", &bi, "int", 0, "ptr*", Scan, "int", 0, "int", 0, "ptr")
Stride:=((A_ScreenWidth*bpp+31)//32)*4
oBM := DllCall("SelectObject", "ptr", pDC, "ptr", hBM, "ptr")

a := a_tickcount
loop 100
   DllCall("BitBlt", "ptr", pDC, "int", 0, "int", 0, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr", hDC, "int", 0, "int", 0, "uint", 0x00CC0020|0x40000000) ; SourceCopy | CaptureBlt
msgbox % a_tickcount - a


hBM := DllCall("CreateCompatibleBitmap", "ptr", hDC, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr")
oBM := DllCall("SelectObject", "ptr", pDC, "ptr", hBM, "ptr")
VarSetCapacity(bi, 40, 0)
NumPut(40, bi, 0, "int")
NumPut(A_ScreenWidth, bi, 4, "int")
NumPut(-A_ScreenHeight, bi, 8, "int")
NumPut(1, bi, 12, "short")
NumPut(bpp:=32, bi, 14, "short")
Stride:=((A_ScreenWidth*bpp+31)//32)*4

a := a_tickcount
loop 100
{
   VarSetCapacity(bits, A_ScreenWidth*A_ScreenHeight*4, 0)
   DllCall("BitBlt", "ptr", pDC, "int", 0, "int", 0, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr", hDC, "int", 0, "int", 0, "uint", 0x00CC0020|0x40000000) ; SourceCopy | CaptureBlt
   DllCall("GetDIBits", "ptr", pDC, "ptr", hBM, "int", 0, "int", A_ScreenHeight, "ptr", &bits, "ptr", &bi, "int", 0)
   Scan := &bits
}
msgbox % a_tickcount - a


hBM := DllCall("CreateCompatibleBitmap", "ptr", hDC, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr")
oBM := DllCall("SelectObject", "ptr", pDC, "ptr", hBM, "ptr")
VarSetCapacity(Rect, 16, 0)
NumPut(A_ScreenWidth, Rect, 8, "uint")
NumPut(A_ScreenHeight, Rect, 12, "uint")

a := a_tickcount
loop 100
{
   DllCall("BitBlt", "ptr", pDC, "int", 0, "int", 0, "int", A_ScreenWidth, "int", A_ScreenHeight, "ptr", hDC, "int", 0, "int", 0, "uint", 0x00CC0020|0x40000000) ; SourceCopy | CaptureBlt
   DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", "ptr", hBM, "ptr", 0, "ptr*", pBitmap)
   VarSetCapacity(BitmapData, 16+2*A_PtrSize, 0)
   DllCall("gdiplus\GdipBitmapLockBits", "ptr", pBitmap, "ptr", &Rect, "uint", ReadWrite := 3, "int", Format32bppArgb := 2498570, "ptr", &BitmapData)
   Stride := NumGet(BitmapData, 8, "int")
   Scan := NumGet(BitmapData, 16, "ptr")
   DllCall("gdiplus\GdipBitmapUnlockBits", "ptr", pBitmap, "ptr", &BitmapData)
   DllCall("gdiplus\GdipDisposeImage", "ptr", pBitmap)
}
msgbox % a_tickcount - a

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-26T13:09:11Z

Можно было бы много чего добавить, например получение конкретных окон, а не как сейчас getdc(0).
Но только вряд ли lexikosa это заинтересует, так как он погряз в ahk2.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-26T11:55:24Z

Добавить бы туда параметр поиска нескольких совпадений, и нескольких картинок. Если file массив, то искать каждое со своими параметрами в одном снимке. Думаю такое совсем не сложно было сделать из коробки.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-26T00:02:18Z

ImageSearch как-раз через GDIский GetDIBits и работает.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-25T23:28:18Z

C GDI понятно что вариантов много.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-25T22:37:19Z

serzh82saratov пишет:

По идее должно работать быстрее чем 25 раз pixelgetcolor (при худшем варианте если искомое находится в последней ячейке).

Если нужна скорость, то думаю, самое быстрое будет получать 25 раз цвет через lockbits.

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-25T21:25:17Z

serzh82saratov
Хм,а установил я его в 6 месяце.
А так большое вам спасибо ,вроде все заработало )

Re: AHK: Поиск 3-х одинаковых картинок и тык по ним

2020-10-25T21:02:33Z

kdn14062000 пишет:

Да ну нафиг,это реально было из-за версии.А моя версия вышла 3- 4 месяца назад(

Не месяца, а 4+ года.