It is used to find text or images on the screen.
Hope you like it !
Detailed usage can refer to:
1、The introduction by ed1chandler.
2、The introduction by c4p (latest).
Code: Select all
;/*
;===========================================
; FindText - Capture screen image into text and then find it
; https://autohotkey.com/boards/viewtopic.php?f=6&t=17834
;
; Author : FeiYue
; Version : 7.5
; Date : 2020-04-13
;
; Usage:
; 1. Capture the image to text string.
; 2. Test find the text string on full Screen.
; 3. When test is successful, you may copy the code
; and paste it into your own script.
; Note: Copy the "FindText()" function and the following
; functions and paste it into your own script Just once.
; 4. The more recommended way is to save the script as
; "FindText.ahk" and copy it to the "Lib" subdirectory
; of AHK program, instead of copying the "FindText()"
; function and the following functions, add a line to
; the beginning of your script: #Include <FindText>
;
; Note:
; After upgrading to v7.0, the search scope using
; the upper left corner coordinates (X1, Y1)
; and lower right corner coordinates (X2, Y2), similar to ImageSearch.
; This makes it easier for novices to understand and use.
;
;===========================================
; Introduction of function parameters:
;
; returnArray := FindText(
; X1 --> the search scope's upper left corner X coordinates
; , Y1 --> the search scope's upper left corner Y coordinates
; , X2 --> the search scope's lower right corner X coordinates
; , Y2 --> the search scope's lower right corner Y coordinates
; , err1 --> Fault tolerance percentage of text (0.1=10%)
; , err0 --> Fault tolerance percentage of background (0.1=10%)
; , Text --> can be a lot of text parsed into images, separated by "|"
; , ScreenShot --> if the value is 0, the last screenshot will be used
; , FindAll --> if the value is 0, Just find one result and return
; , JoinText --> if the value is 1, Join all Text for combination lookup
; , offsetX --> Set the max text offset for combination lookup
; , offsetY --> Set the max text offset for combination lookup
; )
;
; The function returns a second-order array containing
; all lookup results, Any result is an associative array
; {1:X, 2:Y, 3:W, 4:H, x:X+W//2, y:Y+H//2, id:Comment}
; if no image is found, the function returns 0.
;
; If the return variable is set to "ok", ok.1 is the first result found.
; Where ok.1.1 is the X coordinate of the upper left corner of the found image,
; and ok.1.2 is the Y coordinate of the upper left corner of the found image,
; ok.1.3 is the width of the found image, and ok.1.4 is the height of the found image,
; ok.1.x <==> ok.1.1+ok.1.3//2 ( is the Center X coordinate of the found image ),
; ok.1.y <==> ok.1.2+ok.1.4//2 ( is the Center Y coordinate of the found image ),
; ok.1.id is the comment text, which is included in the <> of its parameter.
; ok.1.x can also be written as ok[1].x, which supports variables. (eg: ok[A_Index].x)
;
; All coordinates are relative to Screen, colors are in RGB format,
; and combination lookup must use uniform color mode
;===========================================
;*/
if (!A_IsCompiled and A_LineFile=A_ScriptFullPath)
FindText_Gui("Show")
FindText_Gui(cmd, arg1:="")
{
local
static
local lls, bch, cri
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
static init:=0
if (!init)
{
ListLines, %lls%
static FindText_FuncBind1:=Func("FindText_Gui").Bind("Show")
bch:=A_BatchLines, cri:=A_IsCritical
Critical
init:=1, ww:=35, hh:=12, WindowColor:="0xDDEEFF"
#NoEnv
Menu, Tray, Add
Menu, Tray, Add, FindText, %FindText_FuncBind1%
if (!A_IsCompiled and A_LineFile=A_ScriptFullPath)
{
Menu, Tray, Default, FindText
Menu, Tray, Click, 1
Menu, Tray, Icon, Shell32.dll, 23
}
FindText_Gui("MakeCaptureWindow")
FindText_Gui("MakeSubPicWindow")
FindText_Gui("MakeMainWindow")
OnMessage(0x100, Func("FindText_Gui").Bind("EditEvents1")) ; WM_KEYDOWN
OnMessage(0x201, Func("FindText_Gui").Bind("EditEvents2")) ; WM_LBUTTONDOWN
OnMessage(0x200, Func("FindText_Gui").Bind("ShowToolTip")) ; WM_MOUSEMOVE
Critical, %cri%
SetBatchLines, %bch%
}
if (cmd="Show")
{
ListLines, %lls%
Gui, FindText_Main: Show, Center
GuiControl, FindText_Main: Focus, scr
return
;---------------------
FindText_Run:
Critical
FindText_Gui(Trim(A_GuiControl))
FindText_RButton_Off:
return
}
if (cmd="MakeCaptureWindow")
{
ListLines, %lls%
Gui, FindText_Capture: New
Gui, +AlwaysOnTop -DPIScale +HwndCapture_ID
Gui, Margin, 15, 15
Gui, Color, %WindowColor%
Gui, Font, s12, Verdana
Gui, Add, Text, xm w855 h315 +HwndhPic
Gui, Add, Slider, ym h315 vMySlider2 gFindText_Run
+Center Page20 Line20 NoTicks AltSubmit +Vertical
Gui, Add, Slider, xm w855 vMySlider1 gFindText_Run
+Center Page20 Line20 NoTicks AltSubmit
GuiControlGet, p, Pos, %hPic%
PicW:=Round(pW), PicH:=Round(pH), MySlider1:=MySlider2:=0
Gui, Add, Button, xm+125 w50 vRepU gFindText_Run, -U
Gui, Add, Button, x+0 wp vCutU gFindText_Run, U
Gui, Add, Button, x+0 wp vCutU3 gFindText_Run, U3
;--------------
Gui, Add, Text, x+50 yp+3 Section, Gray
Gui, Add, Edit, x+3 yp-3 w60 vSelGray ReadOnly
Gui, Add, Text, x+15 ys, Color
Gui, Add, Edit, x+3 yp-3 w120 vSelColor ReadOnly
Gui, Add, Text, x+15 ys, R
Gui, Add, Edit, x+3 yp-3 w60 vSelR ReadOnly
Gui, Add, Text, x+5 ys, G
Gui, Add, Edit, x+3 yp-3 w60 vSelG ReadOnly
Gui, Add, Text, x+5 ys, B
Gui, Add, Edit, x+3 yp-3 w60 vSelB ReadOnly
;--------------
Gui, Add, Button, xm w50 vRepL gFindText_Run, -L
Gui, Add, Button, x+0 wp vCutL gFindText_Run, L
Gui, Add, Button, x+0 wp vCutL3 gFindText_Run, L3
Gui, Add, Button, x+15 w70 vAuto gFindText_Run, Auto
Gui, Add, Button, x+15 w50 vRepR gFindText_Run, -R
Gui, Add, Button, x+0 wp vCutR gFindText_Run, R
Gui, Add, Button, x+0 wp vCutR3 gFindText_Run Section, R3
Gui, Add, Button, xm+125 w50 vRepD gFindText_Run, -D
Gui, Add, Button, x+0 wp vCutD gFindText_Run, D
Gui, Add, Button, x+0 wp vCutD3 gFindText_Run, D3
;--------------
Gui, Add, Tab3, ys-8 -Wrap, Gray|GrayDiff|Color|ColorPos|ColorDiff
Gui, Tab, 1
Gui, Add, Text, x+15 y+15, Gray Threshold
Gui, Add, Edit, x+15 w100 vThreshold
Gui, Add, Button, x+15 yp-3 vGray2Two gFindText_Run, Gray2Two
Gui, Tab, 2
Gui, Add, Text, x+15 y+15, Gray Difference
Gui, Add, Edit, x+15 w100 vGrayDiff, 50
Gui, Add, Button, x+15 yp-3 vGrayDiff2Two gFindText_Run, GrayDiff2Two
Gui, Tab, 3
Gui, Add, Text, x+15 y+15, Similarity 0
Gui, Add, Slider, x+0 w100 vSimilar1 gFindText_Run
+Center Page1 NoTicks ToolTip, 100
Gui, Add, Text, x+0, 100
Gui, Add, Button, x+15 yp-3 vColor2Two gFindText_Run, Color2Two
Gui, Tab, 4
Gui, Add, Text, x+15 y+15, Similarity 0
Gui, Add, Slider, x+0 w100 vSimilar2 gFindText_Run
+Center Page1 NoTicks ToolTip, 100
Gui, Add, Text, x+0, 100
Gui, Add, Button, x+15 yp-3 vColorPos2Two gFindText_Run, ColorPos2Two
Gui, Tab, 5
Gui, Add, Text, x+10 y+15, R
Gui, Add, Edit, x+2 w70 vDiffR Limit3
Gui, Add, UpDown, vdR Range0-255
Gui, Add, Text, x+5, G
Gui, Add, Edit, x+2 w70 vDiffG Limit3
Gui, Add, UpDown, vdG Range0-255
Gui, Add, Text, x+5, B
Gui, Add, Edit, x+2 w70 vDiffB Limit3
Gui, Add, UpDown, vdB Range0-255
Gui, Add, Button, x+5 yp-3 vColorDiff2Two gFindText_Run, ColorDiff2Two
Gui, Tab
;--------------
Gui, Add, Button, xm vReset gFindText_Run, Reset
Gui, Add, Checkbox, x+15 yp+5 vModify gFindText_Run, Modify
Gui, Add, Text, x+30, Comment
Gui, Add, Edit, x+5 yp-2 w150 vComment
Gui, Add, Button, x+30 yp-3 vSplitAdd gFindText_Run, SplitAdd
Gui, Add, Button, x+10 vAllAdd gFindText_Run, AllAdd
Gui, Add, Button, x+10 w80 vButtonOK gFindText_Run, OK
Gui, Add, Button, x+10 wp vClose gCancel, Close
Gui, Add, Button, xm vBind0 gFindText_Run, BindWindow1
Gui, Add, Button, x+15 vBind1 gFindText_Run, BindWindow1+
Gui, Add, Button, x+15 vBind2 gFindText_Run, BindWindow2
Gui, Add, Button, x+15 vBind3 gFindText_Run, BindWindow2+
Gui, Add, Button, x+15 vBind4 gFindText_Run, BindWindow3
Gui, Show, Hide, Capture Image To Text
return
}
if (cmd="MakeSubPicWindow")
{
ListLines, %lls%
Gui, FindText_SubPic: New
Gui, +AlwaysOnTop -Caption +ToolWindow -DPIScale +Parent%hPic%
Gui, Margin, 0, 0
Gui, Color, %WindowColor%
Gui, -Theme
nW:=2*ww+1, nH:=2*hh+1, C_:=[], w:=11
Loop, % nW*(nH+1)
{
i:=A_Index, j:=i=1 ? "x0 y0" : Mod(i,nW)=1 ? "x0 y+1" : "x+1"
j.=i>nW*nH ? " cRed BackgroundFFFFAA" : ""
Gui, Add, Progress, w%w% h%w% %j% +Hwndid
Control, ExStyle, -0x20000,, ahk_id %id%
C_[i]:=id
}
Gui, +Theme
GuiControlGet, p, Pos, %id%
SubPicW:=Round(pX+pW), SubPicH:=Round(pY+pH)
Gui, Show, NA x0 y0 w%SubPicW% h%SubPicH%, SubPic
i:=(SubPicW>PicW), j:=(SubPicH>PicH)
Gui, FindText_Capture: Default
GuiControl, Enable%i%, MySlider1
GuiControl, Enable%j%, MySlider2
GuiControl,, MySlider1, % MySlider1:=0
GuiControl,, MySlider2, % MySlider2:=0
return
}
if (cmd="MakeMainWindow")
{
ListLines, %lls%
Gui, FindText_Main: New
Gui, +AlwaysOnTop -DPIScale
Gui, Margin, 15, 15
Gui, Color, %WindowColor%
Gui, Font, s12 cBlack, Verdana
Gui, Add, Text, xm, Hotkey
Gui, Add, Edit, x+5 w200 vNowHotkey ReadOnly
Gui, Add, Hotkey, x+5 w200 vSetHotkey1
Gui, Add, DDL, x+5 w180 vSetHotkey2
, % "||F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|MButton"
. "|ScrollLock|CapsLock|Ins|Esc|BS|Del|Tab|Home|End|PgUp|PgDn"
. "|NumpadDot|NumpadSub|NumpadAdd|NumpadDiv|NumpadMult"
Gui, Add, GroupBox, xm y+0 w280 h55 vMyGroup
Gui, Add, Text, xp+15 yp+20 Section, % "Width: "
Gui, Add, Text, x+0 w60, %ww%
Gui, Add, UpDown, vMyww Range1-50, %ww%
Gui, Add, Text, x+15 ys, % "Height: "
Gui, Add, Text, x+0 w60, %hh%
Gui, Add, UpDown, vMyhh Range1-40, %hh%
GuiControlGet, p, Pos, Myhh
GuiControl, Move, MyGroup, % "w" (pX+pW) " h" (pH+30)
x:=pX+pW+15*2
Gui, Add, Button, x%x% ys-8 w150 vApply gFindText_Run, Apply
Gui, Add, Checkbox, x+15 ys Checked vAddFunc, Add FindText()
Gui, Font, s6 bold, Verdana
Gui, Add, Edit, xm w720 r20 vMyPic -Wrap
Gui, Font, s12 norm, Verdana
Gui, Add, Button, w240 vCapture gFindText_Run, Capture
Gui, Add, Button, x+0 wp vTest gFindText_Run, Test
Gui, Add, Button, x+0 wp vCopy gFindText_Run Section, Copy
Gui, Add, Button, xm y+0 wp vCaptureS gFindText_Run, CaptureS
Gui, Add, Button, x+0 wp vGetRange gFindText_Run, GetRange
Gui, Add, Button, x+0 wp vTestClip gFindText_Run, TestClipboard
Gui, Font, s12 cBlue, Verdana
Gui, Add, Edit, xm w720 h350 vscr Hwndhscr -Wrap HScroll
Gui, Show, Hide, Capture Image To Text And Find Text Tool
return
}
if (cmd="Capture"||cmd="CaptureS"||cmd="Capture_NoGui"||cmd="CaptureS_NoGui")
{
ListLines, %lls%
Critical
if !InStr(cmd,"NoGui")
{
Gui, FindText_Main: Default
Gui, +LastFound
WinMinimize
Gui, Hide
}
ShowScreenShot:=InStr(cmd,"CaptureS")
if (ShowScreenShot)
FindText_Gui("ShowScreenShot",1)
;----------------------
Hotkey, $*RButton, FindText_RButton_Off, On
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
CoordMode, Mouse
KeyWait, RButton
KeyWait, Ctrl
w:=ww, h:=hh, oldx:=oldy:=""
if InStr(cmd,"NoGui")
w:=20, h:=8
Loop
{
Sleep, 50
MouseGetPos, x, y, Bind_ID
if InStr(cmd,"NoGui")
{
w:=x<=1 ? w-1 : x>=A_ScreenWidth-2 ? w+1:w
h:=y<=1 ? h-1 : y>=A_ScreenHeight-2 ? h+1:h
}
FindText_Gui("Mini_Show")
if (oldx=x and oldy=y)
Continue
oldx:=x, oldy:=y
ToolTip, % "The Capture Position : " x "," y
. "`nFirst click RButton to start capturing"
. "`nMove the mouse to avoid response"
. "`nSecond click RButton to end capture"
}
Until GetKeyState("RButton","P") or GetKeyState("Ctrl","P")
KeyWait, RButton
KeyWait, Ctrl
px:=x, py:=y, oldx:=oldy:=""
Loop
{
Sleep, 50
FindText_Gui("Mini_Show")
MouseGetPos, x1, y1
if (oldx=x1 and oldy=y1)
Continue
oldx:=x1, oldy:=y1
ToolTip, % "The Capture Position : " px "," py
. "`nFirst click RButton to start capturing"
. "`nMove the mouse to avoid response"
. "`nSecond click RButton to end capture"
}
Until GetKeyState("RButton","P") or GetKeyState("Ctrl","P")
KeyWait, RButton
KeyWait, Ctrl
ToolTip
FindText_Gui("Mini_Hide")
ListLines, %lls%
Hotkey, $*RButton, FindText_RButton_Off, Off
if (ShowScreenShot)
{
Gui, FindText_ScreenShot: +LastFoundExist
IfWinExist
{
WinGetPos, x, y
FindText_GetBitsFromScreen(0,0,0,0,0,x1,y1)
px-=Round(x-x1), py-=Round(y-y1)
}
FindText_Gui("ShowScreenShot",0)
}
if InStr(cmd,"NoGui")
return [px,py,w,h]
;-----------------------
FindText_Gui("getcors", !ShowScreenShot)
FindText_Gui("Reset")
Gui, FindText_Capture: Default
k:=nW*nH+1
Loop, % nW
GuiControl,, % C_[k++], 0
Loop, 6
GuiControl,, Edit%A_Index%
GuiControl,, Modify, % Modify:=0
GuiControl,, GrayDiff, 50
GuiControl, Focus, Gray2Two
GuiControl, +Default, Gray2Two
Gui, Show, Center
Event:=Result:=""
DetectHiddenWindows, Off
Critical, Off
WinWaitClose, ahk_id %Capture_ID%
Critical
Gui, FindText_Main: Default
;--------------------------------
if (cors.bind!="")
{
WinGetTitle, tt, ahk_id %Bind_ID%
WinGetClass, tc, ahk_id %Bind_ID%
tt:=Trim(SubStr(tt,1,30) (tc ? " ahk_class " tc:""))
tt:=StrReplace(RegExReplace(tt,"[;``]","``$0"),"""","""""")
Result:="`nSetTitleMatchMode, 2`nid:=WinExist(""" tt """)"
. "`nFindText_BindWindow(id" (cors.bind=0 ? "":"," cors.bind)
. ") `; Unbind Window using FindText_BindWindow(0)`n`n" Result
}
if (Event="ButtonOK")
{
if (!A_IsCompiled)
{
FileRead, s, %A_LineFile%
s:=SubStr(s, s~="i)\n[;=]+ Copy The")
}
else s:=""
GuiControl,, scr, % Result "`n" s
GuiControl,, MyPic, % Trim(FindText_ASCII(Result),"`n")
Result:=s:=""
}
else if (Event="SplitAdd") or (Event="AllAdd")
{
GuiControlGet, s,, scr
i:=j:=0, r:="\|<[^>\n]*>[^$\n]+\$\d+\.[\w+/]+"
While j:=RegExMatch(s,r,"",j+1)
i:=InStr(s,"`n",0,j)
GuiControl,, scr, % SubStr(s,1,i) . Result . SubStr(s,i+1)
GuiControl,, MyPic, % Trim(FindText_ASCII(Result),"`n")
Result:=s:=""
}
;----------------------
Gui, Show
GuiControl, Focus, scr
return
}
if (cmd="ShowScreenShot")
{
ListLines, %lls%
local bits, zx, zy, zw, zh, bi, hDC, mDC, oBM, hBrush, oBrush
static hBM:="", Ptr:=A_PtrSize ? "UPtr" : "UInt"
Gui, FindText_ScreenShot: Destroy
if (hBM)
DllCall("DeleteObject",Ptr,hBM), hBM:=""
bits:=FindText_GetBitsFromScreen(0,0,0,0,0,zx,zy,zw,zh)
if (!arg1 or !bits.1 or zw<1 or zh<1)
return
;---------------------
VarSetCapacity(bi, 40, 0), NumPut(40, bi, 0, "int")
NumPut(zw, bi, 4, "int"), NumPut(-zh, bi, 8, "int")
NumPut(1, bi, 12, "short"), NumPut(bpp:=32, bi, 14, "short")
if (hBM:=DllCall("CreateDIBSection", Ptr,0, Ptr,&bi
, "int",0, Ptr "*",ppvBits:=0, Ptr,0, "int",0, Ptr))
DllCall("RtlMoveMemory",Ptr,ppvBits,Ptr,bits.1,Ptr,bits.2*zh)
;---------------------
win:=DllCall("GetDesktopWindow", Ptr)
hDC:=DllCall("GetWindowDC", Ptr,win, Ptr)
mDC:=DllCall("CreateCompatibleDC", Ptr,hDC, Ptr)
oBM:=DllCall("SelectObject", Ptr,mDC, Ptr,hBM, Ptr)
hBrush:=DllCall("CreateSolidBrush", "uint",0xFFFFFF, Ptr)
oBrush:=DllCall("SelectObject", Ptr,mDC, Ptr,hBrush, Ptr)
DllCall("BitBlt", Ptr,mDC, "int",0, "int",0, "int",zw, "int",zh
, Ptr,mDC, "int",0, "int",0, "uint",0xC000CA)
DllCall("SelectObject", Ptr,mDC, Ptr,oBrush)
DllCall("DeleteObject", Ptr,hBrush)
DllCall("SelectObject", Ptr,mDC, Ptr,oBM)
DllCall("DeleteDC", Ptr,mDC)
DllCall("ReleaseDC", Ptr,win, Ptr,hDC)
;---------------------
Gui, FindText_ScreenShot: +AlwaysOnTop -Caption +ToolWindow -DPIScale +E0x08000000
Gui, FindText_ScreenShot: Margin, 0, 0
Gui, FindText_ScreenShot: Add, Picture, x0 y0 w%zw% h%zh% +Hwndid +0xE
SendMessage, 0x172, 0, hBM,, ahk_id %id%
Gui, FindText_ScreenShot: Show, NA x%zx% y%zy% w%zw% h%zh%, Show ScreenShot
return
}
if (cmd="Mini_Show")
{
ListLines, %lls%
Gui, FindText_Mini_4: +LastFoundExist
IfWinNotExist
{
Loop, 4
{
i:=A_Index
Gui, FindText_Mini_%i%: +AlwaysOnTop +ToolWindow -Caption -DPIScale +E0x08000000
Gui, FindText_Mini_%i%: Show, Hide, Mini
}
}
d:=2, w:=w<0 ? 0:w, h:=h<0 ? 0:h, r:=A_MSec<500 ? "Red":"Blue"
Loop, 4
{
i:=A_Index
x1:=Floor(i=3 ? x+w+1 : x-w-d)
y1:=Floor(i=4 ? y+h+1 : y-h-d)
w1:=Floor(i=1 or i=3 ? d : 2*(w+d)+1)
h1:=Floor(i=2 or i=4 ? d : 2*(h+d)+1)
Gui, FindText_Mini_%i%: Color, %r%
Gui, FindText_Mini_%i%: Show, NA x%x1% y%y1% w%w1% h%h1%
}
return
}
if (cmd="Mini_Hide")
{
ListLines, %lls%
Gui, FindText_Mini_4: +Hwndid
Loop, 4
Gui, FindText_Mini_%A_Index%: Destroy
WinWaitClose, ahk_id %id%,, 3
return
}
if (cmd="getcors")
{
ListLines, %lls%
FindText_xywh2xywh(px-ww,py-hh,2*ww+1,2*hh+1,x,y,w,h)
if (w<1 or h<1)
return
SetBatchLines, % (bch:=A_BatchLines)?"-1":"-1"
if (arg1)
FindText_ScreenShot()
cors:=[], k:=0
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
Loop, % 2*hh+1
{
j:=py-hh+A_Index-1
Loop, % 2*ww+1
i:=px-ww+A_Index-1, cors[++k]:=FindText_ScreenShot_GetColor(i,j)
}
ListLines, %lls%
cors.CutLeft:=Abs(px-ww-x)
cors.CutRight:=Abs(px+ww-(x+w-1))
cors.CutUp:=Abs(py-hh-y)
cors.CutDown:=Abs(py+hh-(y+h-1))
SetBatchLines, %bch%
return
}
if (cmd="GetRange")
{
ListLines, %lls%
Gui, FindText_Main: Hide
;---------------------
Gui, FindText_GetRange: New
Gui, +LastFound +AlWaysOnTop +ToolWindow -Caption -DPIScale +E0x08000000
Gui, Color, White
WinSet, Transparent, 10
FindText_GetBitsFromScreen(0,0,0,0,0,x,y,w,h)
Gui, Show, NA x%x% y%y% w%w% h%h%, GetRange
;---------------------
Hotkey, $*LButton, FindText_RButton_Off, On
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
CoordMode, Mouse
KeyWait, LButton
KeyWait, Ctrl
oldx:=oldy:=""
Loop
{
Sleep, 50
MouseGetPos, x, y
if (oldx=x and oldy=y)
Continue
oldx:=x, oldy:=y
ToolTip, % "Please drag a range with the LButton"
. "`nCoordinates are copied to clipboard"
}
Until GetKeyState("LButton","P") or GetKeyState("Ctrl","P")
px:=x, py:=y, oldx:=oldy:=""
Loop
{
Sleep, 50
MouseGetPos, x, y
w:=Abs(px-x)//2, h:=Abs(py-y)//2, x:=(px+x)//2, y:=(py+y)//2
FindText_Gui("Mini_Show")
if (oldx=x and oldy=y)
Continue
oldx:=x, oldy:=y
ToolTip, % "Please drag a range with the LButton"
. "`nCoordinates are copied to clipboard"
}
Until !(GetKeyState("LButton","P") or GetKeyState("Ctrl","P"))
ToolTip
FindText_Gui("Mini_Hide")
ListLines, %lls%
Hotkey, $*LButton, FindText_RButton_Off, Off
Gui, FindText_GetRange: Destroy
Clipboard:=p:=(x-w) ", " (y-h) ", " (x+w) ", " (y+h)
;---------------------
Gui, FindText_Main: Default
GuiControlGet, s,, scr
if RegExMatch(s, "i)(=\s*FindText\()([+\-\d\s]*,){4}", r)
{
s:=StrReplace(s, r, r1 . p ",", 0, 1)
GuiControl,, scr, %s%
}
Gui, Show
return
}
if (cmd="Test"||cmd="TestClip")
{
ListLines, %lls%
Gui, FindText_Main: Default
Gui, +LastFound
WinMinimize
Gui, Hide
DetectHiddenWindows, Off
WinWaitClose, % "ahk_id " WinExist()
Sleep, 100
;----------------------
if (cmd="Test")
GuiControlGet, s,, scr
else
s:=Clipboard
if (!A_IsCompiled) and InStr(s,"MCode(") and (cmd="Test")
{
s:="`n#NoEnv`nMenu, Tray, Click, 1`n"
. "Gui, FindText_ok_: Show, Hide, FindText_ok_`n"
. s "`nExitApp`n"
FindText_Gui("Exec")
DetectHiddenWindows, On
WinWait, FindText_ok_ ahk_class AutoHotkeyGUI,, 3
if (!ErrorLevel)
WinWaitClose,,, 30
}
else
{
Gui, +OwnDialogs
t:=A_TickCount, n:=150000
, RegExMatch(s,"\|<[^>\n]*>[^$\n]+\$\d+\.[\w+/]+",v)
, ok:=FindText(-n, -n, n, n, 0, 0, v)
, X:=ok.1.x, Y:=ok.1.y, Comment:=ok.1.id
MsgBox, 4096, Tip, % "Found :`t" Round(ok.MaxIndex()) "`n`n"
. "Time :`t" (A_TickCount-t) " ms`n`n"
. "Pos :`t" X ", " Y "`n`n"
. "Result:`t" (ok ? "Success ! " Comment : "Failed !"), 3
for i,v in ok
if (i<=2)
FindText_MouseTip(ok[i].x, ok[i].y)
ok:=""
}
;----------------------
Gui, Show
GuiControl, Focus, scr
return
}
if (cmd="Exec")
{
ListLines, %lls%
Ahk:=A_IsCompiled ? A_ScriptDir "\AutoHotkey.exe":A_AhkPath
s:=RegExReplace(s, "\R", "`r`n")
Try
{
shell:=ComObjCreate("WScript.Shell")
oExec:=shell.Exec(Ahk " /f /ErrorStdOut *")
oExec.StdIn.Write(s)
oExec.StdIn.Close(), oExec:="", shell:=""
}
catch
{
f:=A_Temp "\~test1.tmp"
s:="`r`n FileDelete, " f "`r`n" s
FileDelete, %f%
FileAppend, %s%, %f%
Run, %Ahk% /f "%f%",, UseErrorLevel
}
return
}
if (cmd="Copy")
{
ListLines, %lls%
Gui, FindText_Main: Default
ControlGet, s, Selected,,, ahk_id %hscr%
if (s="")
{
GuiControlGet, s,, scr
GuiControlGet, r,, AddFunc
if (r != 1)
s:=RegExReplace(s,"\n\K[\s;=]+ Copy The[\s\S]*")
}
Clipboard:=RegExReplace(s,"\R","`r`n")
;----------------------
Gui, Hide
Sleep, 100
Gui, Show
GuiControl, Focus, scr
return
}
if (cmd="Apply")
{
ListLines, %lls%
static FindText_FuncBind2:=Func("FindText_Gui").Bind("ScreenShot")
Gui, FindText_Main: Default
GuiControlGet, NowHotkey
GuiControlGet, SetHotkey1
GuiControlGet, SetHotkey2
if (NowHotkey!="")
Hotkey, *%NowHotkey%,, Off UseErrorLevel
k:=SetHotkey1!="" ? SetHotkey1 : SetHotkey2
if (k!="")
Hotkey, *%k%, %FindText_FuncBind2%, On UseErrorLevel
GuiControl,, NowHotkey, %k%
GuiControl,, SetHotkey1
GuiControl, Choose, SetHotkey2, 0
;------------------------
GuiControlGet, Myww
GuiControlGet, Myhh
if (Myww!=ww or Myhh!=hh)
{
Gui, Hide
ww:=Myww, hh:=Myhh, FindText_Gui("MakeSubPicWindow")
Gui, FindText_Main: Show, Center
}
return
}
if (cmd="ScreenShot")
{
ListLines, %lls%
Critical
FindText_ScreenShot()
Gui, FindText_Tip: New
; WS_EX_NOACTIVATE:=0x08000000, WS_EX_TRANSPARENT:=0x20
Gui, +LastFound +AlwaysOnTop +ToolWindow -Caption -DPIScale +E0x08000020
Gui, Color, Yellow
Gui, Font, cRed s48 bold
Gui, Add, Text,, Success
WinSet, Transparent, 200
Gui, Show, NA y0, ScreenShot Tip
Sleep, 1000
Gui, Destroy
return
}
if (cmd="Bind0"||cmd="Bind1"||cmd="Bind2"||cmd="Bind3"||cmd="Bind4")
{
ListLines, %lls%
Critical
FindText_BindWindow(Bind_ID, bind_mode:=SubStr(cmd,0))
Hotkey, $*RButton, FindText_RButton_Off, On
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
CoordMode, Mouse
KeyWait, RButton
KeyWait, Ctrl
oldx:=oldy:=""
Loop
{
Sleep, 50
MouseGetPos, x, y
if (oldx=x and oldy=y)
Continue
oldx:=x, oldy:=y
;---------------
px:=x, py:=y, FindText_Gui("getcors",1)
FindText_Gui("Reset")
ToolTip, % "The Capture Position : " x "," y
. "`nPerspective binding window"
. "`nRight click to finish capture"
}
Until GetKeyState("RButton","P") or GetKeyState("Ctrl","P")
KeyWait, RButton
KeyWait, Ctrl
ToolTip
ListLines, %lls%
Hotkey, $*RButton, FindText_RButton_Off, Off
FindText_BindWindow(0), cors.bind:=bind_mode
return
}
if (cmd="MySlider1"||cmd="MySlider2")
{
ListLines, %lls%
x:=SubPicW>PicW ? -(SubPicW-PicW)*MySlider1//100 : 0
y:=SubPicH>PicH ? -(SubPicH-PicH)*MySlider2//100 : 0
Gui, FindText_SubPic: Show, NA x%x% y%y%
return
}
if (cmd="Reset")
{
ListLines, %lls%
static ascii:=[], gray:=[], show:=[]
CutLeft:=CutRight:=CutUp:=CutDown:=k:=0, bg:=""
Loop, % nW*nH
{
show[++k]:=1, c:=cors[k]
gray[k]:=(((c>>16)&0xFF)*38+((c>>8)&0xFF)*75+(c&0xFF)*15)>>7
FindText_Gui("SetColor")
}
Loop, % cors.CutLeft
FindText_Gui("CutL")
Loop, % cors.CutRight
FindText_Gui("CutR")
Loop, % cors.CutUp
FindText_Gui("CutU")
Loop, % cors.CutDown
FindText_Gui("CutD")
return
}
if (cmd="SetColor")
{
ListLines, %lls%
c:=c="Black" ? 0x000000 : c="White" ? 0xFFFFFF
: ((c&0xFF)<<16)|(c&0xFF00)|((c&0xFF0000)>>16)
SendMessage, 0x2001, 0, c,, % "ahk_id " . C_[k]
return
}
if (cmd="RepColor")
{
ListLines, %lls%
show[k]:=1, c:=(bg="" ? cors[k] : ascii[k]
? "Black":"White"), FindText_Gui("SetColor")
return
}
if (cmd="CutColor")
{
ListLines, %lls%
show[k]:=0, c:=WindowColor, FindText_Gui("SetColor")
return
}
if (cmd="RepL")
{
ListLines, %lls%
if (CutLeft<=cors.CutLeft)
or (bg!="" and InStr(color,"**")
and CutLeft=cors.CutLeft+1)
return
k:=CutLeft-nW, CutLeft--
Loop, %nH%
k+=nW, (A_Index>CutUp and A_Index<nH+1-CutDown
? FindText_Gui("RepColor") : "")
return
}
if (cmd="CutL")
{
ListLines, %lls%
if (CutLeft+CutRight>=nW)
return
CutLeft++, k:=CutLeft-nW
Loop, %nH%
k+=nW, (A_Index>CutUp and A_Index<nH+1-CutDown
? FindText_Gui("CutColor") : "")
return
}
if (cmd="CutL3")
{
ListLines, %lls%
Loop, 3
FindText_Gui("CutL")
return
}
if (cmd="RepR")
{
ListLines, %lls%
if (CutRight<=cors.CutRight)
or (bg!="" and InStr(color,"**")
and CutRight=cors.CutRight+1)
return
k:=1-CutRight, CutRight--
Loop, %nH%
k+=nW, (A_Index>CutUp and A_Index<nH+1-CutDown
? FindText_Gui("RepColor") : "")
return
}
if (cmd="CutR")
{
ListLines, %lls%
if (CutLeft+CutRight>=nW)
return
CutRight++, k:=1-CutRight
Loop, %nH%
k+=nW, (A_Index>CutUp and A_Index<nH+1-CutDown
? FindText_Gui("CutColor") : "")
return
}
if (cmd="CutR3")
{
ListLines, %lls%
Loop, 3
FindText_Gui("CutR")
return
}
if (cmd="RepU")
{
ListLines, %lls%
if (CutUp<=cors.CutUp)
or (bg!="" and InStr(color,"**")
and CutUp=cors.CutUp+1)
return
k:=(CutUp-1)*nW, CutUp--
Loop, %nW%
k++, (A_Index>CutLeft and A_Index<nW+1-CutRight
? FindText_Gui("RepColor") : "")
return
}
if (cmd="CutU")
{
ListLines, %lls%
if (CutUp+CutDown>=nH)
return
CutUp++, k:=(CutUp-1)*nW
Loop, %nW%
k++, (A_Index>CutLeft and A_Index<nW+1-CutRight
? FindText_Gui("CutColor") : "")
return
}
if (cmd="CutU3")
{
ListLines, %lls%
Loop, 3
FindText_Gui("CutU")
return
}
if (cmd="RepD")
{
ListLines, %lls%
if (CutDown<=cors.CutDown)
or (bg!="" and InStr(color,"**")
and CutDown=cors.CutDown+1)
return
k:=(nH-CutDown)*nW, CutDown--
Loop, %nW%
k++, (A_Index>CutLeft and A_Index<nW+1-CutRight
? FindText_Gui("RepColor") : "")
return
}
if (cmd="CutD")
{
ListLines, %lls%
if (CutUp+CutDown>=nH)
return
CutDown++, k:=(nH-CutDown)*nW
Loop, %nW%
k++, (A_Index>CutLeft and A_Index<nW+1-CutRight
? FindText_Gui("CutColor") : "")
return
}
if (cmd="CutD3")
{
ListLines, %lls%
Loop, 3
FindText_Gui("CutD")
return
}
if (cmd="Gray2Two")
{
ListLines, %lls%
Gui, FindText_Capture: Default
GuiControl, Focus, Threshold
GuiControlGet, Threshold
if (Threshold="")
{
pp:=[]
Loop, 256
pp[A_Index-1]:=0
Loop, % nW*nH
if (show[A_Index])
pp[gray[A_Index]]++
IP:=IS:=0
Loop, 256
k:=A_Index-1, IP+=k*pp[k], IS+=pp[k]
Threshold:=Floor(IP/IS)
Loop, 20
{
LastThreshold:=Threshold
IP1:=IS1:=0
Loop, % LastThreshold+1
k:=A_Index-1, IP1+=k*pp[k], IS1+=pp[k]
IP2:=IP-IP1, IS2:=IS-IS1
if (IS1!=0 and IS2!=0)
Threshold:=Floor((IP1/IS1+IP2/IS2)/2)
if (Threshold=LastThreshold)
Break
}
GuiControl,, Threshold, %Threshold%
}
Threshold:=Round(Threshold)
color:="*" Threshold, k:=i:=0
Loop, % nW*nH
{
ascii[++k]:=v:=(gray[k]<=Threshold)
if (show[k])
i:=(v?i+1:i-1), c:=(v?"Black":"White"), FindText_Gui("SetColor")
}
bg:=i>0 ? "1":"0"
return
}
if (cmd="GrayDiff2Two")
{
ListLines, %lls%
Gui, FindText_Capture: Default
GuiControlGet, GrayDiff
if (GrayDiff="")
{
Gui, +OwnDialogs
MsgBox, 4096, Tip, `nPlease Set Gray Difference First !`n, 1
return
}
if (CutLeft=cors.CutLeft)
FindText_Gui("CutL")
if (CutRight=cors.CutRight)
FindText_Gui("CutR")
if (CutUp=cors.CutUp)
FindText_Gui("CutU")
if (CutDown=cors.CutDown)
FindText_Gui("CutD")
GrayDiff:=Round(GrayDiff)
color:="**" GrayDiff, k:=i:=0
Loop, % nW*nH
{
j:=gray[++k]+GrayDiff
, ascii[k]:=v:=( gray[k-1]>j or gray[k+1]>j
or gray[k-nW]>j or gray[k+nW]>j
or gray[k-nW-1]>j or gray[k-nW+1]>j
or gray[k+nW-1]>j or gray[k+nW+1]>j )
if (show[k])
i:=(v?i+1:i-1), c:=(v?"Black":"White"), FindText_Gui("SetColor")
}
bg:=i>0 ? "1":"0"
return
}
if (cmd="Color2Two"||cmd="ColorPos2Two")
{
ListLines, %lls%
Gui, FindText_Capture: Default
GuiControlGet, c,, SelColor
if (c="")
{
Gui, +OwnDialogs
MsgBox, 4096, Tip, `nPlease select the core color first !`n, 1
return
}
UsePos:=(cmd="ColorPos2Two") ? 1:0
GuiControlGet, n,, Similar1
n:=Round(n/100,2), color:=c "@" n
, n:=Floor(9*255*255*(1-n)*(1-n)), k:=i:=0
, rr:=(c>>16)&0xFF, gg:=(c>>8)&0xFF, bb:=c&0xFF
Loop, % nW*nH
{
c:=cors[++k], r:=((c>>16)&0xFF)-rr
, g:=((c>>8)&0xFF)-gg, b:=(c&0xFF)-bb
, ascii[k]:=v:=(3*r*r+4*g*g+2*b*b<=n)
if (show[k])
i:=(v?i+1:i-1), c:=(v?"Black":"White"), FindText_Gui("SetColor")
}
bg:=i>0 ? "1":"0"
return
}
if (cmd="ColorDiff2Two")
{
ListLines, %lls%
Gui, FindText_Capture: Default
GuiControlGet, c,, SelColor
if (c="")
{
Gui, +OwnDialogs
MsgBox, 4096, Tip, `nPlease select the core color first !`n, 1
return
}
GuiControlGet, dR
GuiControlGet, dG
GuiControlGet, dB
rr:=(c>>16)&0xFF, gg:=(c>>8)&0xFF, bb:=c&0xFF
, n:=Format("{:06X}",(dR<<16)|(dG<<8)|dB)
, color:=StrReplace(c "-" n,"0x"), k:=i:=0
Loop, % nW*nH
{
c:=cors[++k], r:=(c>>16)&0xFF, g:=(c>>8)&0xFF
, b:=c&0xFF, ascii[k]:=v:=(Abs(r-rr)<=dR
and Abs(g-gg)<=dG and Abs(b-bb)<=dB)
if (show[k])
i:=(v?i+1:i-1), c:=(v?"Black":"White"), FindText_Gui("SetColor")
}
bg:=i>0 ? "1":"0"
return
}
if (cmd="Modify")
{
ListLines, %lls%
GuiControlGet, Modify, FindText_Capture:, Modify
return
}
if (cmd="Similar1")
{
ListLines, %lls%
GuiControl, FindText_Capture:, Similar2, %Similar1%
return
}
if (cmd="Similar2")
{
ListLines, %lls%
GuiControl, FindText_Capture:, Similar1, %Similar2%
return
}
if (cmd="getwz")
{
ListLines, %lls%
wz:=""
if (bg="")
return
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
k:=0
Loop, %nH%
{
v:=""
Loop, %nW%
v.=!show[++k] ? "" : ascii[k] ? "1":"0"
wz.=v="" ? "" : v "`n"
}
ListLines, %lls%
return
}
if (cmd="Auto")
{
ListLines, %lls%
FindText_Gui("getwz")
if (wz="")
{
Gui, FindText_Capture: +OwnDialogs
MsgBox, 4096, Tip, `nPlease convert the image to black or white first !`n, 1
return
}
While InStr(wz,bg)
{
if (wz~="^" bg "+\n")
wz:=RegExReplace(wz,"^" bg "+\n"), FindText_Gui("CutU")
else if !(wz~="m`n)[^\n" bg "]$")
wz:=RegExReplace(wz,"m`n)" bg "$"), FindText_Gui("CutR")
else if (wz~="\n" bg "+\n$")
wz:=RegExReplace(wz,"\n\K" bg "+\n$"), FindText_Gui("CutD")
else if !(wz~="m`n)^[^\n" bg "]")
wz:=RegExReplace(wz,"m`n)^" bg), FindText_Gui("CutL")
else Break
}
wz:=""
return
}
if (cmd="ButtonOK"||cmd="SplitAdd"||cmd="AllAdd")
{
ListLines, %lls%
Gui, FindText_Capture: Default
Gui, +OwnDialogs
FindText_Gui("getwz")
if (wz="")
{
MsgBox, 4096, Tip, `nPlease convert the image to black or white first !`n, 1
return
}
if InStr(color,"@") and (UsePos)
{
r:=StrSplit(color,"@")
k:=i:=j:=0
Loop, % nW*nH
{
if (!show[++k])
Continue
i++
if (k=cors.SelPos)
{
j:=i
Break
}
}
if (j=0)
{
MsgBox, 4096, Tip, `nPlease select the core color again !`n, 3
return
}
color:="#" (j-1) "@" r.2
}
GuiControlGet, Comment
if (cmd="SplitAdd")
{
if InStr(color,"#")
{
MsgBox, 4096, Tip
, % "Can't be used in ColorPos mode, "
. "because it can cause position errors", 3
return
}
bg:=StrLen(StrReplace(wz,"0"))
> StrLen(StrReplace(wz,"1")) ? "1":"0"
s:="", i:=0, k:=nW*nH+1+CutLeft
Loop, % w:=nW-CutLeft-CutRight
{
i++
GuiControlGet, j,, % C_[k++]
if (j=0 and A_Index<w)
Continue
i:=Format("{:d}",i)
v:=RegExReplace(wz,"m`n)^(.{" i "}).*","$1")
wz:=RegExReplace(wz,"m`n)^.{" i "}"), i:=0
While InStr(v,bg)
{
if (v~="^" bg "+\n")
v:=RegExReplace(v,"^" bg "+\n")
else if !(v~="m`n)[^\n" bg "]$")
v:=RegExReplace(v,"m`n)" bg "$")
else if (v~="\n" bg "+\n$")
v:=RegExReplace(v,"\n\K" bg "+\n$")
else if !(v~="m`n)^[^\n" bg "]")
v:=RegExReplace(v,"m`n)^" bg)
else Break
}
if (v!="")
{
v:=Format("{:d}",InStr(v,"`n")-1) "." FindText_bit2base64(v)
s.="`nText.=""|<" SubStr(Comment,1,1) ">" color "$" v """`n"
Comment:=SubStr(Comment, 2)
}
}
Event:=cmd, Result:=s
Gui, Hide
return
}
wz:=Format("{:d}",InStr(wz,"`n")-1) "." FindText_bit2base64(wz)
s:="`nText.=""|<" Comment ">" color "$" wz """`n"
if (cmd="AllAdd")
{
Event:=cmd, Result:=s
Gui, Hide
return
}
x:=px-ww+CutLeft+(nW-CutLeft-CutRight)//2
y:=py-hh+CutUp+(nH-CutUp-CutDown)//2
s:=StrReplace(s, "Text.=", "Text:=")
s:="`; #Include <FindText>`n"
. "`n t1:=A_TickCount, X:=Y:=""""`n" s
. "`n if (ok:=FindText(" x "-150000, " y "-150000, " x "+150000, " y "+150000, 0, 0, Text))"
. "`n {"
. "`n CoordMode, Mouse"
. "`n X:=ok.1.x, Y:=ok.1.y, Comment:=ok.1.id"
. "`n `; Click, `%X`%, `%Y`%"
. "`n }`n"
. "`n MsgBox, 4096, Tip, `% ""Found :``t"" Round(ok.MaxIndex())"
. "`n . ""``n``nTime :``t"" (A_TickCount-t1) "" ms"""
. "`n . ""``n``nPos :``t"" X "", "" Y"
. "`n . ""``n``nResult:``t"" (ok ? ""Success !"" : ""Failed !"")`n"
. "`n for i,v in ok"
. "`n if (i<=2)"
. "`n FindText_MouseTip(ok[i].x, ok[i].y)`n"
Event:=cmd, Result:=s
Gui, Hide
return
}
if (cmd="EditEvents1")
{
Critical
static FindText_FuncBind3:=Func("FindText_Gui").Bind("ShowPic")
if (A_Gui="FindText_Main" && A_GuiControl="scr")
SetTimer, %FindText_FuncBind3%, -150
return
}
if (cmd="ShowPic")
{
ListLines, %lls%
ControlGet, i, CurrentLine,,, ahk_id %hscr%
ControlGet, s, Line, %i%,, ahk_id %hscr%
GuiControl, FindText_Main:, MyPic, % Trim(FindText_ASCII(s),"`n")
return
}
if (cmd="EditEvents2")
{
Critical
if (A_Gui="FindText_SubPic")
FindText_Gui("WM_LBUTTONDOWN")
else
FindText_Gui("EditEvents1")
return
}
if (cmd="WM_LBUTTONDOWN")
{
ListLines, %lls%
MouseGetPos,,,, j
If !InStr(j,"progress")
return
MouseGetPos,,,, j, 2
Gui, FindText_Capture: Default
For k,v in C_
{
if (v!=j)
Continue
if (k>nW*nH)
{
GuiControlGet, i,, %v%
GuiControl,, %v%, % i ? 0:100
}
else if (Modify and bg!="" and show[k])
{
ascii[k]:=!ascii[k]
, c:=(ascii[k] ? "Black":"White")
, FindText_Gui("SetColor")
}
else
{
c:=cors[k], cors.SelPos:=k
r:=(c>>16)&0xFF, g:=(c>>8)&0xFF, b:=c&0xFF
GuiControl,, SelGray, % gray[k]
GuiControl,, SelColor, %c%
GuiControl,, SelR, %r%
GuiControl,, SelG, %g%
GuiControl,, SelB, %b%
}
Break
}
return
}
if (cmd="ShowToolTip")
{
Critical
static ToolTip_Text:="", PrevControl:=""
static FindText_FuncBind4:=Func("FindText_Gui").Bind("ToolTip")
static FindText_FuncBind5:=Func("FindText_Gui").Bind("ToolTipOff")
if (!ToolTip_Text)
ToolTip_Text:=FindText_Gui("Load_ToolTip_Text")
CurrControl:=A_GuiControl
if (CurrControl!=PrevControl)
{
PrevControl:=CurrControl, _TT:=(CurrControl!="")
SetTimer, %FindText_FuncBind4%, % _TT ? -500 : "Off"
SetTimer, %FindText_FuncBind5%, % _TT ? -5500 : "Off"
ToolTip
}
return
}
if (cmd="ToolTip")
{
ListLines, %lls%
MouseGetPos,,, _TT
WinGetClass, _TT, ahk_id %_TT%
if (_TT = "AutoHotkeyGUI")
ToolTip, % RegExMatch(ToolTip_Text
, "im`n)^" PrevControl "\K\s*=.*", _TT)
? StrReplace(Trim(_TT,"`t ="),"\n","`n") : ""
return
}
if (cmd="ToolTipOff")
{
ListLines, %lls%
ToolTip
return
}
if (cmd="Load_ToolTip_Text")
{
ListLines, %lls%
s=
(LTrim
Myww = Adjust the width of the capture range
Myhh = Adjust the height of the capture range
AddFunc = Additional FindText() in Copy
NowHotkey = Current screenshot hotkey
SetHotkey1 = First sequence Screenshot hotkey
SetHotkey2 = Second sequence Screenshot hotkey
Apply = Apply new screenshot hotkey and adjusted capture range values
GetRange = Get screen range to clipboard and replace the range in the code
TestClip = Test the Text data in the clipboard for searching images
Capture = Initiate Image Capture Sequence
CaptureS = Restore the last screenshot and then start capturing
Test = Test Results of Code
Copy = Copy Code to Clipboard
Reset = Reset to Original Captured Image
SplitAdd = Using Markup Segmentation to Generate Text Library
AllAdd = Append Another FindText Search Text into Previously Generated Code
ButtonOK = Create New FindText Code for Testing
Close = Close the Window Don't Do Anything
Gray2Two = Converts Image Pixels from Gray Threshold to Black or White
GrayDiff2Two = Converts Image Pixels from Gray Difference to Black or White
Color2Two = Converts Image Pixels from Color Similar to Black or White
ColorPos2Two = Converts Image Pixels from Color Position to Black or White
ColorDiff2Two = Converts Image Pixels from Color Difference to Black or White
SelGray = Gray value of the selected color
SelColor = The selected color
SelR = Red component of the selected color
SelG = Green component of the selected color
SelB = Blue component of the selected color
RepU = Undo Cut the Upper Edge by 1
CutU = Cut the Upper Edge by 1
CutU3 = Cut the Upper Edge by 3
RepL = Undo Cut the Left Edge by 1
CutL = Cut the Left Edge by 1
CutL3 = Cut the Left Edge by 3
Auto = Automatic Cut Edge after image has been converted to black and white
RepR = Undo Cut the Right Edge by 1
CutR = Cut the Right Edge by 1
CutR3 = Cut the Right Edge by 3
RepD = Undo Cut the Lower Edge by 1
CutD = Cut the Lower Edge by 1
CutD3 = Cut the Lower Edge by 3
Modify = Allows Modify the Black and White Image
Comment = Optional Comment used to Label Code ( Within <> )
Threshold = Gray Threshold which Determines Black or White Pixel Conversion (0-255)
GrayDiff = Gray Difference which Determines Black or White Pixel Conversion (0-255)
Similar1 = Adjust color similarity as Equivalent to The Selected Color
Similar2 = Adjust color similarity as Equivalent to The Selected Color
DiffR = Red Difference which Determines Black or White Pixel Conversion (0-255)
DiffG = Green Difference which Determines Black or White Pixel Conversion (0-255)
DiffB = Blue Difference which Determines Black or White Pixel Conversion (0-255)
Bind0 = Bind the window and Use GetDCEx() to get the image of background window
Bind1 = Bind the window Use GetDCEx() and Modify the window to support transparency
Bind2 = Bind the window and Use PrintWindow() to get the image of background window
Bind3 = Bind the window Use PrintWindow() and Modify the window to support transparency
Bind4 = Bind the window and Use PrintWindow(,,3) to get the image of background window
)
return s
}
ListLines, %lls%
}
;===== Copy The Following Functions To Your Own Code Just once =====
;--------------------------------
; FindText - Capture screen image into text and then find it
;--------------------------------
; X1, Y1 --> the search scope's upper left corner coordinates
; X2, Y2 --> the search scope's lower right corner coordinates
; err1, err0 --> Fault tolerance percentage of text and background (0.1=10%)
; Text --> can be a lot of text parsed into images, separated by "|"
; ScreenShot --> if the value is 0, the last screenshot will be used
; FindAll --> if the value is 0, Just find one result and return
; JoinText --> if the value is 1, Join all Text for combination lookup
; offsetX, offsetY --> Set the Max text offset for combination lookup
; ruturn --> the function returns a second-order array
; containing all lookup results, Any result is an associative array
; {1:X, 2:Y, 3:W, 4:H, x:X+W//2, y:Y+H//2, id:Comment},
; if no image is found, the function returns 0.
; All coordinates are relative to Screen, colors are in RGB format,
; and combination lookup must use uniform color mode
;--------------------------------
FindText( x1, y1, x2, y2, err1, err0, text, ScreenShot:=1
, FindAll:=1, JoinText:=0, offsetX:=20, offsetY:=10 )
{
local
SetBatchLines, % (bch:=A_BatchLines)?"-1":"-1"
x:=(x1<x2 ? x1:x2), y:=(y1<y2 ? y1:y2)
, w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1
, FindText_xywh2xywh(x,y,w,h,x,y,w,h,zx,zy,zw,zh)
if (w<1 or h<1)
{
SetBatchLines, %bch%
return 0
}
bits:=FindText_GetBitsFromScreen(x,y,w,h,ScreenShot,zx,zy,zw,zh)
sx:=x-zx, sy:=y-zy, sw:=w, sh:=h, arr:=[], info:=[]
Loop, Parse, text, |
if IsObject(j:=FindText_PicInfo(A_LoopField))
info.Push(j)
if (!(num:=info.MaxIndex()) or !bits.1)
{
SetBatchLines, %bch%
return 0
}
VarSetCapacity(input, num*7*4), k:=0
Loop, % num
k+=Round(info[A_Index].2 * info[A_Index].3)
VarSetCapacity(s1, k*4), VarSetCapacity(s0, k*4)
, VarSetCapacity(gs, sw*sh), VarSetCapacity(ss, sw*sh)
, allpos_max:=(FindAll ? 1024 : 1)
, VarSetCapacity(allpos, allpos_max*4)
Loop, 2
{
if (err1=0 and err0=0) and (num>1 or A_Index>1)
err1:=0.1, err0:=0.05
if (JoinText)
{
j:=info[1], mode:=j.8, color:=j.9, n:=j.10
, w1:=-1, h1:=j.3, comment:="", v:="", i:=0
Loop, % num
{
j:=info[A_Index], w1+=j.2+1, comment.=j.11
Loop, 7
NumPut((A_Index=1 ? StrLen(v)
: A_Index=6 and err1 and !j.12 ? Round(j.4*err1)
: A_Index=7 and err0 and !j.12 ? Round(j.5*err0)
: j[A_Index]), input, 4*(i++), "int")
v.=j.1
}
ok:=FindText_PicFind( mode,color,n,offsetX,offsetY
, bits,sx,sy,sw,sh,gs,ss,v,s1,s0
, input,num*7,allpos,allpos_max )
Loop, % ok
pos:=NumGet(allpos, 4*(A_Index-1), "uint")
, rx:=(pos&0xFFFF)+zx, ry:=(pos>>16)+zy
, arr.Push( {1:rx, 2:ry, 3:w1, 4:h1
, x:rx+w1//2, y:ry+h1//2, id:comment} )
}
else
{
For i,j in info
{
mode:=j.8, color:=j.9, n:=j.10, comment:=j.11
, w1:=j.2, h1:=j.3, v:=j.1
Loop, 7
NumPut((A_Index=1 ? 0
: A_Index=6 and err1 and !j.12 ? Round(j.4*err1)
: A_Index=7 and err0 and !j.12 ? Round(j.5*err0)
: j[A_Index]), input, 4*(A_Index-1), "int")
ok:=FindText_PicFind( mode,color,n,offsetX,offsetY
, bits,sx,sy,sw,sh,gs,ss,v,s1,s0
, input,7,allpos,allpos_max )
Loop, % ok
pos:=NumGet(allpos, 4*(A_Index-1), "uint")
, rx:=(pos&0xFFFF)+zx, ry:=(pos>>16)+zy
, arr.Push( {1:rx, 2:ry, 3:w1, 4:h1
, x:rx+w1//2, y:ry+h1//2, id:comment} )
if (ok and !FindAll)
Break
}
}
if (err1=0 and err0=0 and num=1 and !arr.MaxIndex())
{
k:=0
For i,j in info
k+=(!j.12)
if (k=0)
Break
}
else Break
}
SetBatchLines, %bch%
return arr.MaxIndex() ? arr:0
}
; Bind the window so that it can find images when obscured
; by other windows, it's equivalent to always being
; at the front desk. Unbind Window using FindText_BindWindow(0)
FindText_BindWindow(bind_id:=0, bind_mode:=0, get_id:=0, get_mode:=0)
{
local
static id:=0, mode:=0, oldStyle:=0
if (get_id)
return id
if (get_mode)
return mode
if (bind_id)
{
id:=bind_id, mode:=bind_mode, oldStyle:=0
if (mode & 1)
{
WinGet, oldStyle, ExStyle, ahk_id %id%
WinSet, Transparent, 255, ahk_id %id%
Loop, 30
{
Sleep, 100
WinGet, i, Transparent, ahk_id %id%
}
Until (i=255)
}
}
else
{
if (mode & 1) and (oldStyle)
WinSet, ExStyle, %oldStyle%, ahk_id %id%
id:=mode:=oldStyle:=0
}
}
FindText_xywh2xywh(x1,y1,w1,h1, ByRef x,ByRef y,ByRef w,ByRef h
, ByRef zx:="", ByRef zy:="", ByRef zw:="", ByRef zh:="")
{
local
SysGet, zx, 76
SysGet, zy, 77
SysGet, zw, 78
SysGet, zh, 79
left:=x1, right:=x1+w1-1, up:=y1, down:=y1+h1-1
left:=left<zx ? zx:left, right:=right>zx+zw-1 ? zx+zw-1:right
up:=up<zy ? zy:up, down:=down>zy+zh-1 ? zy+zh-1:down
x:=left, y:=up, w:=right-left+1, h:=down-up+1
}
FindText_GetBitsFromScreen(x, y, w, h, ScreenShot:=1
, ByRef zx:="", ByRef zy:="", ByRef zw:="", ByRef zh:="")
{
local
static hBM:="", bits:=[], Ptr:=A_PtrSize ? "UPtr" : "UInt"
static init:=!FindText_GetBitsFromScreen(0,0,0,0,1)
if (!ScreenShot)
{
zx:=bits.3, zy:=bits.4, zw:=bits.5, zh:=bits.6
return bits
}
bch:=A_BatchLines, cri:=A_IsCritical
Critical
if (zw<1 or zh<1)
{
SysGet, zx, 76
SysGet, zy, 77
SysGet, zw, 78
SysGet, zh, 79
}
if (zw>bits.5 or zh>bits.6 or !hBM)
{
DllCall("DeleteObject", Ptr,hBM), hBM:="", bpp:=32
VarSetCapacity(bi, 40, 0), NumPut(40, bi, 0, "int")
NumPut(zw, bi, 4, "int"), NumPut(-zh, bi, 8, "int")
NumPut(1, bi, 12, "short"), NumPut(bpp, bi, 14, "short")
hBM:=DllCall("CreateDIBSection", Ptr,0, Ptr,&bi
, "int",0, Ptr "*",ppvBits:=0, Ptr,0, "int",0, Ptr)
Scan0:=(!hBM ? 0:ppvBits), Stride:=((zw*bpp+31)//32)*4
bits.1:=Scan0, bits.2:=Stride
bits.3:=zx, bits.4:=zy, bits.5:=zw, bits.6:=zh
x:=zx, y:=zy, w:=zw, h:=zh
}
if (hBM) and !(w<1 or h<1)
{
win:=DllCall("GetDesktopWindow", Ptr)
hDC:=DllCall("GetWindowDC", Ptr,win, Ptr)
mDC:=DllCall("CreateCompatibleDC", Ptr,hDC, Ptr)
oBM:=DllCall("SelectObject", Ptr,mDC, Ptr,hBM, Ptr)
DllCall("BitBlt",Ptr,mDC,"int",x-zx,"int",y-zy,"int",w,"int",h
, Ptr,hDC, "int",x-zx, "int",y-zy, "uint",0x00CC0020|0x40000000)
DllCall("ReleaseDC", Ptr,win, Ptr,hDC)
if (id:=FindText_BindWindow(0,0,1))
WinGet, id, ID, ahk_id %id%
if (id)
{
WinGetPos, wx, wy, ww, wh, ahk_id %id%
left:=x, right:=x+w-1, up:=y, down:=y+h-1
left:=left<wx ? wx:left, right:=right>wx+ww-1 ? wx+ww-1:right
up:=up<wy ? wy:up, down:=down>wy+wh-1 ? wy+wh-1:down
x:=left, y:=up, w:=right-left+1, h:=down-up+1
}
if (id) and !(w<1 or h<1)
{
if (mode:=FindText_BindWindow(0,0,0,1))<2
{
hDC2:=DllCall("GetDCEx", Ptr,id, Ptr,0, "int",3, Ptr)
DllCall("BitBlt",Ptr,mDC,"int",x-zx,"int",y-zy,"int",w,"int",h
, Ptr,hDC2, "int",x-wx, "int",y-wy, "uint",0x00CC0020|0x40000000)
DllCall("ReleaseDC", Ptr,id, Ptr,hDC2)
}
else
{
VarSetCapacity(bi, 40, 0), NumPut(40, bi, 0, "int")
NumPut(ww, bi, 4, "int"), NumPut(-wh, bi, 8, "int")
NumPut(1, bi, 12, "short"), NumPut(32, bi, 14, "short")
hBM2:=DllCall("CreateDIBSection", Ptr,0, Ptr,&bi
, "int",0, Ptr "*",0, Ptr,0, "int",0, Ptr)
hDC2:=DllCall("CreateCompatibleDC", Ptr,0, Ptr)
oBM2:=DllCall("SelectObject", Ptr,hDC2, Ptr,hBM2, Ptr)
DllCall("PrintWindow", Ptr,id, Ptr,hDC2, "uint",(mode>3)*3)
DllCall("BitBlt",Ptr,mDC,"int",x-zx,"int",y-zy,"int",w,"int",h
, Ptr,hDC2, "int",x-wx, "int",y-wy, "uint",0x00CC0020|0x40000000)
DllCall("SelectObject", Ptr,hDC2, Ptr,oBM2)
DllCall("DeleteDC", Ptr,hDC2)
DllCall("DeleteObject", Ptr,hBM2)
}
}
DllCall("SelectObject", Ptr,mDC, Ptr,oBM)
DllCall("DeleteDC", Ptr,mDC)
}
Critical, %cri%
SetBatchLines, %bch%
return bits
}
FindText_PicInfo(text)
{
local
static info:=[]
If !InStr(text,"$")
return
if (info[text])
return info[text]
v:=text, comment:="", e1:=e0:=0, set_e1_e0:=0
; You Can Add Comment Text within The <>
if RegExMatch(v,"<([^>]*)>",r)
v:=StrReplace(v,r), comment:=Trim(r1)
; You can Add two fault-tolerant in the [], separated by commas
if RegExMatch(v,"\[([^\]]*)]",r)
{
v:=StrReplace(v,r)
r:=StrSplit(r1, ",")
e1:=r.1, e0:=r.2, set_e1_e0:=1
}
r:=StrSplit(v,"$")
color:=r.1, v:=r.2
r:=StrSplit(v,".")
w1:=r.1, v:=FindText_base64tobit(r.2), h1:=StrLen(v)//w1
if (w1<1 or h1<1 or StrLen(v)!=w1*h1)
return
mode:=InStr(color,"-") ? 4 : InStr(color,"#") ? 3
: InStr(color,"**") ? 2 : InStr(color,"*") ? 1 : 0
if (mode=4)
{
color:=StrReplace(color,"0x")
r:=StrSplit(color,"-")
color:="0x" r.1, n:="0x" r.2
}
else
{
color:=RegExReplace(color,"[*#]")
r:=StrSplit(color,"@")
color:=r.1, n:=Round(r.2,2)+(!r.2)
, n:=Floor(9*255*255*(1-n)*(1-n))
}
StrReplace(v,"1","",len1), len0:=StrLen(v)-len1
, e1:=Round(len1*e1), e0:=Round(len0*e0)
return info[text]:=[v,w1,h1,len1,len0,e1,e0
, mode,color,n,comment,set_e1_e0]
}
FindText_PicFind(mode, color, n, offsetX, offsetY
, bits, sx, sy, sw, sh
, ByRef gs, ByRef ss, ByRef text, ByRef s1, ByRef s0
, ByRef input, num, ByRef allpos, allpos_max)
{
local
static MyFunc:="", Ptr:=A_PtrSize ? "UPtr" : "UInt"
if (!MyFunc)
{
x32:="5557565383EC788B8424CC0000008BBC24CC000000C7442"
. "424000000008B40048B7F148944243C8B8424CC000000897C2"
. "42C8BBC24CC0000008B40088B7F18894424388B8424CC00000"
. "0897C24308B400C89C6894424288B8424CC0000008B401039C"
. "6894424200F4DC68944241C8B8424D000000085C00F8E15010"
. "0008BB424CC0000008B44242489F78B0C868B7486048B44870"
. "88974241085C0894424180F8ED700000089CD894C2414C7442"
. "40C00000000C744240800000000C744240400000000890C248"
. "D76008DBC27000000008B5C24108B7424088B4C24148B54240"
. "C89DF89F029F101F78BB424C000000001CE85DB7E5E8B0C248"
. "9EB893C2489D7EB198BAC24C800000083C70483C00189548D0"
. "083C101390424742C83BC248C0000000389FA0F45D0803C063"
. "175D48BAC24C400000083C70483C00189549D0083C30139042"
. "475D48B7424100174241489DD890C2483442404018BB424B00"
. "000008B442404017424088BBC24A4000000017C240C3944241"
. "80F8554FFFFFF83442424078B442424398424D00000000F8FE"
. "BFEFFFF83BC248C000000030F84A00600008B8424A40000008"
. "BB424A80000000FAF8424AC0000008BBC24A40000008D2CB08"
. "B8424B0000000F7D88D04878BBC248C0000008944241085FF0"
. "F84F702000083BC248C000000010F847F08000083BC248C000"
. "000020F84330900008B8424900000008B9C24940000000FB6B"
. "C24940000000FB6B42490000000C744241800000000C744242"
. "400000000C1E8100FB6DF0FB6D08B84249000000089D10FB6C"
. "4894424088B842494000000C1E8100FB6C029C101D08904248"
. "B442408894C24408B4C240801D829D9894424088D043E894C2"
. "40489F129F9894424148BBC24B40000008B8424B0000000894"
. "C240C89E98B6C2440C1E00285FF894424340F8EBA0000008BB"
. "424B000000085F60F8E910000008B8424A00000008B5424240"
. "39424BC00000001C8034C243489CF894C244003BC24A000000"
. "0EB3D8D76008DBC2700000000391C247C3D394C24047F37394"
. "C24087C3189F30FB6F33974240C0F9EC3397424140F9DC183C"
. "00483C20121D9884AFF39F8741E0FB658020FB648010FB6303"
. "9DD7EBE31C983C00483C201884AFF39F875E28BB424B000000"
. "0017424248B4C24408344241801034C24108B442418398424B"
. "40000000F8546FFFFFF8B8424B00000002B44243C8944240C8"
. "B8424B40000002B442438894424600F886D0900008B4424288"
. "BBC24C40000008B74243CC744241000000000C744243800000"
. "000C7442434000000008D3C8789C583EE01897C246C8974247"
. "48B44240C85C00F88E70000008B7C24388B8424AC000000BE0"
. "0000000C704240000000001F8C1E0108944246889F82B84249"
. "C0000000F49F08B84249C000000897424640FAFB424B000000"
. "001F8894424708974245C8DB6000000008B04240344241089C"
. "1894424088B442430394424200F84AA0100008B5C241C89C60"
. "38C24BC00000031C08B54242C85DB0F8EC8010000897424048"
. "B7C2420EB2D39C77E1C8BB424C80000008B1C8601CB803B007"
. "40B836C240401782B8D74260083C0013944241C0F849101000"
. "039C57ECF8BB424C40000008B1C8601CB803B0174BE83EA017"
. "9B9830424018B04243944240C0F8D68FFFFFF83442438018BB"
. "424B00000008B44243801742410394424600F8DEFFEFFFF8B4"
. "C243483C47889C85B5E5F5DC250008B8424900000008BB424B"
. "4000000C744240C00000000C744241400000000C1E8100FB6C"
. "08904248B8424900000000FB6C4894424040FB684249000000"
. "0894424088B8424B0000000C1E00285F68944242489E88BAC2"
. "4940000000F8E24FEFFFF8B9C24B000000085DB7E758B9C24A"
. "00000008B7424148BBC24A000000003B424BC00000001C3034"
. "424248944241801C78D76008DBC27000000000FB643020FB64"
. "B012B04242B4C24040FB6132B5424080FAFC00FAFC98D04400"
. "FAFD28D04888D045039C50F930683C30483C60139DF75C98BB"
. "C24B0000000017C24148B4424188344240C01034424108B742"
. "40C39B424B40000000F8566FFFFFFE985FDFFFF85ED7E358B7"
. "424088BBC24BC00000031C08B54242C8D1C378BB424C400000"
. "08B0C8601D9803901740983EA010F8890FEFFFF83C00139C57"
. "5E683BC24D0000000070F8EAA0100008B442474030424C7442"
. "44007000000896C2444894424288B8424CC00000083C020894"
. "4243C8B44243C8B9424B00000008B7C24288B0029C28944245"
. "08B84249800000001F839C20F4EC289C68944244C39FE0F8C0"
. "90100008B44243C8B700C8B78108B6808897424148B7014897"
. "C242489C7897424548BB424B40000002B700489F08B7424703"
. "9C60F4EC68BB424C4000000894424188B47FC89442404C1E00"
. "201C6038424C8000000894424588B4424648B7C2428037C245"
. "C3B442418894424040F8F8700000085ED7E268B8C24BC00000"
. "08B54242431C08D1C398B0C8601D9803901740583EA01784A8"
. "3C00139C575EA8B4424148B4C245439C8747E85C07E7A8B9C2"
. "4BC000000896C244831C08B6C245801FBEB0983C0013944241"
. "4745C8B54850001DA803A0074EC83E90179E78B6C244890834"
. "424040103BC24B00000008B442404394424180F8D79FFFFFF8"
. "3442428018B4424283944244C0F8D4CFFFFFF830424018B6C2"
. "4448B04243944240C0F8D7EFCFFFFE911FDFFFF8B4424288B7"
. "C245083442440078344243C1C8D4438FF894424288B4424403"
. "98424D00000000F8F7FFEFFFF8B6C24448B7C24348B0424038"
. "424A80000008BB424D40000000B4424688D4F01398C24D8000"
. "0008904BE0F8ED8FCFFFF85ED7E278B7424088BBC24BC00000"
. "08B8424C40000008D1C378B74246C8B1083C00401DA39F0C60"
. "20075F283042401894C24348B04243944240C0F8DDEFBFFFFE"
. "971FCFFFF89F68DBC27000000008B74243C8B8424900000003"
. "1D2F7F60FAF8424A40000008D0490894424188B8424B000000"
. "0038424A800000029F0894424348B8424AC000000038424B40"
. "000002B442438398424AC0000008944243C0F8F560400008B8"
. "424A40000008BB424A80000000FAF8424AC000000C74424240"
. "00000008D04B0034424188BB424A0000000894424388B44243"
. "4398424A80000000F8F320100008B8424AC000000C1E010894"
. "424408B442438894424148B8424A8000000894424088B44241"
. "40FB67C060289C52B6C2418893C240FB67C0601897C24040FB"
. "63C068B44241C85C00F8E1E0100008B442430894424108B442"
. "42C8944240C31C0EB678D76008DBC2700000000394424207E4"
. "A8B9C24C80000008B0C8301E90FB6540E020FB65C0E012B142"
. "42B5C24040FB60C0E0FAFD20FAFDB29F98D14520FAFC98D149"
. "A8D144A39942494000000720C836C2410017865908D7426008"
. "3C0013944241C0F84A3000000394424287E9D8B9C24C400000"
. "08B0C8301E90FB6540E020FB65C0E012B14242B5C24040FB60"
. "C0E0FAFD20FAFDB29F98D14520FAFC98D149A8D144A3B94249"
. "40000000F865BFFFFFF836C240C010F8950FFFFFF834424080"
. "183442414048B442408394424340F8DEFFEFFFF838424AC000"
. "000018BBC24A40000008B44243C017C24383B8424AC0000000"
. "F8D99FEFFFF8B4C242483C4785B5E89C85F5DC250008D74260"
. "08B7C24248B4424400B4424088B9C24D40000008D4F013B8C2"
. "4D80000008904BB0F8D64FAFFFF894C2424EB848B842490000"
. "0008B8C24B4000000C7042400000000C74424040000000083C"
. "001C1E00789C68B8424B0000000C1E00285C98944240889E88"
. "9F50F8EAFF8FFFF8B9424B000000085D27E5F8B8C24A000000"
. "08B5C2404039C24BC00000001C1034424088944240C038424A"
. "000000089C70FB651020FB641010FB6316BC04B6BD22601C28"
. "9F0C1E00429F001D039C50F970383C10483C30139F975D58BB"
. "424B0000000017424048B44240C83042401034424108B34243"
. "9B424B40000007582E92CF8FFFF8B8424B0000000C70424000"
. "00000C744240400000000C1E002894424088B8424B40000008"
. "5C00F8E920000008B8424B000000085C07E6F8B8C24A000000"
. "08B5C24048BB424B800000001E9036C240801DE039C24BC000"
. "000896C240C03AC24A00000000FB651020FB6410183C1040FB"
. "679FC83C60183C3016BC04B6BD22601C289F8C1E00429F801D"
. "0C1F8078846FFC643FF0039CD75CC8BBC24B0000000017C240"
. "48B6C240C83042401036C24108B0424398424B40000000F856"
. "EFFFFFF83BC24B4000000020F8E60F7FFFF8B8424BC0000000"
. "38424B00000008BAC24B800000003AC24B0000000C74424040"
. "1000000894424088B8424B400000083E8018944240C8B8424B"
. "000000083C0018944241083BC24B0000000027E798B4424108"
. "9E92B8C24B00000008B5C240889EA8D34288D45FE8904240FB"
. "642010FB63A0384249000000039F87C360FB67A0239F87C2E0"
. "FB6790139F87C260FB63E39F87C1F0FB63939F87C180FB6790"
. "239F87C100FB67EFF39F87C080FB67E0139F87D04C64301018"
. "3C20183C30183C10183C6013B0C2475A3834424040103AC24B"
. "00000008B4424048BBC24B0000000017C24083944240C0F855"
. "8FFFFFFE96FF6FFFF83C47831C95B89C85E5F5DC2500090909"
. "090909090"
x64:="4157415641554154555756534881EC88000000488B84245"
. "0010000488BB42450010000448B94245801000089542428448"
. "944240844898C24E80000008B40048B76144C8BBC244001000"
. "04C8BB42448010000C74424180000000089442430488B84245"
. "00100008974241C488BB424500100008B40088B76188944243"
. "C488B842450010000897424388B400C89C789442440488B842"
. "4500100008B401039C7894424100F4DC74585D289442454488"
. "B84245001000048894424200F8ECB000000488B442420448B0"
. "8448B68048B400885C0894424040F8E940000004489CE44890"
. "C244531E431FF31ED0F1F8400000000004585ED7E614863142"
. "4418D5C3D0089F848039424380100004589E0EB1D0F1F0083C"
. "0014D63D94183C0044183C1014883C20139C34789149E74288"
. "3F9034589C2440F45D0803A3175D783C0014C63DE4183C0048"
. "3C6014883C20139C34789149F75D844012C2483C50103BC241"
. "80100004403A42400010000396C24047582834424180748834"
. "424201C8B442418398424580100000F8F35FFFFFF83F9030F8"
. "43D0600008B8424000100008BBC24080100000FAF842410010"
. "0008BB424000100008D3CB88B842418010000F7D885C9448D2"
. "C860F841101000083F9010F844108000083F9020F84E008000"
. "08B742428C744240400000000C74424180000000089F0440FB"
. "6CEC1E8104589CC0FB6D84889F08B7424080FB6D44189DB89F"
. "0440FB6C64889F1C1E8100FB6CD89D60FB6C08D2C0A8B94242"
. "00100004129C301C3438D040129CE4529C48904248B8424180"
. "10000C1E00285D2894424080F8E660100004C89BC244001000"
. "0448BBC24180100004585FF0F8E91040000488B8C24F800000"
. "04863C74C6354241831D24C03942430010000488D440102EB3"
. "A0F1F80000000004439C37C4039CE7F3C39CD7C384539CC410"
. "F9EC044390C240F9DC14421C141880C124883C2014883C0044"
. "139D70F8E2D040000440FB6000FB648FF440FB648FE4539C37"
. "EBB31C9EBD58B5C2428448B8C242001000031ED4531E44889D"
. "84189DB0FB6DB0FB6F48B84241801000041C1EB10450FB6DBC"
. "1E0024585C98904240F8EA10000004C89BC24400100004C89B"
. "42448010000448B7C2408448BB424180100004585F67E60488"
. "B8C24F80000004D63D44C039424300100004863C74531C94C8"
. "D440102410FB600410FB648FF410FB650FE4429D829F10FAFC"
. "029DA0FAFC98D04400FAFD28D04888D04504139C7430F93040"
. "A4983C1014983C0044539CE7FC4033C244501F483C5014401E"
. "F39AC2420010000758C4C8BBC24400100004C8BB4244801000"
. "08B8424180100002B4424308904248B8424200100002B44243"
. "C894424680F88750800008B7C24404D89F5488BAC243001000"
. "0448B7424104C89FEC74424040000000048C74424280000000"
. "0C74424200000000089F883E801498D4487044189FF4889442"
. "4088B44243083E801894424788B042485C00F88D9000000488"
. "B5C24288B8424100100004D89EC448B6C245401D8C1E010894"
. "4247089D82B8424F000000089C7B8000000000F49C731FF894"
. "4246C0FAF842418010000894424648B8424F000000001D8894"
. "42474908B442404897C24188D1C388B4424384139C60F84AB0"
. "000004189C131C04585ED448B44241C7F36E9C30000000F1F4"
. "0004139CE7E1B418B148401DA4863D2807C150000740B4183E"
. "901782E0F1F4400004883C0014139C50F8E920000004139C78"
. "9C17ECC8B148601DA4863D2807C15000174BD4183E80179B74"
. "883C701393C240F8D7AFFFFFF4D89E54883442428018B9C241"
. "8010000488B442428015C2404394424680F8DFCFEFFFF8B4C2"
. "42089C84881C4880000005B5E5F5D415C415D415E415FC3458"
. "5FF7E278B4C241C4C8B4424084889F28B0201D84898807C050"
. "001740583E90178934883C2044939D075E583BC24580100000"
. "70F8EE60100008B442478488B8C24500100000344241844896"
. "C2450448BAC241801000044897C24404883C1204889742410C"
. "744243C07000000448974244448897C24484989CF895C247C8"
. "9C64C89642430418B074489EA29C28944245C8B8424E800000"
. "001F039C20F4EC239F0894424580F8CD0000000418B47148BB"
. "C2420010000412B7F0449635FFC458B4F08458B670C8944246"
. "08B442474458B771039C70F4FF8488B44241048C1E3024C8D1"
. "41848035C24308B442464448D04068B44246C39F84189C37F7"
. "2904585C97E234489F131D2418B04924401C04898807C05000"
. "1740583E90178464883C2014139D17FE28B4424604139C40F8"
. "4AA0000004585E40F8EA100000089C131D2EB0D4883C201413"
. "9D40F8E8E0000008B04934401C04898807C05000074E483E90"
. "179DF4183C3014501E84439DF7D8F83C601397424580F8D6EF"
. "FFFFF488B7C2448448B7C2440448B742444448B6C2450488B7"
. "424104C8B6424304883C701393C240F8D97FDFFFFE918FEFFF"
. "F6690037C240844017C241883442404014401EF8B442404398"
. "424200100000F854DFBFFFF4C8BBC2440010000E996FCFFFF8"
. "B44245C8344243C074983C71C8D7406FF8B44243C398424580"
. "100000F8F87FEFFFF448B7C2440448B742444448B6C2450488"
. "B7C24488B5C247C488B7424104C8B64243048634424208B542"
. "418039424080100004C8B9C24600100000B5424708D4801398"
. "C2468010000418914830F8E9AFDFFFF4585FF7E1D4C8B44240"
. "84889F08B104883C00401DA4C39C04863D2C64415000075EB4"
. "883C701393C24894C24200F8DBAFCFFFFE93BFDFFFF0F1F440"
. "0008B7C24308B44242831D2F7F70FAF8424000100008D04908"
. "94424208B8424180100000384240801000029F8894424308B8"
. "42410010000038424200100002B44243C39842410010000894"
. "424440F8F2B0400008B8424000100008BBC24080100000FAF8"
. "42410010000448B642440448B6C24544C8B8C24F8000000C74"
. "42428000000008D04B8034424208944243C8B4424303984240"
. "80100000F8F360100008B8424100100008B6C243CC1E010894"
. "424408B8424080100008904248D450289EF2B7C24204585ED4"
. "898450FB61C018D45014898410FB61C014863C5410FB634010"
. "F8E1C0100008B442438894424188B44241C8944240431C0EB6"
. "90F1F800000000044395424107E4E418B0C8601F98D5102448"
. "D41014863C9410FB60C094863D24D63C0410FB61411470FB60"
. "40129F10FAFC94429DA4129D80FAFD2450FAFC08D1452428D1"
. "4828D144A395424087207836C241801786B4883C0014139C50"
. "F8E9F0000004139C44189C27E96418B0C8701F98D5102448D4"
. "1014863C9410FB60C094863D24D63C0410FB61411470FB6040"
. "129F10FAFC94429DA4129D80FAFD2450FAFC08D1452428D148"
. "28D144A3B5424080F864BFFFFFF836C2404010F8940FFFFFF8"
. "304240183C5048B0424394424300F8DE6FEFFFF83842410010"
. "000018BBC24000100008B442444017C243C3B8424100100000"
. "F8D95FEFFFF8B4C2428E95CFBFFFF48634424288B5424400B1"
. "424488BBC24600100008D48013B8C24680100008914870F8D3"
. "5FBFFFF8304240183C504894C24288B0424394424300F8D7AF"
. "EFFFFEB92448B5C2428448B84242001000031DB8B842418010"
. "00031F6448B9424180100004183C30141C1E3074585C08D2C8"
. "5000000000F8E6BF9FFFF4585D27E57488B8C24F80000004C6"
. "3CE4C038C24300100004863C74531C0488D4C01020FB6110FB"
. "641FF440FB661FE6BC04B6BD22601C24489E0C1E0044429E00"
. "1D04139C3430F9704014983C0014883C1044539C27FCC01EF4"
. "401D683C3014401EF399C24200100007595E9FBF8FFFF8B8C2"
. "4200100008B84241801000031DB31F6448B8C241801000085C"
. "98D2C85000000007E7D4585C97E694C63C6488B8C24F800000"
. "04863C74D89C24C038424300100004C0394242801000031D24"
. "88D4C0102440FB6190FB641FF4883C104440FB661FA6BC04B4"
. "56BDB264101C34489E0C1E0044429E04401D8C1F8074188041"
. "241C60410004883C2014139D17FC401EF4401CE83C3014401E"
. "F399C2420010000758383BC2420010000020F8E4BF8FFFF486"
. "3B424180100008B9C24180100008BBC2420010000488D56014"
. "48D67FFBF010000004889D0480394243001000048038424280"
. "100004889D58D53FD4C8D6A0183BC241801000002488D1C067"
. "E7E4989C04D8D5C05004989D94929F04889E90FB610440FB65"
. "0FF035424284439D27C44440FB650014439D27C3A450FB6104"
. "439D27C31450FB6114439D27C28450FB650FF4439D27C1E450"
. "FB650014439D27C14450FB651FF4439D27C0A450FB65101443"
. "9D27D03C601014883C0014983C1014883C1014983C0014C39D"
. "8759383C7014801F54889D84139FC0F8562FFFFFFE968F7FFF"
. "F31C9E9D9F8FFFF909090909090909090909090"
FindText_MCode(MyFunc, A_PtrSize=8 ? x64:x32)
}
return !bits.1 ? 0:DllCall(&MyFunc, "int",mode, "uint",color
, "uint",n, "int",offsetX, "int",offsetY, Ptr,bits.1
, "int",bits.2, "int",sx, "int",sy, "int",sw, "int",sh
, Ptr,&gs, Ptr,&ss, "AStr",text, Ptr,&s1, Ptr,&s0
, Ptr,&input, "int",num, Ptr,&allpos, "int",allpos_max)
}
FindText_MCode(ByRef code, hex)
{
local
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
SetBatchLines, % (bch:=A_BatchLines)?"-1":"-1"
VarSetCapacity(code, len:=StrLen(hex)//2)
Loop, % len
NumPut("0x" SubStr(hex,2*A_Index-1,2),code,A_Index-1,"uchar")
Ptr:=A_PtrSize ? "UPtr" : "UInt", PtrP:=Ptr "*"
DllCall("VirtualProtect",Ptr,&code, Ptr,len,"uint",0x40,PtrP,0)
SetBatchLines, %bch%
ListLines, %lls%
}
FindText_base64tobit(s)
{
local
Chars:="0123456789+/ABCDEFGHIJKLMNOPQRSTUVWXYZ"
. "abcdefghijklmnopqrstuvwxyz"
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
Loop, Parse, Chars
{
i:=A_Index-1, v:=(i>>5&1) . (i>>4&1)
. (i>>3&1) . (i>>2&1) . (i>>1&1) . (i&1)
s:=RegExReplace(s,"[" A_LoopField "]",StrReplace(v,"0x"))
}
ListLines, %lls%
return RegExReplace(RegExReplace(s,"10*$"),"[^01]+")
}
FindText_bit2base64(s)
{
local
s:=RegExReplace(s,"[^01]+")
s.=SubStr("100000",1,6-Mod(StrLen(s),6))
s:=RegExReplace(s,".{6}","|$0")
Chars:="0123456789+/ABCDEFGHIJKLMNOPQRSTUVWXYZ"
. "abcdefghijklmnopqrstuvwxyz"
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
Loop, Parse, Chars
{
i:=A_Index-1, v:="|" . (i>>5&1) . (i>>4&1)
. (i>>3&1) . (i>>2&1) . (i>>1&1) . (i&1)
s:=StrReplace(s,StrReplace(v,"0x"),A_LoopField)
}
ListLines, %lls%
return s
}
FindText_ASCII(s)
{
local
if RegExMatch(s,"\$(\d+)\.([\w+/]+)",r)
{
s:=RegExReplace(FindText_base64tobit(r2),".{" r1 "}","$0`n")
s:=StrReplace(StrReplace(s,"0","_"),"1","0")
}
else s=
return s
}
; You can put the text library at the beginning of the script,
; and Use FindText_PicLib(Text,1) to add the text library to PicLib()'s Lib,
; Use FindText_PicLib("comment1|comment2|...") to get text images from Lib
FindText_PicLib(comments, add_to_Lib:=0, index:=1)
{
local
static Lib:=[]
if (add_to_Lib)
{
re:="<([^>]*)>[^$]+\$\d+\.[\w+/]+"
Loop, Parse, comments, |
if RegExMatch(A_LoopField,re,r)
{
s1:=Trim(r1), s2:=""
Loop, Parse, s1
s2.="_" . Format("{:d}",Ord(A_LoopField))
Lib[index,s2]:=r
}
Lib[index,""]:=""
}
else
{
Text:=""
Loop, Parse, comments, |
{
s1:=Trim(A_LoopField), s2:=""
Loop, Parse, s1
s2.="_" . Format("{:d}",Ord(A_LoopField))
Text.="|" . Lib[index,s2]
}
return Text
}
}
FindText_PicN(Number, index:=1)
{
return FindText_PicLib(RegExReplace(Number,".","|$0"), 0, index)
}
; Use FindText_PicX(Text) to automatically cut into multiple characters
; Can't be used in ColorPos mode, because it can cause position errors
FindText_PicX(Text)
{
local
if !RegExMatch(Text,"\|([^$]+)\$(\d+)\.([\w+/]+)",r)
return Text
v:=FindText_base64tobit(r3), Text:=""
c:=StrLen(StrReplace(v,"0"))<=StrLen(v)//2 ? "1":"0"
wz:=RegExReplace(v,".{" r2 "}","$0`n")
While InStr(wz,c)
{
While !(wz~="m`n)^" c)
wz:=RegExReplace(wz,"m`n)^.")
i:=0
While (wz~="m`n)^.{" i "}" c)
i:=Format("{:d}",i+1)
v:=RegExReplace(wz,"m`n)^(.{" i "}).*","$1")
wz:=RegExReplace(wz,"m`n)^.{" i "}")
if (v!="")
Text.="|" r1 "$" i "." FindText_bit2base64(v)
}
return Text
}
; Screenshot and retained as the last screenshot.
FindText_ScreenShot(x1:="", y1:="", x2:="", y2:="")
{
local
if (x1+y1+x2+y2="")
n:=150000, x:=y:=-n, w:=h:=2*n
else
x:=(x1<x2 ? x1:x2), y:=(y1<y2 ? y1:y2)
, w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1
FindText_xywh2xywh(x,y,w,h,x,y,w,h,zx,zy,zw,zh)
FindText_GetBitsFromScreen(x,y,w,h,1,zx,zy,zw,zh)
}
; Get the RGB color of a point from the last screenshot.
; If the point to get the color is beyond the range of
; Screen, it will return White color (0xFFFFFF).
FindText_ScreenShot_GetColor(x,y)
{
local
return (!(bits:=FindText_GetBitsFromScreen(0,0,0,0,0,zx,zy,zw,zh))
or x<zx or x>zx+zw-1 or y<zy or y>zy+zh-1 or !bits.1)
? "0xFFFFFF" : Format("0x{:06X}"
, NumGet(bits.1+(y-zy)*bits.2+(x-zx)*4,"uint")&0xFFFFFF)
}
; Identify a line of text or verification code
; based on the result returned by FindText().
; offsetX is the maximum interval between two texts,
; if it exceeds, a "*" sign will be inserted.
; offsetY is the maximum height difference between
; the following text and the first text.
; Return Association array {ocr:Text, x:X, y:Y}
FindText_OcrOK(ok, offsetX:=20, offsetY:=20)
{
local
ocr_Text:=ocr_X:=ocr_Y:=min_X:=""
For k,v in ok
x:=v.1
, min_X:=(A_Index=1 or x<min_X ? x : min_X)
, max_X:=(A_Index=1 or x>max_X ? x : max_X)
While (min_X!="" and min_X<=max_X)
{
LeftX:=""
For k,v in ok
{
x:=v.1, y:=v.2, w:=v.3, h:=v.4
if (x<min_X) or Abs(y-ocr_Y)>offsetY
Continue
; Get the leftmost X coordinates
if (LeftX="" or x<LeftX)
LeftX:=x, LeftY:=y, LeftW:=w, LeftH:=h, LeftOCR:=v.id
else if (x=LeftX)
{
Loop, 100
{
err:=(A_Index-1)/100+0.000001
if FindText(LeftX,LeftY,LeftX+LeftW-1,LeftY+LeftH-1,err,err,Text,0)
Break
if FindText(x, y, x+w-1, y+h-1, err, err, Text, 0)
{
LeftX:=x, LeftY:=y, LeftW:=w, LeftH:=h, LeftOCR:=v.id
Break
}
}
}
}
if (ocr_X="")
ocr_X:=LeftX, ocr_Y:=LeftY
; If the interval exceeds the set value, add "*" to the result
ocr_Text.=(ocr_Text!="" and LeftX-min_X>offsetX ? "*":"") . LeftOCR
; Update min_X for next search
min_X:=LeftX+LeftW
}
return {ocr:ocr_Text, x:ocr_X, y:ocr_Y}
}
; Sort the results returned by FindText() from left to right
; and top to bottom, ignore slight height difference
FindText_SortOK(ok, dy:=10)
{
local
if !IsObject(ok)
return ok
ypos:=[]
For k,v in ok
{
x:=v.x, y:=v.y, add:=1
For k2,v2 in ypos
if Abs(y-v2)<=dy
{
y:=v2, add:=0
Break
}
if (add)
ypos.Push(y)
n:=(y*150000+x) "." k, s:=A_Index=1 ? n : s "-" n
}
Sort, s, N D-
ok2:=[]
Loop, Parse, s, -
ok2.Push( ok[(StrSplit(A_LoopField,".")[2])] )
return ok2
}
; Reordering according to the nearest distance
FindText_SortOK2(ok, px, py)
{
local
if !IsObject(ok)
return ok
For k,v in ok
{
x:=v.1+v.3//2, y:=v.2+v.4//2
n:=((x-px)**2+(y-py)**2) "." k
s:=A_Index=1 ? n : s "-" n
}
Sort, s, N D-
ok2:=[]
Loop, Parse, s, -
ok2.Push( ok[(StrSplit(A_LoopField,".")[2])] )
return ok2
}
; Prompt mouse position in remote assistance
FindText_MouseTip(x:="", y:="")
{
local
if (x="")
{
VarSetCapacity(pt,16,0), DllCall("GetCursorPos","ptr",&pt)
x:=NumGet(pt,0,"uint"), y:=NumGet(pt,4,"uint")
}
x:=Round(x-10), y:=Round(y-10), w:=h:=2*10+1
;-------------------------
Gui, _MouseTip_: +AlwaysOnTop -Caption +ToolWindow +Hwndmyid +E0x08000000
Gui, _MouseTip_: Show, Hide w%w% h%h%
;-------------------------
dhw:=A_DetectHiddenWindows
DetectHiddenWindows, On
d:=4, i:=w-d, j:=h-d
s=0-0 %w%-0 %w%-%h% 0-%h% 0-0
s=%s% %d%-%d% %i%-%d% %i%-%j% %d%-%j% %d%-%d%
WinSet, Region, %s%, ahk_id %myid%
DetectHiddenWindows, %dhw%
;-------------------------
Gui, _MouseTip_: Show, NA x%x% y%y%
Loop, 4
{
Gui, _MouseTip_: Color, % A_Index & 1 ? "Red" : "Blue"
Sleep, 500
}
Gui, _MouseTip_: Destroy
}
FindText_GetTextFromScreen(x1, y1, x2, y2, Threshold:=""
, ScreenShot:=1, ByRef rx:="", ByRef ry:="")
{
local
SetBatchLines, % (bch:=A_BatchLines)?"-1":"-1"
x:=(x1<x2 ? x1:x2), y:=(y1<y2 ? y1:y2)
, w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1
, FindText_xywh2xywh(x,y,w,h,x,y,w,h,zx,zy,zw,zh)
if (w<1 or h<1)
{
SetBatchLines, %bch%
return
}
ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"
FindText_GetBitsFromScreen(x,y,w,h,ScreenShot,zx,zy,zw,zh)
gc:=[], k:=0
Loop, %h% {
j:=y+A_Index-1
Loop, %w%
i:=x+A_Index-1, c:=FindText_ScreenShot_GetColor(i,j)
, gc[++k]:=(((c>>16)&0xFF)*38+((c>>8)&0xFF)*75+(c&0xFF)*15)>>7
}
Threshold:=StrReplace(Threshold,"*")
if (Threshold="")
{
pp:=[]
Loop, 256
pp[A_Index-1]:=0
Loop, % w*h
pp[gc[A_Index]]++
IP:=IS:=0
Loop, 256
k:=A_Index-1, IP+=k*pp[k], IS+=pp[k]
Threshold:=Floor(IP/IS)
Loop, 20
{
LastThreshold:=Threshold
IP1:=IS1:=0
Loop, % LastThreshold+1
k:=A_Index-1, IP1+=k*pp[k], IS1+=pp[k]
IP2:=IP-IP1, IS2:=IS-IS1
if (IS1!=0 and IS2!=0)
Threshold:=Floor((IP1/IS1+IP2/IS2)/2)
if (Threshold=LastThreshold)
Break
}
}
s:=""
Loop, % w*h
s.=gc[A_Index]<=Threshold ? "1":"0"
ListLines, %lls%
;--------------------
w:=Format("{:d}",w), CutUp:=CutDown:=0
re1=(^0{%w%}|^1{%w%})
re2=(0{%w%}$|1{%w%}$)
While RegExMatch(s,re1)
s:=RegExReplace(s,re1), CutUp++
While RegExMatch(s,re2)
s:=RegExReplace(s,re2), CutDown++
rx:=x+w//2, ry:=y+CutUp+(h-CutUp-CutDown)//2
s:="|<>*" Threshold "$" w "." FindText_bit2base64(s)
;--------------------
SetBatchLines, %bch%
return s
}
/***** C source code of machine code *****
int __attribute__((__stdcall__)) PicFind(
int mode, unsigned int c, unsigned int n
, int offsetX, int offsetY, unsigned char * Bmp
, int Stride, int sx, int sy, int sw, int sh
, unsigned char * gs, char * ss, char * text
, int * s1, int * s0, int * input, int num
, unsigned int * allpos, int allpos_max )
{
int o, i, j, x, y, r, g, b, rr, gg, bb, max, e1, e0, ok;
int o1, x1, y1, w1, h1, sx1, sy1, len1, len0, err1, err0;
int o2, x2, y2, w2, h2, sx2, sy2, len21, len20, err21, err20;
int r_min, r_max, g_min, g_max, b_min, b_max;
//----------------------
ok=0; w1=input[1]; h1=input[2];
len1=input[3]; len0=input[4];
err1=input[5]; err0=input[6];
max=len1>len0 ? len1 : len0;
//----------------------
// Generate Lookup Table
for (j=0; j<num; j+=7)
{
o=o1=o2=input[j]; w2=input[j+1]; h2=input[j+2];
for (y=0; y<h2; y++)
{
for (x=0; x<w2; x++)
{
i=(mode==3) ? y*Stride+x*4 : y*sw+x;
if (text[o++]=='1')
s1[o1++]=i;
else
s0[o2++]=i;
}
}
}
// Color Position Mode
// This mode is not support combination lookup
// only used to recognize multicolored Verification Code
if (mode==3)
{
c=(c/w1)*Stride+(c%w1)*4;
sx1=sx+sw-w1; sy1=sy+sh-h1;
for (y=sy; y<=sy1; y++)
{
for (x=sx; x<=sx1; x++)
{
o=y*Stride+x*4; e1=err1; e0=err0;
j=o+c; rr=Bmp[2+j]; gg=Bmp[1+j]; bb=Bmp[j];
for (i=0; i<max; i++)
{
if (i<len1)
{
j=o+s1[i]; r=Bmp[2+j]-rr; g=Bmp[1+j]-gg; b=Bmp[j]-bb;
if (3*r*r+4*g*g+2*b*b>n && (--e1)<0)
goto NoMatch3;
}
if (i<len0)
{
j=o+s0[i]; r=Bmp[2+j]-rr; g=Bmp[1+j]-gg; b=Bmp[j]-bb;
if (3*r*r+4*g*g+2*b*b<=n && (--e0)<0)
goto NoMatch3;
}
}
allpos[ok++]=y<<16|x;
if (ok>=allpos_max)
goto Return1;
NoMatch3:
continue;
}
}
goto Return1;
}
// Generate Two Value Image
o=sy*Stride+sx*4; j=Stride-4*sw; i=0;
if (mode==0) // Color Mode
{
rr=(c>>16)&0xFF; gg=(c>>8)&0xFF; bb=c&0xFF;
for (y=0; y<sh; y++, o+=j)
for (x=0; x<sw; x++, o+=4, i++)
{
r=Bmp[2+o]-rr; g=Bmp[1+o]-gg; b=Bmp[o]-bb;
ss[i]=(3*r*r+4*g*g+2*b*b<=n) ? 1:0;
}
}
else if (mode==1) // Gray Threshold Mode
{
c=(c+1)*128;
for (y=0; y<sh; y++, o+=j)
for (x=0; x<sw; x++, o+=4, i++)
ss[i]=(Bmp[2+o]*38+Bmp[1+o]*75+Bmp[o]*15<c) ? 1:0;
}
else if (mode==2) // Gray Difference Mode
{
for (y=0; y<sh; y++, o+=j)
{
for (x=0; x<sw; x++, o+=4, i++)
{
gs[i]=(Bmp[2+o]*38+Bmp[1+o]*75+Bmp[o]*15)>>7;
ss[i]=0;
}
}
sx1=sw-2; sy1=sh-2;
for (y=1; y<=sy1; y++)
for (x=1; x<=sx1; x++)
{
i=y*sw+x; j=gs[i]+c;
if ( gs[i-1]>j || gs[i+1]>j
|| gs[i-sw]>j || gs[i+sw]>j
|| gs[i-sw-1]>j || gs[i-sw+1]>j
|| gs[i+sw-1]>j || gs[i+sw+1]>j )
ss[i]=1;
}
}
else // (mode==4) Color Difference Mode
{
r=(c>>16)&0xFF; g=(c>>8)&0xFF; b=c&0xFF;
rr=(n>>16)&0xFF; gg=(n>>8)&0xFF; bb=n&0xFF;
r_min=r-rr; g_min=g-gg; b_min=b-bb;
r_max=r+rr; g_max=g+gg; b_max=b+bb;
for (y=0; y<sh; y++, o+=j)
for (x=0; x<sw; x++, o+=4, i++)
{
r=Bmp[2+o]; g=Bmp[1+o]; b=Bmp[o];
ss[i]=(r>=r_min && r<=r_max
&& g>=g_min && g<=g_max
&& b>=b_min && b<=b_max) ? 1:0;
}
}
// Start Lookup
sx1=sw-w1; sy1=sh-h1;
for (y=0; y<=sy1; y++)
{
for (x=0; x<=sx1; x++)
{
o=y*sw+x; e1=err1; e0=err0;
if (e0==len0)
{
for (i=0; i<len1; i++)
if (ss[o+s1[i]]!=1 && (--e1)<0)
goto NoMatch1;
}
else
{
for (i=0; i<max; i++)
{
if (i<len1 && ss[o+s1[i]]!=1 && (--e1)<0)
goto NoMatch1;
if (i<len0 && ss[o+s0[i]]!=0 && (--e0)<0)
goto NoMatch1;
}
}
//------------------
// Combination lookup
if (num>7)
{
x1=x+w1-1; y1=y-offsetY; if (y1<0) y1=0;
for (j=7; j<num; j+=7)
{
o2=input[j]; w2=input[j+1]; h2=input[j+2];
len21=input[j+3]; len20=input[j+4];
err21=input[j+5]; err20=input[j+6];
sx2=sw-w2; i=x1+offsetX; if (i<sx2) sx2=i;
sy2=sh-h2; i=y+offsetY; if (i<sy2) sy2=i;
for (x2=x1; x2<=sx2; x2++)
{
for (y2=y1; y2<=sy2; y2++)
{
o1=y2*sw+x2; e1=err21; e0=err20;
for (i=0; i<len21; i++)
{
if (ss[o1+s1[o2+i]]!=1 && (--e1)<0)
goto NoMatch2;
}
if (e0!=len20)
{
for (i=0; i<len20; i++)
if (ss[o1+s0[o2+i]]!=0 && (--e0)<0)
goto NoMatch2;
}
goto MatchOK;
NoMatch2:
continue;
}
}
goto NoMatch1;
MatchOK:
x1=x2+w2-1;
}
}
//------------------
allpos[ok++]=(sy+y)<<16|(sx+x);
if (ok>=allpos_max)
goto Return1;
// Clear the image that has been found
for (i=0; i<len1; i++)
ss[o+s1[i]]=0;
NoMatch1:
continue;
}
}
Return1:
return ok;
}
*/
;================= The End =================
;
