From b8046b2df6e309f8c2d9ed7bb0f64f3151e5ea43 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E7=9F=A5=E4=B8=80=E4=B8=80?= <1204244136@qq.com> Date: Thu, 1 May 2025 01:19:01 +0800 Subject: [PATCH] =?UTF-8?q?build:=20=E9=9B=86=E6=88=90FindText=E5=87=BD?= =?UTF-8?q?=E6=95=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/FindText.ahk | 3649 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 3649 insertions(+) create mode 100644 lib/FindText.ahk diff --git a/lib/FindText.ahk b/lib/FindText.ahk new file mode 100644 index 0000000..99ad688 --- /dev/null +++ b/lib/FindText.ahk @@ -0,0 +1,3649 @@ +;/* +;=========================================== +; FindText - 屏幕抓字生成字库工具与找字函数 +; https://www.autohotkey.com/boards/viewtopic.php?f=83&t=116471 +; +; 脚本作者 : FeiYue +; 最新版本 : 10.0 +; 更新时间 : 2024-10-06 +; +; 用法: (需要最新版本 AHK v2.0.2+) +; 1. 将本脚本保存为“FindText.ahk”并复制到AHK执行程序的Lib子目录中（手动建立目录） +; 2. 抓图并生成调用FindText()的代码 +; 2.1 方式一：直接点击“抓图”按钮 +; 2.2 方式二：先设定截屏热键，使用热键截屏，再点击“截屏抓图”按钮 +; 3. 测试一下调用的代码是否成功:直接点击“测试”按钮 +; 4. 复制调用的代码到自己的脚本中 +; 4.1 方式一：打勾“附加FindText()函数”的选框，然后点击“复制”按钮（不推荐） +; 4.2 方式二：取消“附加FindText()函数”的选框，然后点击“复制”按钮， +; 然后粘贴到自己的脚本中，然后在自己的脚本开头加上一行: +; #Include ; Lib目录中必须有FindText.ahk +; 5. 多色查找模式可以一定程度上适应图像的放大缩小，常用于游戏中找图 +; 6. 这个库还可以用于快速截屏、获取颜色、写入颜色、编辑后另存图片 +; 7. 如果要调用FindTextClass类中的函数，请用无参数的FindText()获取类实例对象 +; +;=========================================== +;*/ + + +if (!A_IsCompiled && A_LineFile=A_ScriptFullPath) + FindText().Gui("Show") + + +;===== 复制下面的函数和类到你的代码中仅仅一次 ===== + + +FindText(args*) +{ + static obj:=FindTextClass() + return !args.Length ? obj : obj.FindText(args*) +} + +Class FindTextClass +{ ;// Class Begin + +Floor(i) => IsNumber(i) ? i+0 : 0 + +__New() +{ + this.bits:={ Scan0: 0, hBM: 0, oldzw: 0, oldzh: 0 } + this.bind:={ id: 0, mode: 0, oldStyle: 0 } + this.Lib:=Map() + this.Cursor:=0 +} + +__Delete() +{ + if (this.bits.hBM) + Try DllCall("DeleteObject", "Ptr",this.bits.hBM) +} + +New() +{ + return FindTextClass() +} + +help() +{ +return " +( +;-------------------------------- +; FindText - 屏幕找字函数 +; 版本 : 10.0 (2024-10-06) +;-------------------------------- +; 返回变量:=FindText( +; &OutputX --> 保存返回的X坐标的变量名称 +; , &OutputY --> 保存返回的Y坐标的变量名称 +; , X1 --> 查找范围的左上角X坐标 +; , Y1 --> 查找范围的左上角Y坐标 +; , X2 --> 查找范围的右下角X坐标 +; , Y2 --> 查找范围的右下角Y坐标 +; , err1 --> 文字的黑点容错百分率（0.1=10%） +; , err0 --> 背景的白点容错百分率（0.1=10%） +; 设置 err1<0 或 err0<0 可以打开左右膨胀算法 +; 忽略文字线条的轻微错位，此时容错值应该非常小 +; 在找图模式中，err0 可以设置要跳过的行列数，加快速度 +; , Text --> 由工具生成的查找图像的数据，可以一次查找多个，用“|”分隔 +; , ScreenShot --> 是否截屏，为0则使用上一次的截屏数据 +; , FindAll --> 是否搜索所有位置，为0则找到一个位置就返回 +; , JoinText --> 如果想组合查找，可以为1，或者是要查找单词的数组 +; , offsetX --> 组合图像的每个字和前一个字的最大横向间隔 +; , offsetY --> 组合图像的每个字和前一个字的最大高低间隔 +; , dir --> 查找的方向，有上、下、左、右、中心9种 +; 默认 dir=0，这种返回的结果将按最小误差排序， +; 即使设置了较大的容错，第一个结果也是误差最小的 +; , zoomW --> 图像宽度的缩放百分率（1.0=100%） +; , zoomH --> 图像高度的缩放百分率（1.0=100%） +; ) +; +; 返回变量 --> 如果没找到结果会返回0。否则返回一个二级数组， +; 第一级是每个结果对象，第二级是结果对象的具体信息对象: +; { 1:左上角X, 2:左上角Y, 3:图像宽度W, 4:图像高度H +; , x:中心点X, y:中心点Y, id:图像识别文本 } +; 所有坐标都是相对于屏幕，颜色使用RGB格式 +; 所有 RRGGBB 可以使用 Black、White、Red、Green、Blue 代替， +; 所有 DRDGDB 可以使用相似度 1.0（100%） 代替，它是浮点数 +; +; 如果 OutputX 等于 'wait' 或 'wait1' 意味着等待图像出现， +; 如果 OutputX 等于 'wait0' 意味着等待图像消失 +; 此时 OutputY 设置等待时间的秒数，如果小于0则无限等待 +; 如果超时则返回0，意味着失败，如果等待图像出现成功，则返回位置数组 +; 如果等待图像消失成功，则返回 1 +; 例1: FindText(&X:='wait', &Y:=3, 0,0,0,0,0,0,Text) ; 等待3秒等图像出现 +; 例2: FindText(&X:='wait0', &Y:=-1, 0,0,0,0,0,0,Text) ; 无限等待等图像消失 +; +; 或 : 找色 是仅有一个点的 多点找色 +; Text:='|<>##DRDGDB $ 0/0/RRGGBB1-DRDGDB1/RRGGBB2, xn/yn/-RRGGBB3/RRGGBB4, ...' +; '##'之后的颜色 (0xDRDGDB) 是所有颜色的默认偏色（各个分量允许的变化值） +; 初始点 (0,0) 匹配 0xRRGGBB1(+/-0xDRDGDB1) 或者 0xRRGGBB2(+/-0xDRDGDB)， +; 点 (xn,yn) 匹配 排除 0xRRGGBB3(+/-0xDRDGDB) 和排除 0xRRGGBB4(+/-0xDRDGDB) +; 点坐标后面以 '-' 开头表示要排除后面的所有颜色，其他颜色都匹配 +; 每个点最多允许匹配10组颜色 (xn/yn/RRGGBB1/.../RRGGBB10) +; +; : 类似于 FindMultiColor，仅是把具体颜色替换为 +; 这一点的颜色是否与第一点的颜色是否相似 +; Text:='|<>##DRDGDB $ 0/0/1, x1/y1/0, x2/y2/1, xn/yn/0, ...' +; +; : Text 参数需要手动输入 +; Text:='|<>##DRDGDB/RRGGBB1-DRDGDB1/RRGGBB2... $ d:\a.bmp' +; '##'之后的颜色 (0xDRDGDB) 是所有颜色的默认偏色（各个分量允许的变化值） +; 这个 0xRRGGBB1(+/-0xDRDGDB1) 和 0xRRGGBB2(+/-0xDRDGDB)... 都是透明色 +; +;-------------------------------- +)" +} + +FindText(&OutputX:="", &OutputY:="" + , x1:=0, y1:=0, x2:=0, y2:=0, err1:=0, err0:=0, text:="" + , ScreenShot:=1, FindAll:=1, JoinText:=0, offsetX:=20, offsetY:=10 + , dir:=0, zoomW:=1, zoomH:=1) +{ + if IsSet(OutputX) && (OutputX ~= "i)^\s*wait[10]?\s*$") + { + found:=!InStr(OutputX, "0"), time:=this.Floor(OutputY ?? 0) + , timeout:=A_TickCount+Round(time*1000), OutputX:="" + Loop + { + ok:=this.FindText(,, x1, y1, x2, y2, err1, err0, text, ScreenShot + , FindAll, JoinText, offsetX, offsetY, dir, zoomW, zoomH) + if (found && ok) + { + OutputX:=ok[1].x, OutputY:=ok[1].y + return ok + } + if (!found && !ok) + return 1 + if (time>=0 && A_TickCount>=timeout) + Break + Sleep 50 + } + return 0 + } + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + if (x1=0 && y1=0 && x2=0 && y2=0) + n:=150000, x:=y:=-n, w:=h:=2*n + else + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + bits:=this.GetBitsFromScreen(&x,&y,&w,&h,ScreenShot,&zx,&zy), x-=zx, y-=zy + , this.ok:=0, info:=[] + Loop Parse, text, "|" + if IsObject(j:=this.PicInfo(A_LoopField)) + info.Push(j) + if (w<1 || h<1 || !(num:=info.Length) || !bits.Scan0) + { + return 0 + } + arr:=[], info2:=Map(), k:=0, s:="" + , mode:=(IsObject(JoinText) ? 2 : JoinText ? 1 : 0) + For i,j in info + { + k:=Max(k, (j[7]=5 && j[8]!=2 ? j[9] : j[2]*j[3])) + if (mode) + v:=(mode=1 ? i : j[10]) . "", s.="|" v + , (v!="") && ((!info2.Has(v) && info2[v]:=[]), info2[v].Push(j)) + } + sx:=x, sy:=y, sw:=w, sh:=h, (mode=1 && JoinText:=[s]) + , allpos_max:=(FindAll || JoinText ? 10000:1) + , s1:=Buffer(k*4), s0:=Buffer(k*4) + , ss:=Buffer(sw*(sh+3)), allpos:=Buffer(allpos_max*8) + , ini:={ sx:sx, sy:sy, sw:sw, sh:sh, zx:zx, zy:zy + , mode:mode, bits:bits, ss:ss.Ptr, s1:s1.Ptr, s0:s0.Ptr + , allpos:allpos.Ptr, allpos_max:allpos_max + , err1:err1, err0:err0, zoomW:zoomW, zoomH:zoomH } + Loop 2 + { + if (err1=0 && err0=0) && (num>1 || A_Index>1) + ini.err1:=err1:=0.05, ini.err0:=err0:=0.05 + if (!JoinText) + { + For i,j in info + Loop this.PicFind(ini, j, dir, sx, sy, sw, sh) + { + v:=NumGet(allpos,4*A_Index-4,"uint"), x:=(v&0xFFFF)+zx, y:=(v>>16)+zy + , w:=Floor(j[2]*zoomW), h:=Floor(j[3]*zoomH) + , arr.Push({1:x, 2:y, 3:w, 4:h, x:x+w//2, y:y+h//2, id:j[10]}) + if (!FindAll) + Break 3 + } + } + else + For k,v in JoinText + { + v:=StrSplit(Trim(RegExReplace(v, "\s*\|[|\s]*", "|"), "|") + , (InStr(v,"|")?"|":""), " `t") + , this.JoinText(arr, ini, info2, v, 1, offsetX, offsetY + , FindAll, dir, 0, 0, 0, sx, sy, sw, sh) + if (!FindAll && arr.Length) + Break 2 + } + if (err1!=0 || err0!=0 || arr.Length || info[1][4] || info[1][7]=5) + Break + } + if (arr.Length) + { + OutputX:=arr[1].x, OutputY:=arr[1].y, this.ok:=arr + return arr + } + return 0 +} + +; the join text object use [ "abc", "xyz", "a1|a2|a3" ] + +JoinText(arr, ini, info2, text, index, offsetX, offsetY + , FindAll, dir, minX, minY, maxY, sx, sy, sw, sh) +{ + if !(Len:=text.Length) || !info2.Has(key:=text[index]) + return 0 + zoomW:=ini.zoomW, zoomH:=ini.zoomH, mode:=ini.mode + For i,j in info2[key] + if (mode!=2 || key==j[10]) + Loop ok:=this.PicFind(ini, j, dir, sx, sy, (index=1 ? sw + : Min(sx+offsetX+Floor(j[2]*zoomW),ini.sx+ini.sw)-sx), sh) + { + if (A_Index=1) + { + pos:=[], p:=ini.allpos-4 + Loop ok + pos.Push(NumGet(p+=4,"uint")) + } + v:=pos[A_Index], x:=v&0xFFFF, y:=v>>16 + , w:=Floor(j[2]*zoomW), h:=Floor(j[3]*zoomH) + , (index=1 && (minX:=x, minY:=y, maxY:=y+h)) + , minY1:=Min(y, minY), maxY1:=Max(y+h, maxY), sx1:=x+w + if (index1 || !FindAll) + return 1 + } + else + { + comment:="" + For k,v in text + comment.=(mode=2 ? v : info2[v][1][10]) + x:=minX+ini.zx, y:=minY1+ini.zy, w:=sx1-minX, h:=maxY1-minY1 + , arr.Push({1:x, 2:y, 3:w, 4:h, x:x+w//2, y:y+h//2, id:comment}) + if (index>1 || !FindAll) + return 1 + } + } + return 0 +} + +PicFind(ini, j, dir, sx, sy, sw, sh) +{ + static MyFunc:="" + if (!MyFunc) + { + x32:="VVdWU4HsmAAAAIuEJNQAAAADhCTMAAAAi5wk@AAAAIO8JKwAAAAFiUQkIIuEJPgA" + . "AACNBJiJRCQ0D4RKBgAAi4Qk6AAAAIXAD45ADwAAiXwkEIu8JOQAAAAx7ccEJAAA" + . "AADHRCQIAAAAAMdEJBQAAAAAx0QkDAAAAACNtgAAAACLhCTgAAAAi0wkDDH2MdsB" + . "yIX@iUQkBH896ZAAAABmkA+vhCTMAAAAicGJ8Jn3@wHBi0QkBIA8GDF0TIuEJNwA" + . "AACDwwEDtCQAAQAAiQyog8UBOd90VIsEJJn3vCToAAAAg7wkrAAAAAR1tQ+vhCTA" + . "AAAAicGJ8Jn3@40MgYtEJASAPBgxdbSLRCQUi5Qk2AAAAIPDAQO0JAABAACJDIKD" + . "wAE534lEJBR1rAF8JAyDRCQIAYu0JAQBAACLRCQIATQkOYQk6AAAAA+FMv@@@4tE" + . "JBSLfCQQD6+EJOwAAACJbCQwwfgKiUQkKIuEJPAAAAAPr8XB+AqJRCRAg7wkrAAA" + . "AAQPhCIGAACLhCTAAAAAi5wkxAAAAA+vhCTIAAAAjSyYi4QkzAAAAIucJMAAAAD3" + . "2IO8JKwAAAABjQSDiUQkLA+ELwYAAIO8JKwAAAACD4Q4CAAAg7wkrAAAAAMPhLkL" + . "AACLjCTQAAAAhckPjicBAACLhCTMAAAAi6wkzAAAAMdEJAwAAAAAx0QkEAAAAACJ" + . "fCQYg+gBiUQkCI22AAAAAIt8JBCLtCTUAAAAMcCLXCQgAfsB94Xtif6J738X6bwA" + . "AADGBAYEg8ABg8MBOccPhKQAAACDvCSsAAAAA3@khcAPtgsPhLoPAAAPtlP@iVQk" + . "BDlEJAgPhMIPAAAPtlMBiRQki5Qk9AAAAIXSD4SfAQAAD7bpugYAAACD7QGD@QF2" + . "G4N8JAQBD5TCgzwkAYnVD5TCCeoPttIB0oPKBIHh@QAAAL0BAAAAdByLTCQEiywk" + . "hckPlEQkBIXtD5TBic0PtkwkBAnNCeqDwwGIFAaDwAE5xw+FXP@@@wF8JBCJ@YNE" + . "JAwBi0QkDDmEJNAAAAAPjwz@@@+LfCQYg7wkrAAAAAN@FouEJPQAAACFwA+VwDwB" + . "g5wkxAAAAP+LXCQUi3QkKDHAOfOLdCRAD07YiVwkFItcJDA58w9Pw4lEJDCLhCTM" + . "AAAAK4QkAAEAAIlEJASLhCTQAAAAK4QkBAEAAIO8JLgAAAAJiUQkCA+ExgAAAIuE" + . "JLgAAACD6AGD+AcPh7wCAACD+AOJRCQkD463AgAAi0QkBMdEJEQAAAAAx0QkDAAA" + . "AACJBCSLRCQIiUQkHItcJEQ5HCTHRCRMAAAAAA+MCwEAAItcJEw5XCQcD4zCDQAA" + . "i3QkRItcJCSLBCQp8PbDAg9Exot0JEyJwotEJBwp8PbDAQ9ExoP7A4nWD0@wD0@C" + . "iXQkGIlEJBDp3gsAAI12AA+20YPqAYP6AhnSg+ICg8IEgeH9AAAAD5TBCcqIFAbp" + . "8v3@@4tcJASLdCQIx0QkZAAAAADHRCRgAQAAAMdEJFQAAAAAx0QkWAAAAACJ2I1W" + . "AYk0JMHoH4lcJBzHRCQMAAAAAAHY0fiJRCQQifDB6B8B8NH4iUQkGInYg8ABicEP" + . "r8o50A9MwoPACIlMJHyJwQ+vyImMJIAAAACLXCR8OVwkZH0Zi5wkgAAAADlcJFjH" + . "RCRcAAAAAA+M9QQAAIuMJLgAAACFyQ+FnQIAAIuUJPgAAACF0g+EjgIAAIuEJAQB" + . "AAAPr4QkAAEAAIP4AQ+EdgIAAIN8JAwBD46lCgAAi0QkNIucJPgAAAAx7cdEJAQA" + . "AAAAiSwkjXgEi0QkDIPoAYlEJBCLRCQEiwwkizeLRAMEhcmJRCQIich4NotP@DnO" + . "D4N1BQAAifqNa@zrDY12AIPqBItK@DnOcxeJCotMhQSJTIMEg+gBg@j@deS4@@@@" + . "@4tMJDSDwAGDBCQBg8cEg0QkBASJNIGLdCQIiTSDiwQkO0QkEHWNi4QkBAEAAIus" + . "JAABAAAPr8APr+2JRCQEi7Qk+AAAAMdEJAgAAAAAMduLRCQIiwSGiUQkEA+3+MHo" + . "EIXbiQQkdC0xyY22AAAAAIsUjg+3win4D6@AOeh9D8HqECsUJA+v0jtUJAR8EYPB" + . "ATnZdduLRCQQiQSeg8MBg0QkCAGLRCQIOUQkDHWiidiBxJgAAABbXl9dwlwAx0Qk" + . "JAAAAACLRCQIx0QkRAAAAADHRCQMAAAAAIkEJItEJASJRCQc6UT9@@8xwIO8JLAA" + . "AAACD5TAiYQkhAAAAA+EUAQAADHAg7wksAAAAAGLrCS0AAAAD5TAhe2JRCR4D4SG" + . "CwAAi7Qk2AAAAIuUJLQAAAAx7YucJOAAAACLjCTcAAAAiXwkCI0ElolEJASNdCYA" + . "izuDxgSDw1iDwQSJ+MHoEA+vhCQEAQAAmfe8JOgAAAAPr4QkwAAAAIkEJA+3xw+v" + . "hCQAAQAAmfe8JOQAAACLFCSNBIKJRvyLQ6yNREUAg8UWiUH8O3QkBHWmi4QktAAA" + . "AIm8JLAAAACLfCQIiUQkFIuEJOwAAAAPr4QktAAAAMH4ColEJCiLhCTgAAAAx0Qk" + . "QAAAAADHRCQwAAAAAIPACIlEJFDpSfr@@4tEJAyBxJgAAABbXl9dwlwAi4QksAAA" + . "AMHoEA+vhCQEAQAAmfe8JOgAAAAPr4QkwAAAAInBD7eEJLAAAAAPr4QkAAEAAJn3" + . "vCTkAAAAjQSBiYQksAAAAOnt+f@@i4Qk6AAAAIu0JNAAAAAPr4Qk5AAAANGkJLQA" + . "AAADhCTgAAAAhfaJRCRQD47z+v@@i4QkzAAAAInqi2wkUMdEJCQAAAAAx0QkOAAA" + . "AADB4AKJRCRIMcCLnCTMAAAAhdsPjisBAACLnCS8AAAAAdMDVCRIiVwkEItcJCAD" + . "XCQ4iVQkPAOUJLwAAACJXCQYiVQkHI12AI28JwAAAACLdCQQMds5nCS0AAAAD7ZO" + . "AolMJAQPtk4BD7Y2iUwkCIl0JAx2W412AI28JwAAAACLRJ0Ag8MCi3yd@InCD7bM" + . "D7bAK0QkDMHqECtMJAgPttIrVCQEgf@@@@8AiQQkdyUPr9IPr8mNFFIPr8CNFIqN" + . "BEI5x3NGMcA5nCS0AAAAd6+JwutBif7B7hCJ8A+28A+v0g+v9jnyd92J+A+21A+v" + . "yQ+v0jnRd86LNCSJ+A+20A+v0onwD6@GOdB3uroBAAAAuAEAAACLXCQYg0QkEASL" + . "TCQQiBODwwE7TCQciVwkGA+FGv@@@4u0JMwAAAABdCQ4i1QkPINEJCQBA1QkLItc" + . "JCQ5nCTQAAAAD4Ws@v@@6U34@@+LRCQQhcB4G4tcJBw52H8Ti0QkGIXAeAuLHCQ5" + . "2A+ONwYAAItsJFSF7Q+F4AUAAINsJBgBg0QkXAGDRCRYAYt0JGA5dCRcfLiLXCRU" + . "idiD4AEBxonYg8ABiXQkYIPgA4lEJFTpvvr@@4uEJLAAAACLjCTQAAAAxwQkAAAA" + . "AMdEJAQAAAAAg8ABweAHiYQksAAAAIuEJMwAAADB4AKFyYlEJAwPjsz4@@+J6Ius" + . "JLAAAACJfCQQi5QkzAAAAIXSfmaLjCS8AAAAi1wkIIu8JLwAAAADXCQEAcEDRCQM" + . "iUQkCAHHjXYAjbwnAAAAAA+2UQIPtkEBD7Yxa8BLa9ImAcKJ8MHgBCnwAdA5xQ+X" + . "A4PBBIPDATn5ddWLnCTMAAAAAVwkBItEJAiDBCQBA0QkLIs8JDm8JNAAAAAPhXf@" + . "@@+LfCQQ6Qb3@@+LBCTprvr@@4uEJOgAAACLvCTgAAAAD6+EJOQAAADRpCS0AAAA" + . "jQSHiUQkUIuEJPAAAADB+AqDwAGJRCQki4Qk6AAAAIXAD45ECgAAi3wkJIuEJAQB" + . "AACLdCRQx0QkMAAAAADHRCQUAAAAAA+vx4lEJECLhCTkAAAAD6@HweACiUQkSIuE" + . "JOAAAACDwAKJRCQ4ifiNPL0AAAAAiXwkLInHD6+EJAABAACJfCQ8iUQkKIuEJOQA" + . "AACFwA+OaQEAAItEJDjHRCQcAAAAAIlEJBCLRCQkiUQkGItEJBC7AgAAAA+2OIk8" + . "JA+2eP8PtkD+iXwkBIlEJAg5nCS0AAAAD4bCAAAAiwSeg8MCi3ye@InCD7bMD7bA" + . "K0QkCMHqECtMJAQPttIrFCSB@@@@@wCJRCQMd0YPr9IPr8mNFFIPr8CNFIqNBEI5" + . "x3Kui3wkGItEJCSLTCQsAUwkEItMJCgBTCQcAfg5vCTkAAAAD465AAAAiUQkGOlf" + . "@@@@if3B7RCJ6A+26A+v0g+v7TnqD4dm@@@@ifgPttQPr8kPr9I50Q+HU@@@@4tM" + . "JAyJ+A+2+A+v@4nID6@BOfh2kDmcJLQAAAAPhz7@@@+LRCQwi3wkFJmNHL0AAAAA" + . "97wk6AAAAA+vhCTAAAAAicGLRCQcmfe8JOQAAACLFCTB4hCNBIGLjCTYAAAAiQS5" + . "i0QkBIPHAYl8JBSLvCTcAAAAweAICdALRCQIiQQf6SD@@@+LfCQ8i0QkJItMJEAB" + . "TCQwi0wkSAFMJDgB+Dm8JOgAAAB+CYlEJDzpXP7@@4tEJBQPr4Qk7AAAAMH4ColE" + . "JCiLRCRQx0QkQAAAAADHRCQwAAAAAIt4BIn4ifvB6BAPtteJ+w+2wA+2y4nDD6@Y" + . "idAPr8KJXCRwiUQkdInID6@BiUQkbOlH9P@@i4Qk0AAAAIXAD45u9f@@i5wkzAAA" + . "AItEJCDHBCQAAAAAx0QkBAAAAACJfCQMjQRYiUQkGInYweACiUQkCIu0JMwAAACF" + . "9n5Xi4wkvAAAAItcJBiLvCS8AAAAA1wkBAHpA2wkCAHvD7ZRAoPBBIPDAWvyJg+2" + . "Uf1rwkuNFAYPtnH8ifDB4AQp8AHQwfgHiEP@Ofl10ou8JMwAAAABfCQEgwQkAQNs" + . "JCyLBCQ5hCTQAAAAdYqLhCTMAAAAi3wkDDHti5QktAAAADH2g+gBiXwkJIlEJAyL" + . "hCTQAAAAg+gBiUQkEIucJMwAAACF2w+O4gAAAIu8JMwAAACLRCQYAfeNDDCJ+4l8" + . "JByJxwHfifMrnCTMAAAAiXwkBIt8JCABwwH3McCJfCQIiRwkhcAPhGQDAAA5RCQM" + . "D4RaAwAAhe0PhFIDAAA5bCQQD4RIAwAAD7YRD7Z5@74BAAAAA5QksAAAADn6ckYP" + . "tnkBOfpyPos8JA+2Pzn6cjSLXCQED7Y7OfpyKYs8JA+2f@85+nIeizwkD7Z@ATn6" + . "chMPtnv@OfpyCw+2cwE58g+Sw4nei3wkCInziBwHg8ABg8EBg0QkBAGDBCQBOYQk" + . "zAAAAA+FWv@@@4t0JByDxQE5rCTQAAAAD4X@@v@@i3wkJImUJLQAAADpY@L@@8dE" + . "JEAAAAAAx0QkKAAAAADHRCQwAAAAAMdEJBQAAAAA6cfx@@+DfCRUAQ+E6gEAAIN8" + . "JFQCD4SVAgAAg2wkEAHpBfr@@4uEJAQBAACLrCQAAQAAD6@AD6@tiUQkBItEJAyF" + . "wA+P6PX@@zHA6VL2@@+DRCRkAcdEJCQJAAAAi0QkGIucJNQAAAAPr4QkzAAAAANE" + . "JBCAPAMDD4ZnAQAAi3QkFItcJDA53g9N3oO8JKwAAAADiVwkIA+OdQEAAItEJBgD" + . "hCTIAAAAD6+EJMAAAACLVCQQA5QkxAAAAIO8JKwAAAAFD4RsAgAAjTSQi4QksAAA" + . "AIucJLwAAAAB8A+2XAMCiVwkOIucJLwAAAAPtlwDAYlcJDyLnCS8AAAAD7YEA4lE" + . "JEiLRCQghcAPhKoBAACLRCRAiXwkLDHbi2wkKIu8JLwAAACJRCRo62KNtCYAAAAA" + . "OVwkMH5Ii4Qk3AAAAIsUmAHyD7ZEFwIPtkwXAStEJDgrTCQ8D7YUFytUJEgPr8AP" + . "r8mNBEAPr9KNBIiNBFA5hCS0AAAAcgeDbCRoAXhhg8MBOVwkIA+EogEAADlcJBR+" + . "n4uEJNgAAACLFJgB8g+2RBcCD7ZMFwErRCQ4K0wkPA+2FBcrVCRID6@AD6@JjQRA" + . "D6@SjQSIjQRQOYQktAAAAA+DWv@@@4PtAQ+JUf@@@4t8JCyDfCQkCQ+EKfj@@4NE" + . "JEwB6Try@@+DRCQQAekm+P@@g0QkRAHpEfL@@410JgCF2w+EoAAAAAOEJNQAAACL" + . "XCRAMdKLbCQoicHrJTlUJDB+Fou0JNwAAACLBJYByPYAAXUFg+sBeJqDwgE5VCQg" + . "dGo5VCQUftWLtCTYAAAAiwSWAcj2AAJ1xIPtAXm@6XD@@@@HRCQEAwAAAOlB8P@@" + . "i3wkCMYEBwLpEf3@@8cEJAMAAADpOfD@@8dEJCgAAAAAx0QkFAAAAADpGPX@@4NE" + . "JBgB6XD3@@+LbCQoi4Qk+AAAAINEJAwBhcAPhMoDAACLVCQYA5QkyAAAAItcJAyL" + . "RCQQA4QkxAAAAIu0JPgAAADB4hCNi@@@@z8J0IkEjou0JLgAAACF9g+F0gIAAItE" + . "JCiLdCQ0Keg5nCT8AAAAiQSOD44z8v@@6bb+@@+LfCQs64mLtCSEAAAAjQSQiUQk" + . "PIX2D4WuAQAAi1wkIItEJFAx9otsJCiF24lEJGgPhFn@@@+LhCTYAAAAi1wkaItU" + . "JDwDFLCJXCRIa8YWgTv@@@8AiUQkOA+XwA+2wIlEJCyLhCTcAAAAiwSwiYQktAAA" + . "AIuEJLwAAAAPtkQQAomEJIwAAADB4BCJwYuEJLwAAAAPtkQQAYmEJJAAAADB4AgJ" + . "yIuMJLwAAAAPtgwRCciJjCSUAAAAiYQkiAAAAOsfD6@SD6@JjRRSD6@AjRSKjQRC" + . "OccPg70AAACDRCRICItEJDg7hCS0AAAAD4PPAAAAi1QkeIt8JEiDRCQ4AoXSiweL" + . "fwR0JoX2i5wkiAAAAA9FnCSwAAAAhcAPlMAPtsCJRCQsiZwksAAAAInYicIPtswP" + . "tsDB6hArjCSQAAAAK4QklAAAAA+20iuUJIwAAACB@@@@@wAPhmX@@@+J+8HrEA+2" + . "2w+v0g+v2znaD4dp@@@@ifsPttcPr8kPr9I50Q+HVv@@@4n7D7bTD6@AD6@SOdAP" + . "h0P@@@+LRCQshcB0CYPtAQ+IDf3@@4PGAYNEJGhYOXQkIA+Fe@7@@+nP@f@@i0Qk" + . "LIXAdeHr1otMJCCLbCQohckPhLX9@@8x9usuOUQkcHwSD6@JOUwkdHwJD6@SOVQk" + . "bH0Jg+0BD4i3@P@@g8YBOXQkIA+Eg@3@@4uEJNgAAACLVCQ8i5wkvAAAAAMUsIuE" + . "JNwAAACLBLCJhCSwAAAAi4QkvAAAAIuMJLAAAAAPtkQQAsHpEA+2ySnID7ZMEwGL" + . "nCSwAAAAD6@AD7bfKdmLnCS8AAAAD7YUEw+2nCSwAAAAKdqB@@@@@wAPh1z@@@8P" + . "r8mNBEAPr9KNBIiNBFA5xw+CXf@@@+lh@@@@x0QkKAAAAADHRCQUAAAAAOnC9@@@" + . "i1wkDDmcJPwAAACJ2A+OrfD@@4tcJBgxyYnOidgrhCQEAQAAg8ABD0jBicKJ2Iuc" + . "JAQBAACNRBj@i1wkCDnDD07Di1wkEInFidgrhCQAAQAAg8ABD0nwidiLnCQAAQAA" + . "jUQY@4tcJAQ5ww9OwznVicMPjIz7@@+LhCTMAAAAg8UBD6@CA4Qk1AAAAInBjUMB" + . "iUQkIDnefw+J8IAkAQODwAE7RCQgdfODwgEDjCTMAAAAOep13+lJ+@@@i6wkuAAA" + . "AIXtD4VK@@@@6TX7@@+QkA==" + x64:="QVdBVkFVQVRVV1ZTSIHsyAAAAEhjhCRQAQAASIu8JKgBAACJjCQQAQAAiVQkMESJ" + . "jCQoAQAAi7QkgAEAAIusJIgBAABJicRIiUQkWEgDhCRgAQAAg@kFSIlEJChIY4Qk" + . "sAEAAEiNBIdIiUQkYA+E3AUAAIXtD44BDAAARTH2iVwkEIu8JLgBAABEiXQkCIuc" + . "JBABAABFMe1Mi7QkcAEAAEUx20Ux@0SJbCQYRImEJCABAABMY1QkCEUxyUUxwEwD" + . "lCR4AQAAhfZ@Mut3Dx9AAEEPr8SJwUSJyJn3@gHBQ4A8AjF0PEmDwAFJY8dBAflB" + . "g8cBRDnGQYkMhn5DRInYmff9g@sEdckPr4QkOAEAAInBRInImff+Q4A8AjGNDIF1" + . "xEiLlCRoAQAASYPAAUljxUEB+UGDxQFEOcaJDIJ@vQF0JAiDRCQYAUQDnCTAAQAA" + . "i0QkGDnFD4VX@@@@RInoi1wkEESLhCQgAQAAD6+EJJABAABEiWwkGMH4ColEJByL" + . "hCSYAQAAQQ+vx8H4ColEJECDvCQQAQAABA+EtwUAAIuEJDgBAACLvCRAAQAAD6+E" + . "JEgBAACNBLiLvCQ4AQAAiUQkCESJ4PfYg7wkEAEAAAGNBIeJRCQgD4SxBQAAg7wk" + . "EAEAAAIPhIQHAACDvCQQAQAAAw+EowoAAIuEJFgBAACFwA+OHwEAAESJfCQQRIuc" + . "JBABAABBjWwk@0yLfCQoi7wkoAEAAEUx9kUx7YlcJAhEiYQkIAEAAA8fhAAAAAAA" + . "RYXkD467AAAASWPFMclJicFNjUQHAUwDjCRgAQAA6xhBxgEEg8EBSYPBAUmDwAFB" + . "OcwPhIkAAABBg@sDf+KFyUEPtlD@D4S1DgAAQQ+2WP45zQ+Euw4AAEUPthCF@w+E" + . "fAEAAA+28rgGAAAAg+4Bg@4BdhiD+wFAD5TGQYP6AQ+UwAnwD7bAAcCDyASB4v0A" + . "AAC+AQAAAHQOhdtAD5TGRYXSD5TCCdYJ8IPBAUmDwQFBiEH@SYPAAUE5zA+Fd@@@" + . "@0UB5UGDxgFEObQkWAEAAA+PKv@@@4tcJAhEi3wkEESLhCQgAQAAg7wkEAEAAAN@" + . "FouEJKABAACFwA+VwDwBg5wkQAEAAP+LfCQYi3QkHDHARInlRIucJFgBAAA59w9O" + . "+EQ7fCRAiXwkGEQPTvgrrCS4AQAARCucJMABAACDvCQoAQAACQ+EuQAAAIuEJCgB" + . "AACD6AGD+AcPh5ACAACD+AOJRCRID46LAgAAiWwkCESJXCQQRTH2x0QkTAAAAACL" + . "fCRMOXwkCMdEJGgAAAAAD4wNAQAAi3wkaDl8JBAPjNIMAACLfCRIi3QkTItEJAgp" + . "8ED2xwIPRMaLdCRoicKLRCQQKfBA9scBD0TGg@8DidcPT@gPT8JBicXptgoAAGaQ" + . "D7bCg+gBg@gCGcCD4AKDwASB4v0AAAAPlMIJ0EGIAekg@v@@iehBjVMBRIlcJAjB" + . "6B+JbCQQx4QkiAAAAAAAAAAB6MeEJIQAAAABAAAAx0QkbAAAAADR+MdEJHwAAAAA" + . "QYnFRInYwegfRAHY0fiJx41FAYnGD6@yOdAPTMJFMfaDwAiJtCSkAAAAicYPr@CJ" + . "tCSoAAAAi7QkpAAAADm0JIgAAAB9HIu0JKgAAAA5dCR8x4QkgAAAAAAAAAAPjEYE" + . "AACLhCQoAQAAhcAPhV0CAABIg7wkqAEAAAAPhE4CAACLhCTAAQAAD6+EJLgBAACD" + . "+AEPhDYCAABBg@4BD45dCQAAQY1G@kyLRCRgTIucJKgBAABFMclFMdJIjRyFBAAA" + . "AEOLdAgEQ4sUCESJ0UOLfAsETInQOdZyE+kJBAAAZpBIg+gBQYsUgDnWcx1BiVSA" + . "BEGLFIOD6QGD+f9BiVSDBHXeSMfA@@@@@0mDwQRIg8ABSYPCAUk52UGJNIBBiTyD" + . "dZ9Ei5QkuAEAAIucJMABAABFD6@SD6@bTIuMJKgBAAAx9jHAQYsssYnvRA+33cHv" + . "EIXAdDJFMcAPH4QAAAAAAEOLDIEPt9FEKdoPr9JEOdJ9DMHpECn5D6@JOdl8E0mD" + . "wAFEOcB@2Uhj0IPAAUGJLJFIg8YBQTn2f6pIgcTIAAAAW15fXUFcQV1BXkFfw8dE" + . "JEgAAAAARIlcJAiJbCQQRTH2x0QkTAAAAADpcP3@@4tEJDAx@4P4AkAPlMeJvCSs" + . "AAAAD4SpAwAAMcCDfCQwAQ+UwEWFwImEJKAAAAAPhNsKAABEiaQkUAEAAEyLlCR4" + . "AQAARTHJi7wkOAEAAEyLpCRoAQAARTHbTIusJHABAABEi7QkuAEAAESLvCTAAQAA" + . "iVwkGEGLGkmDwliJ2MHoEEEPr8eZ9@0Pr8eJwQ+3w0EPr8aZ9@6NBIFDiQSMQYtC" + . "rEGNBENBg8MWQ4lEjQBJg8EBRTnId72LhCSQAQAARIukJFABAACJXCQwi1wkGESJ" + . "RCQYQQ+vwMH4ColEJBxIi4QkeAEAAMdEJEAAAAAARTH@SIPACEiJBCTpq@r@@0SJ" + . "8OnE@v@@i3wkMIn4wegQD6+EJMABAACZ9@0Pr4QkOAEAAInBD7fHD6+EJLgBAACZ" + . "9@6NBIGJRCQw6Wv6@@+J6ESLjCRYAQAARQHAD6@GSJhIA4QkeAEAAEWFyUiJBCQP" + . "jnL7@@9CjTylAAAAAMdEJBAAAAAAMcDHRCRIAAAAAESJfCR4iXwkUEWF5A+O6QAA" + . "AEhjVCQISIu8JDABAABFMe1MY3QkSEwDdCQoSI1sFwJMiwwkRTHSD7Z9AA+2df9E" + . "D7Zd@usmZi4PH4QAAAAAAA+vyQ+v0o0MSQ+vwI0UkY0EQjnDc2hJg8EIMcBFOcIP" + . "gxsBAABBiwFBi1kEQYPCAonBD7bUD7bAwekQKfJEKdgPtskp+YH7@@@@AHazQYnf" + . "QcHvEEUPtv8Pr8lFD6@@RDn5d7IPts8Pr9IPr8k5ynelD7bTD6@AD6@SOdB3mLoB" + . "AAAAuAEAAABDiBQuSYPFAUiDxQRFOewPj0P@@@+LdCRQRAFkJEgBdCQIg0QkEAGL" + . "VCQgi3wkEAFUJAg5vCRYAQAAD4Xw@v@@RIt8JHjpFvn@@0WF7XgVRDtsJBB@DoX@" + . "eAo7fCQID464BQAAi0QkbIXAD4WNBQAAg+8Bg4QkgAAAAAGDRCR8AYuUJIQAAAA5" + . "lCSAAAAAfLqLdCRsifCD4AEBwonwg8ABiZQkhAAAAIPgA4lEJGzpW@v@@w8fRAAA" + . "icLpQf@@@0yJ0Oka@P@@i0QkMIuMJFgBAAAx9jH@Qo0spQAAAACDwAHB4AeFyYlE" + . "JDAPjo@5@@9Ei3QkCESLbCQwRYXkflVIi5QkMAEAAExj30wDXCQoSWPGRTHJSI1M" + . "AgIPthEPtkH@RA+2Uf5rwEtr0iYBwkSJ0MHgBEQp0AHQQTnFQw+XBAtJg8EBSIPB" + . "BEU5zH@MQQHuRAHng8YBRAN0JCA5tCRYAQAAdZXp9vf@@4noRQHAD6@GweACSJhI" + . "A4QkeAEAAEiJBCSLhCSYAQAAwfgKg8ABhe2JRCQID46VCgAAi3wkCIuEJMABAADH" + . "RCRIAAAAAMdEJBgAAAAARImkJFABAACJrCSIAQAAD6@HiXwkUIlEJHiJ+A+vxsHg" + . "AkiYSIlEJHBIi4QkeAEAAEiJRCRAifjB4AJImEiJRCQQi4QkuAEAAA+vx4lEJBxI" + . "iwQkSIPACEiJRCQghfYPjiYBAABIi3wkQESLZCQIMe0Ptl8CTItMJCBBvgIAAABE" + . "D7ZXAUQPth9Bid3rHQ8fAA+v2w+v0o0cWw+vwI0Uk40EQjnBc2pJg8EIRTnwD4Z9" + . "AAAAQYsBQYtJBEGDxgKJww+21A+2wMHrEEQp0kQp2A+220Qp64H5@@@@AHazQYnP" + . "QcHvEEUPtv8Pr9tFD6@@RDn7d7IPtt0Pr9IPr9s52nelD7bJD6@AD6@JOch3mGaQ" + . "i0QkCEgDfCQQA2wkHEQB4EQ55n5lQYnE6UP@@@8PHwCLRCRIRIt0JBhEievB4xBB" + . "weIIQQnamU1jzkUJ2ve8JIgBAAAPr4QkOAEAAInBieiZ9@5Ii5QkaAEAAI0EgUKJ" + . "BIpEifCDwAGJRCQYSIuEJHABAABGiRSI64aLfCRQi0QkCItUJHgBVCRISItUJHBI" + . "AVQkQAH4ObwkiAEAAH4JiUQkUOmk@v@@i0QkGESLpCRQAQAAD6+EJJABAADB+AqJ" + . "RCQcSIsEJMdEJEAAAAAARTH@i1gEidgPts8PttPB6BAPtsCJxw+v+InID6@Bibwk" + . "mAAAAImEJJwAAACJ0A+vwomEJJQAAADpffX@@8dEJEAAAAAAx0QkHAAAAABFMf@H" + . "RCQYAAAAAOn19P@@i5QkWAEAAIXSD4589v@@Q40EZESLdCQIQo0spQAAAAAx9jH@" + . "SJhIA4QkYAEAAEmJxUWF5H5aSIuUJDABAABJY8ZMY99FMclNAetIjUwCAg8fRAAA" + . "D7YRSIPBBERr0iYPtlH7a8JLQY0UAkQPtlH6RInQweAERCnQAdDB+AdDiAQLSYPB" + . "AUU5zH@KQQHuRAHng8YBRAN0JCA5tCRYAQAAdZBIi3wkWDHSQY1sJP9EiXwkSEUx" + . "0olcJCBBiddIifhIg8ABSIlEJAi4AQAAAEiJxouEJFgBAABIKf6LfCQwSIl0JBBE" + . "jXD@RYXkD47TAAAASItEJAhNY99Ii3QkKEuNVB0BTo0MGEiLRCQQTAHeTQHpSo0M" + . "GDHATAHpZi4PH4QAAAAAAEiFwA+EgQMAADnFD4R5AwAARYXSD4RwAwAARTnWD4Rn" + . "AwAARA+2Qv9ED7Za@rsBAAAAQQH4RTnYckZED7YaRTnYcj1ED7ZZ@0U52HIzRQ+2" + . "Wf9FOdhyKUQPtln+RTnYch9ED7YZRTnYchZFD7ZZ@kU52HIMRQ+2GUU52A+Sw2aQ" + . "iBwGSIPAAUiDwgFJg8EBSIPBAUE5xA+PZP@@@0UB50GDwgFEOZQkWAEAAA+FEv@@" + . "@4tcJCBEi3wkSOmJ8@@@RIuUJLgBAACLnCTAAQAAMcBFD6@SD6@bRYX2D4569@@@" + . "6RP3@@+DfCRsAQ+E@AEAAIN8JGwCD4S4AgAAQYPtAelX+v@@g4QkiAAAAAHHRCRI" + . "CQAAAIn4SIu0JGABAABBD6@ERo0MKEljwYA8BgMPhqQBAACLRCQYRDn4QQ9Mx4O8" + . "JBABAAADiUQkIA+OsAEAAIuEJEgBAACLlCRAAQAAAfhEAeoPr4QkOAEAAIO8JBAB" + . "AAAFD4TAAgAARI0MkItEJDBIi7QkMAEAAESLVCQgRAHIjVACRYXSSGPSD7Y0Fo1Q" + . "AUiYSGPSiXQkUEiLtCQwAQAAD7Y0Fol0JHhIi7QkMAEAAA+2BAaJRCRwD4TrAQAA" + . "i0QkQESJXCQoRTHSi3QkHEyLnCQwAQAAiYQkjAAAAOtyRDu8JJAAAAB+WUiLhCRw" + . "AQAAQosUkEQByo1CAo1KAUhj0kEPthQTSJhIY8krVCRwQQ+2BANBD7YMCytEJFAr" + . "TCR4D6@SD6@AD6@JjQRAjQSIjQRQQTnAcgqDrCSMAAAAAXh+SYPCAUQ5VCQgD47P" + . "AQAARDlUJBhEiZQkkAAAAA+Oe@@@@0iLhCRoAQAAQosUkEQByo1CAo1KAUhj0kEP" + . "thQTSJhIY8krVCRwQQ+2BANBD7YMCytEJFArTCR4D6@SD6@AD6@JjQRAjQSIjQRQ" + . "QTnAD4Mo@@@@g+4BD4kf@@@@RItcJCiDfCRICQ+Eavj@@4NEJGgB6Snz@@9Bg8UB" + . "6Wb4@@+DRCRMAekA8@@@kIXAD4SzAAAARItUJECLdCQcMcnrM0Q7fCQofiJIi5Qk" + . "cAEAAESJyAMEikiLlCRgAQAA9gQCAXUGQYPqAXiZSIPBATlMJCB+dzlMJBiJTCQo" + . "fsNIi4QkaAEAAESJygMUiEiLhCRgAQAA9gQQAnWng+4BeaLpX@@@@w8fhAAAAAAA" + . "uwMAAADpRvH@@8YEBgLp8Pz@@0G6AwAAAOk+8f@@x0QkHAAAAADHRCQYAAAAAOm7" + . "9f@@g8cB6aD3@@+LdCQcQYPGAUiDvCSoAQAAAA+EHQQAAEljxouUJEgBAABIjQyF" + . "AAAAAIuEJEABAAAB+sHiEEQB6AnQSIuUJKgBAACJRAr8i5QkKAEAAIXSD4UeAwAA" + . "i0QkHCnwRDm0JLABAABIi3QkYIlEDvwPjhPz@@@ppf7@@0SLXCQo64aNBJCJRCQo" + . "i4QkrAAAAIXAD4XjAQAAi0QkIIXAD4Rg@@@@SIsEJIt0JBxFMcnHRCR4AAAAAESJ" + . "dCRwRIm8JIwAAABEiZwkkAAAAEiJRCRQSIuEJGgBAACLTCQoTIu8JDABAABMi1Qk" + . "UEyLhCRwAQAARItcJHhCAwyIQYE6@@@@AEeLBIiNUQKNQQFIY8lBD5fGSGPSSJhF" + . "D7b2QQ+2FBdBD7YEB4mUJLQAAACJhCS4AAAAweIQweAICdBBD7YUDwnQiZQkvAAA" + . "AImEJLAAAADrHg+v0g+vyY0UUg+vwI0Uio0EQjnDD4OvAAAASYPCCEU5ww+D4AAA" + . "AESLvCSgAAAAQYPDAkGLAkGLWgRFhf90Hk2FyYtUJDAPRJQksAAAAEUx9oXAQQ+U" + . "xolUJDCJ0InCD7bMD7bAweoQK4wkuAAAACuEJLwAAAAPttIrlCS0AAAAgfv@@@8A" + . "D4Z0@@@@QYnfQcHvEEUPtv8Pr9JFD6@@RDn6D4dz@@@@D7bXD6@JD6@SOdEPh2L@" + . "@@8PttMPr8APr9I50A+HUf@@@0WF9nQFg+4BeDtJg8EBSINEJFBYg0QkeBZEOUwk" + . "IA+Pkf7@@0SLdCRwRIu8JIwAAABEi5wkkAAAAOmu@f@@RYX2dcfrwESLdCRwRIu8" + . "JIwAAABEi5wkkAAAAOml@P@@i0QkIIt0JByFwA+Eff3@@0Ux0us5OYQkmAAAAHwY" + . "D6@JOYwknAAAAHwMD6@SOZQklAAAAH0Jg+4BD4hm@P@@SYPCAUQ5VCQgD44@@f@@" + . "SIuEJGgBAACLVCQoTIuMJDABAABCAxSQSIuEJHABAABCiwSQicGNQgKJTCQwwekQ" + . "SJgPtslBD7YEASnIjUoBSGPSD6@ASGPJRQ+2DAlIi0wkMA+2zUEpyUSJyUyLjCQw" + . "AQAAQQ+2FBFED7ZMJDBEKcqB+@@@@wAPh0r@@@8Pr8mNBEAPr9KNBIiNBFA5ww+C" + . "VP@@@+lY@@@@x0QkHAAAAADHRCQYAAAAAOlF9@@@RDm0JLABAABEifAPjhvx@@+J" + . "+CuEJMABAABFMdKDwAFBD0jCicGLhCTAAQAAjUQH@0E5w0EPTsOJxkSJ6CuEJLgB" + . "AACDwAFED0nQi4QkuAEAAEGNRAX@OcUPTsU5zolEJCAPjEH7@@9EieJJY8IPr9FI" + . "Y9JIAdBIA4QkYAEAAEmJwY1GAYlEJCiLRCQgRCnQSI1wAUQ7VCQgfxNKjRQOTInI" + . "gCADSIPAAUg50HX0g8EBTANMJFg7TCQoddjp6Pr@@4uMJCgBAACFyQ+FQf@@@+nU" + . "+v@@kJCQkJCQkJCQkJCQkA==" + MyFunc:=this.MCode(StrReplace((A_PtrSize=8?x64:x32),"@","/")) + } + text:=j[1], w:=j[2], h:=j[3] + , err1:=this.Floor(j[4] ? j[5] : ini.err1) + , err0:=this.Floor(j[4] ? j[6] : ini.err0) + , mode:=j[7], color:=j[8], n:=j[9] + ok:=(!ini.bits.Scan0 || mode<1 || mode>5) ? 0 + : DllCall(MyFunc.Ptr, "int",mode, "uint",color, "uint",n, "int",dir + , "Ptr",ini.bits.Scan0, "int",ini.bits.Stride + , "int",sx, "int",sy, "int",sw, "int",sh + , "Ptr",ini.ss, "Ptr",ini.s1, "Ptr",ini.s0 + , "Ptr",text, "int",w, "int",h + , "int",Floor(Abs(err1)*1024), "int",Floor(Abs(err0)*1024) + , "int",(err1<0||err0<0), "Ptr",ini.allpos, "int",ini.allpos_max + , "int",Floor(w*ini.zoomW), "int",Floor(h*ini.zoomH)) + return ok +} + +code() +{ +return " +( + +//***** C source code of machine code ***** +// gcc.exe -m32/-m64 -O2 + +int __attribute__((__stdcall__)) PicFind( + int mode, unsigned int c, unsigned int n, int dir + , unsigned char * Bmp, int Stride + , int sx, int sy, int sw, int sh + , unsigned char * ss, unsigned int * s1, unsigned int * s0 + , unsigned char * text, int w, int h + , int err1, int err0, int more_err + , unsigned int * allpos, int allpos_max + , int new_w, int new_h ) +{ + int ok, o, i, j, k, v, e1, e0, len1, len0, max, pic, shape, sort; + int x, y, x1, y1, x2, y2, x3, y3, r, g, b, rr, gg, bb, dR, dG, dB; + int ii, jj, RunDir, DirCount, RunCount, AllCount1, AllCount2; + unsigned int c1, c2, *cors, *arr; + unsigned char *ts, *gs; + ok=0; o=0; v=0; len1=0; len0=0; ts=ss+sw; gs=ss+sw*3; + arr=allpos+allpos_max; sort=(dir==0); + //---------------------- + if (mode==5) + { + if (pic=(c==2)) // FindPic + { + cors=(unsigned int *)(text+w*h*4); j=(err0>>10)+1; n*=2; + for (y=0; y>16)&0xFF)-rr; g=((c1>>8)&0xFF)-gg; b=(c1&0xFF)-bb; + v=(c2<0x1000000) ? (3*r*r+4*g*g+2*b*b<=c2) + : (r*r<=((c2>>16)&0xFF)*((c2>>16)&0xFF) + && g*g<=((c2>>8)&0xFF)*((c2>>8)&0xFF) && b*b<=(c2&0xFF)*(c2&0xFF)); + if (v) goto NoMatch1; + } + s1[len1]=(y*new_h/h)*Stride+(x*new_w/w)*4; + s0[len1++]=rr<<16|gg<<8|bb; + NoMatch1:; + } + } + c2=cors[1]; r=(c2>>16)&0xFF; g=(c2>>8)&0xFF; b=c2&0xFF; dR=r*r; dG=g*g; dB=b*b; + } + else // FindMultiColor or FindColor + { + shape=(c==1); // FindShape + cors=(unsigned int *)text; + for (i=0; i>16; x=c&0xFFFF; + s1[len1]=(y*new_h/h)*Stride+(x*new_w/w)*4; + s0[len1++]=o+cors[o+1]*2; + } + cors+=2; + } + goto StartLookUp; + } + //---------------------- + // Generate Lookup Table + for (y=0; y>16; x=c&0xFFFF; + c=(y*new_h/h)*Stride+(x*new_w/w)*4; + goto StartLookUp; + } + //---------------------- + // Generate Two Value Image + o=sy*Stride+sx*4; j=Stride-sw*4; i=0; + if (mode==1) // Color Mode + { + cors=(unsigned int *)(text+w*h); n*=2; + for (y=0; y>16)&0xFF)-rr; g=((c1>>8)&0xFF)-gg; b=(c1&0xFF)-bb; + v=(c2<0x1000000) ? (3*r*r+4*g*g+2*b*b<=c2) + : (r*r<=((c2>>16)&0xFF)*((c2>>16)&0xFF) + && g*g<=((c2>>8)&0xFF)*((c2>>8)&0xFF) && b*b<=(c2&0xFF)*(c2&0xFF)); + if (v) break; + } + ts[i]=(v) ? 1:0; + } + } + } + else if (mode==2) // Gray Threshold Mode + { + c=(c+1)<<7; + for (y=0; y>7; + } + for (i=0, y=0; yn || gs[i+1]>n + || gs[i-sw]>n || gs[i+sw]>n + || gs[i-sw-1]>n || gs[i-sw+1]>n + || gs[i+sw-1]>n || gs[i+sw+1]>n) ? 1:0; + } + } + //---------------------- + StartLookUp: + for (i=0, y=0; y=4) { ss[i]=4; continue; } + r=ts[i]; g=(x==0 ? 3 : ts[i-1]); b=(x==sw-1 ? 3 : ts[i+1]); + if (more_err) + ss[i]=4|(r==2||r==1||g==1||b==1)<<1|(r==2||r==0||g==0||b==0); + else + ss[i]=4|(r==2||r==1)<<1|(r==2||r==0); + } + } + if (mode<4 && more_err) sx++; + err1=(len1*err1)>>10; + err0=(len0*err0)>>10; + if (err1>=len1) len1=0; + if (err0>=len0) len0=0; + max=(len1>len0) ? len1 : len0; + w=new_w; h=new_h; x1=0; y1=0; x2=sw-w; y2=sh-h; + // 1 ==> ( Left to Right ) Top to Bottom + // 2 ==> ( Right to Left ) Top to Bottom + // 3 ==> ( Left to Right ) Bottom to Top + // 4 ==> ( Right to Left ) Bottom to Top + // 5 ==> ( Top to Bottom ) Left to Right + // 6 ==> ( Bottom to Top ) Left to Right + // 7 ==> ( Top to Bottom ) Right to Left + // 8 ==> ( Bottom to Top ) Right to Left + // 9 ==> Center to Four Sides + if (dir==9) + { + x=(x1+x2)/2; y=(y1+y2)/2; i=x2-x1+1; j=y2-y1+1; + AllCount1=i*j; i=(i>j?i:j)+8; + AllCount2=i*i; RunCount=0; DirCount=1; RunDir=0; + for (ii=0; RunCount=x1 && x<=x2 && y>=y1 && y<=y2) + { + RunCount++; + goto FindPos; + FindPos_GoBak:; + } + if (RunDir==0) y--; + else if (RunDir==1) x++; + else if (RunDir==2) y++; + else x--; + } + if (RunDir & 1) DirCount++; + RunDir = (++RunDir) & 3; + } + goto Return1; + } + if (dir<1 || dir>8) dir=1; + if (--dir>3) { r=y1; y1=x1; x1=r; r=y2; y2=x2; x2=r; } + for (y3=y1; y3<=y2; y3++) + { + for (x3=x1; x3<=x2; x3++) + { + y=(dir & 2) ? y1+y2-y3 : y3; + x=(dir & 1) ? x1+x2-x3 : x3; + if (dir>3) { r=y; y=x; x=r; } + //---------------------- + FindPos: + e1=err1; e0=err0; o=y*sw+x; + if (ss[o]<4) goto NoMatch; + if (mode<4) + { + for (i=0; i>16)&0xFF); + g=Bmp[1+j]-((c>>8)&0xFF); b=Bmp[j]-(c&0xFF); + v=(c2<0x1000000)?(3*r*r+4*g*g+2*b*b>c2):(r*r>dR||g*g>dG||b*b>dB); + if (v && (--e1)<0) goto NoMatch; + } + } + else + { + for (i=0; i0xFFFFFF, n=s0[i]; j>16)&0xFF)-rr; g=((c1>>8)&0xFF)-gg; b=(c1&0xFF)-bb; + v=(c2<0x1000000) ? (3*r*r+4*g*g+2*b*b<=c2) + : (r*r<=((c2>>16)&0xFF)*((c2>>16)&0xFF) + && g*g<=((c2>>8)&0xFF)*((c2>>8)&0xFF) && b*b<=(c2&0xFF)*(c2&0xFF)); + if (v) { if (k) goto NoMatch2; goto MatchOK; } + } + if (k) goto MatchOK; + NoMatch2: + if ((--e1)<0) goto NoMatch; + MatchOK:; + } + } + } + else // mode==4 + { + o=(sy+y)*Stride+(sx+x)*4; j=o+c; rr=Bmp[2+j]; gg=Bmp[1+j]; bb=Bmp[j]; + for (i=0; in && (--e1)<0) goto NoMatch; + } + if (i=allpos_max) goto Return1; + } + // Skip areas that may overlap + if (!sort) + { + r=y-h+1; if (r<0) r=0; rr=y+h-1; if (rr>sh-h) rr=sh-h; + g=x-w+1; if (g<0) g=0; gg=x+w-1; if (gg>sw-w) gg=sw-w; + for (i=r; i<=rr; i++) + for (j=g; j<=gg; j++) + ss[i*sw+j] &= 3; + } + NoMatch: + if (dir==9) goto FindPos_GoBak; + } + } + //---------------------- + Return1: + if (!sort || !allpos || w*h==1) + return ok; + // Sort by smallest error + for (i=1; i=0 && arr[j]>k; j--) + { + arr[j+1]=arr[j]; allpos[j+1]=allpos[j]; + } + arr[j+1]=k; allpos[j+1]=v; + } + // Clean up overlapping results + w*=w; h*=h; k=ok; ok=0; + for (i=0; i>16; + for (j=0; j>16)-y1; + if (x*x + if RegExMatch(v, "<([^>\n]*)>", &r) + v:=StrReplace(v,r[0]), comment:=Trim(r[1]) + ; You can Add two fault-tolerant in the [], separated by commas + if RegExMatch(v, "\[([^\]\n]*)]", &r) + { + v:=StrReplace(v,r[0]), r:=StrSplit(r[1] ",", ",") + , seterr:=1, err1:=r[1], err0:=r[2] + } + color:=SubStr(v,1,InStr(v,"$")-1), v:=Trim(SubStr(v,InStr(v,"$")+1)) + mode:=InStr(color,"##") ? 5 : InStr(color,"#") ? 4 + : InStr(color,"**") ? 3 : InStr(color,"*") ? 2 : 1 + color:=RegExReplace(StrReplace(color,"@","-"), "[*#\s]") + (mode=1 || mode=5) && color:=StrReplace(color,"0x") + if (mode=5) + { + if !(v~="^[\s\-\w.]+/[\s\-\w.]+/[\s\-\w./,]+$") ; + { + if !(hBM:=LoadPicture(v)) + { + MsgBox "Can't Load Picture ! " v, "Tip", 4096 + return + } + this.GetBitmapWH(hBM, &w, &h) + if (w<1 || h<1) + return + hBM2:=this.CreateDIBSection(w, h, 32, &Scan0) + this.CopyHBM(hBM2, 0, 0, hBM, 0, 0, w, h) + DllCall("DeleteObject", "Ptr",hBM) + if (!Scan0) + return + arr:=StrSplit(color "/", "/"), arr.Pop(), n:=arr.Length + bmp.Push(buf:=Buffer(w*h*4 + n*2*4)), v:=buf.Ptr, p:=v+w*h*4-4 + DllCall("RtlMoveMemory", "Ptr",v, "Ptr",Scan0, "Ptr",w*h*4) + DllCall("DeleteObject", "Ptr",hBM2), color:=Trim(arr[1],"-") + For k1,v1 in arr + c:=StrSplit(Trim(v1,"-") "-" color, "-") + , x:=this.Floor(c[2]), x:=(x<=0||x>1?0:Floor(9*255*255*(1-x)*(1-x))) + , NumPut("uint", this.ToRGB(c[1]), p+=4) + , NumPut("uint", (InStr(c[2],".")?x:this.Floor("0x" c[2])|0x1000000), p+=4) + color:=2 + } + else ; or or + { + color:=Trim(StrSplit(color "/", "/")[1], "-") + arr:=StrSplit(Trim(RegExReplace(v, "i)\s|0x"), ","), ",") + if !(n:=arr.Length) + return + bmp.Push(buf:=Buffer(n*22*4)), v:=buf.Ptr + shape:=(n>1 && StrLen(StrSplit(arr[1] "//","/")[3])=1 ? 1:0) + For k1,v1 in arr + { + r:=StrSplit(v1 "/","/"), x:=this.Floor(r[1]), y:=this.Floor(r[2]) + , (A_Index=1) ? (x1:=x2:=x, y1:=y2:=y) + : (x1:=Min(x1,x), x2:=Max(x2,x), y1:=Min(y1,y), y2:=Max(y2,y)) + } + For k1,v1 in arr + { + r:=StrSplit(v1 "/","/"), x:=this.Floor(r[1])-x1, y:=this.Floor(r[2])-y1 + , NumPut("uint", y<<16|x, p:=v+(A_Index-1)*22*4) + , NumPut("uint", n1:=Min(Max(r.Length-3,0),(shape?1:10)), p+=4) + Loop n1 + c:=StrSplit(Trim(v1:=r[2+A_Index],"-") "-" color, "-") + , x:=this.Floor(c[2]), x:=(x<=0||x>1?0:Floor(9*255*255*(1-x)*(1-x))) + , NumPut("uint", this.ToRGB(c[1])&0xFFFFFF|(!shape&&InStr(v1,"-")=1?0x1000000:0), p+=4) + , NumPut("uint", (InStr(c[2],".")?x:this.Floor("0x" c[2])|0x1000000), p+=4) + } + color:=shape, w:=x2-x1+1, h:=y2-y1+1 + } + } + else + { + r:=StrSplit(v ".", "."), w:=this.Floor(r[1]) + , v:=this.base64tobit(r[2]), h:=StrLen(v)//w + if (w<1 || h<1 || StrLen(v)!=w*h) + return + arr:=StrSplit(color "/", "/"), arr.Pop(), n:=arr.Length + , bmp.Push(buf:=Buffer(StrPut(v, "CP0") + n*2*4)) + , StrPut(v, buf.Ptr, "CP0"), v:=buf.Ptr, p:=v+w*h-4 + , color:=this.Floor(color) + if (mode=1) + { + For k1,v1 in arr + c:=StrSplit(Trim(v1,"-") "-", "-") + , x:=this.Floor(c[2]), x:=(x<=0||x>1?0:Floor(9*255*255*(1-x)*(1-x))) + , NumPut("uint", this.ToRGB(c[1]), p+=4) + , NumPut("uint", (InStr(c[2],".")?x:this.Floor("0x" c[2])|0x1000000), p+=4) + } + else if (mode=4) + { + r:=StrSplit(Trim(arr[1],"-") "-", "-") + , n:=this.Floor(r[2]), n:=(n<=0||n>1?0:Floor(9*255*255*(1-n)*(1-n))) + , c:=this.Floor(r[1]), color:=(c<1||c>w*h?0:((c-1)//w)<<16|Mod(c-1,w)) + } + } + return info[key]:=[v, w, h, seterr, err1, err0, mode, color, n, comment] +} + +ToRGB(color) ; color can use: RRGGBB, Red, Yellow, Black, White +{ + static tab:="" + if (!tab) + tab:=Map(), tab.CaseSense:="Off" + , tab.Set("Black", "000000", "White", "FFFFFF" + , "Red", "FF0000", "Green", "008000", "Blue", "0000FF" + , "Yellow", "FFFF00", "Silver", "C0C0C0", "Gray", "808080" + , "Teal", "008080", "Navy", "000080", "Aqua", "00FFFF" + , "Olive", "808000", "Lime", "00FF00", "Fuchsia", "FF00FF" + , "Purple", "800080", "Maroon", "800000") + return this.Floor("0x" (tab.Has(color)?tab[color]:color)) +} + +GetBitsFromScreen(&x:=0, &y:=0, &w:=0, &h:=0 + , ScreenShot:=1, &zx:=0, &zy:=0, &zw:=0, &zh:=0) +{ + static CAPTUREBLT:="" + if (CAPTUREBLT="") ; thanks Descolada + { + DllCall("Dwmapi\DwmIsCompositionEnabled", "Int*", &i:=0) + CAPTUREBLT:=i ? 0 : 0x40000000 + } + if InStr(A_OSVersion, ".") ; thanks QQ:349029755 + Try DllCall("SetThreadDpiAwarenessContext", "Ptr",-3, "Ptr") + (!IsObject(this.bits) && this.bits:={Scan0:0, hBM:0, oldzw:0, oldzh:0}) + , bits:=this.bits + if (!ScreenShot && bits.Scan0) + { + zx:=bits.zx, zy:=bits.zy, zw:=bits.zw, zh:=bits.zh + , w:=Min(x+w,zx+zw), x:=Max(x,zx), w-=x + , h:=Min(y+h,zy+zh), y:=Max(y,zy), h-=y + return bits + } + cri:=A_IsCritical + Critical + bits.BindWindow:=id:=this.BindWindow(0,0,1) + if (id) + { + Try + WinGetPos &zx, &zy, &zw, &zh, id + Catch + id:=0 + } + if (!id) + { + zx:=SysGet(76) + , zy:=SysGet(77) + , zw:=SysGet(78) + , zh:=SysGet(79) + } + this.UpdateBits(bits, zx, zy, zw, zh) + , w:=Min(x+w,zx+zw), x:=Max(x,zx), w-=x + , h:=Min(y+h,zy+zh), y:=Max(y,zy), h-=y + if (!ScreenShot || w<1 || h<1 || !bits.hBM) + { + Critical cri + return bits + } + if IsSet(GetBitsFromScreen2) && (GetBitsFromScreen2 is Func) + && GetBitsFromScreen2(bits, x-zx, y-zy, w, h) + { + ; Get the bind window use bits.BindWindow + ; Each small range of data obtained from DXGI must be + ; copied to the screenshot cache using FindText().CopyBits() + zx:=bits.zx, zy:=bits.zy, zw:=bits.zw, zh:=bits.zh + Critical cri + return bits + } + mDC:=DllCall("CreateCompatibleDC", "Ptr",0, "Ptr") + oBM:=DllCall("SelectObject", "Ptr",mDC, "Ptr",bits.hBM, "Ptr") + if (id) + { + if (mode:=this.BindWindow(0,0,0,1))<2 + { + hDC:=DllCall("GetDCEx", "Ptr",id, "Ptr",0, "int",3, "Ptr") + DllCall("BitBlt","Ptr",mDC,"int",x-zx,"int",y-zy,"int",w,"int",h + , "Ptr",hDC, "int",x-zx, "int",y-zy, "uint",0xCC0020|CAPTUREBLT) + DllCall("ReleaseDC", "Ptr",id, "Ptr",hDC) + } + else + { + hBM2:=this.CreateDIBSection(zw, zh) + mDC2:=DllCall("CreateCompatibleDC", "Ptr",0, "Ptr") + oBM2:=DllCall("SelectObject", "Ptr",mDC2, "Ptr",hBM2, "Ptr") + DllCall("UpdateWindow", "Ptr",id) + ; RDW_INVALIDATE=0x1|RDW_ERASE=0x4|RDW_ALLCHILDREN=0x80|RDW_FRAME=0x400 + ; DllCall("RedrawWindow", "Ptr",id, "Ptr",0, "Ptr",0, "uint", 0x485) + DllCall("PrintWindow", "Ptr",id, "Ptr",mDC2, "uint",(mode>3)*3) + DllCall("BitBlt","Ptr",mDC,"int",x-zx,"int",y-zy,"int",w,"int",h + , "Ptr",mDC2, "int",x-zx, "int",y-zy, "uint",0xCC0020) + DllCall("SelectObject", "Ptr",mDC2, "Ptr",oBM2) + DllCall("DeleteDC", "Ptr",mDC2) + DllCall("DeleteObject", "Ptr",hBM2) + } + } + else + { + hDC:=DllCall("GetWindowDC","Ptr",id:=DllCall("GetDesktopWindow","Ptr"),"Ptr") + DllCall("BitBlt","Ptr",mDC,"int",x-zx,"int",y-zy,"int",w,"int",h + , "Ptr",hDC, "int",x, "int",y, "uint",0xCC0020|CAPTUREBLT) + DllCall("ReleaseDC", "Ptr",id, "Ptr",hDC) + } + if this.CaptureCursor(0,0,0,0,0,1) + this.CaptureCursor(mDC, zx, zy, zw, zh) + DllCall("SelectObject", "Ptr",mDC, "Ptr",oBM) + DllCall("DeleteDC", "Ptr",mDC) + Critical cri + return bits +} + +UpdateBits(bits, zx, zy, zw, zh) +{ + if (zw>bits.oldzw || zh>bits.oldzh || !bits.hBM) + { + Try DllCall("DeleteObject", "Ptr",bits.hBM) + bits.hBM:=this.CreateDIBSection(zw, zh, bpp:=32, &ppvBits) + , bits.Scan0:=(!bits.hBM ? 0:ppvBits) + , bits.Stride:=((zw*bpp+31)//32)*4 + , bits.oldzw:=zw, bits.oldzh:=zh + } + bits.zx:=zx, bits.zy:=zy, bits.zw:=zw, bits.zh:=zh +} + +CreateDIBSection(w, h, bpp:=32, &ppvBits:=0) +{ + NumPut("int",40, "int",w, "int",-h, "short",1, "short",bpp, bi:=Buffer(40,0)) + return DllCall("CreateDIBSection", "Ptr",0, "Ptr",bi + , "int",0, "Ptr*",&ppvBits:=0, "Ptr",0, "int",0, "Ptr") +} + +GetBitmapWH(hBM, &w, &h) +{ + bm:=Buffer(size:=(A_PtrSize=8 ? 32:24), 0) + , DllCall("GetObject", "Ptr",hBM, "int",size, "Ptr",bm) + , w:=NumGet(bm,4,"int"), h:=Abs(NumGet(bm,8,"int")) +} + +CopyHBM(hBM1, x1, y1, hBM2, x2, y2, w, h, Clear:=0) +{ + if (w<1 || h<1 || !hBM1 || !hBM2) + return + mDC1:=DllCall("CreateCompatibleDC", "Ptr",0, "Ptr") + oBM1:=DllCall("SelectObject", "Ptr",mDC1, "Ptr",hBM1, "Ptr") + mDC2:=DllCall("CreateCompatibleDC", "Ptr",0, "Ptr") + oBM2:=DllCall("SelectObject", "Ptr",mDC2, "Ptr",hBM2, "Ptr") + DllCall("BitBlt", "Ptr",mDC1, "int",x1, "int",y1, "int",w, "int",h + , "Ptr",mDC2, "int",x2, "int",y2, "uint",0xCC0020) + if (Clear) + DllCall("BitBlt", "Ptr",mDC1, "int",x1, "int",y1, "int",w, "int",h + , "Ptr",mDC1, "int",x1, "int",y1, "uint",MERGECOPY:=0xC000CA) + DllCall("SelectObject", "Ptr",mDC1, "Ptr",oBM1) + DllCall("DeleteDC", "Ptr",mDC1) + DllCall("SelectObject", "Ptr",mDC2, "Ptr",oBM2) + DllCall("DeleteDC", "Ptr",mDC2) +} + +CopyBits(Scan01,Stride1,x1,y1,Scan02,Stride2,x2,y2,w,h,Reverse:=0) +{ + if (w<1 || h<1 || !Scan01 || !Scan02) + return + static init:=0, MFCopyImage + if (!init && init:=1) + { + MFCopyImage:=DllCall("GetProcAddress", "Ptr" + , DllCall("LoadLibrary", "Str","Mfplat.dll", "Ptr") + , "AStr","MFCopyImage", "Ptr") + } + if (MFCopyImage && !Reverse) ; thanks QQ:121507989 + { + return DllCall(MFCopyImage + , "Ptr",Scan01+y1*Stride1+x1*4, "int",Stride1 + , "Ptr",Scan02+y2*Stride2+x2*4, "int",Stride2 + , "uint",w*4, "uint",h) + } + ListLines (lls:=A_ListLines)?0:0 + p1:=Scan01+(y1-1)*Stride1+x1*4 + , p2:=Scan02+(y2-1)*Stride2+x2*4, w*=4 + , (Reverse) && (p2+=(h+1)*Stride2, Stride2:=-Stride2) + Loop h + DllCall("RtlMoveMemory","Ptr",p1+=Stride1,"Ptr",p2+=Stride2,"Ptr",w) + ListLines lls +} + +DrawHBM(hBM, lines) +{ + mDC:=DllCall("CreateCompatibleDC", "Ptr",0, "Ptr") + oBM:=DllCall("SelectObject", "Ptr",mDC, "Ptr",hBM, "Ptr") + oldc:="", brush:=0, rect:=Buffer(16) + For k,v in lines ; [ [x, y, w, h, color] ] + if IsObject(v) + { + if (oldc!=v[5]) + { + oldc:=v[5], BGR:=(oldc&0xFF)<<16|oldc&0xFF00|(oldc>>16)&0xFF + DllCall("DeleteObject", "Ptr",brush) + brush:=DllCall("CreateSolidBrush", "uint",BGR, "Ptr") + } + DllCall("SetRect", "Ptr",rect, "int",v[1], "int",v[2] + , "int",v[1]+v[3], "int",v[2]+v[4]) + DllCall("FillRect", "Ptr",mDC, "Ptr",rect, "Ptr",brush) + } + DllCall("DeleteObject", "Ptr",brush) + DllCall("SelectObject", "Ptr",mDC, "Ptr",oBM) + DllCall("DeleteObject", "Ptr",mDC) +} + +; 绑定窗口从而可以后台查找这个窗口的图像 +; 相当于始终在前台。解绑窗口使用 FindText().BindWindow(0) + +BindWindow(bind_id:=0, bind_mode:=0, get_id:=0, get_mode:=0) +{ + (!IsObject(this.bind) && this.bind:={id:0, mode:0, oldStyle:0}) + , bind:=this.bind + if (get_id) + return bind.id + if (get_mode) + return bind.mode + if (bind_id) + { + bind.id:=bind_id:=this.Floor(bind_id) + , bind.mode:=bind_mode, bind.oldStyle:=0 + if (bind_mode & 1) + { + i:=WinGetExStyle(bind_id) + bind.oldStyle:=i + WinSetTransparent(255, bind_id) + Loop 30 + { + Sleep 100 + i:=WinGetTransparent(bind_id) + } + Until (i=255) + } + } + else + { + bind_id:=bind.id + if (bind.mode & 1) + WinSetExStyle(bind.oldStyle, bind_id) + bind.id:=0, bind.mode:=0, bind.oldStyle:=0 + } +} + +; 使用 FindText().CaptureCursor(1) 设置抓图时捕获鼠标 +; 使用 FindText().CaptureCursor(0) 取消抓图时捕获鼠标 + +CaptureCursor(hDC:=0, zx:=0, zy:=0, zw:=0, zh:=0, get_cursor:=0) +{ + if (get_cursor) + return this.Cursor + if (hDC=1 || hDC=0) && (zw=0) + { + this.Cursor:=hDC + return + } + mi:=Buffer(40, 0), NumPut("int", 16+A_PtrSize, mi) + DllCall("GetCursorInfo", "Ptr",mi) + bShow:=NumGet(mi, 4, "int") + hCursor:=NumGet(mi, 8, "Ptr") + x:=NumGet(mi, 8+A_PtrSize, "int") + y:=NumGet(mi, 12+A_PtrSize, "int") + if (!bShow) || (x=zx+zw || y>=zy+zh) + return + ni:=Buffer(40, 0) + DllCall("GetIconInfo", "Ptr",hCursor, "Ptr",ni) + xCenter:=NumGet(ni, 4, "int") + yCenter:=NumGet(ni, 8, "int") + hBMMask:=NumGet(ni, (A_PtrSize=8?16:12), "Ptr") + hBMColor:=NumGet(ni, (A_PtrSize=8?24:16), "Ptr") + DllCall("DrawIconEx", "Ptr",hDC + , "int",x-xCenter-zx, "int",y-yCenter-zy, "Ptr",hCursor + , "int",0, "int",0, "int",0, "int",0, "int",3) + DllCall("DeleteObject", "Ptr",hBMMask) + DllCall("DeleteObject", "Ptr",hBMColor) +} + +MCode(hex) +{ + flag:=((hex~="[^A-Fa-f\d\s]") ? 1:4), len:=0 + Loop 2 + if !DllCall("crypt32\CryptStringToBinary", "Str",hex, "uint",0, "uint",flag + , "Ptr",(A_Index=1?0:(p:=Buffer(len)).Ptr), "uint*",&len, "Ptr",0, "Ptr",0) + return + if DllCall("VirtualProtect", "Ptr",p.Ptr, "Ptr",len, "uint",0x40, "uint*",0) + return p +} + +bin2hex(addr, size, base64:=0) +{ + flag:=(base64 ? 1:4)|0x40000000, len:=0 + Loop 2 + DllCall("crypt32\CryptBinaryToString", "Ptr",addr, "uint",size, "uint",flag + , "Ptr",(A_Index=1?0:(p:=Buffer(len*2)).Ptr), "uint*",&len) + return RegExReplace(StrGet(p.Ptr, len), "\s+") +} + +base64tobit(s) +{ + ListLines (lls:=A_ListLines)?0:0 + Chars:="0123456789+/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" + Loop Parse, Chars + if InStr(s, A_LoopField, 1) + s:=RegExReplace(s, "[" A_LoopField "]", ((i:=A_Index-1)>>5&1) + . (i>>4&1) . (i>>3&1) . (i>>2&1) . (i>>1&1) . (i&1)) + s:=RegExReplace(RegExReplace(s,"[^01]+"),"10*$") + ListLines lls + return s +} + +bit2base64(s) +{ + ListLines (lls:=A_ListLines)?0:0 + s:=RegExReplace(s,"[^01]+") + s.=SubStr("100000",1,6-Mod(StrLen(s),6)) + s:=RegExReplace(s,".{6}","|$0") + Chars:="0123456789+/ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" + Loop Parse, Chars + s:=StrReplace(s, "|" . ((i:=A_Index-1)>>5&1) + . (i>>4&1) . (i>>3&1) . (i>>2&1) . (i>>1&1) . (i&1), A_LoopField) + ListLines lls + return s +} + +ASCII(s) +{ + if RegExMatch(s, "\$(\d+)\.([\w+/]+)", &r) + { + s:=RegExReplace(this.base64tobit(r[2]),".{" r[1] "}","$0`n") + s:=StrReplace(StrReplace(s,"0","_"),"1","0") + } + else s:="" + return s +} + +; 可以在脚本的开头用 FindText().PicLib(Text,1) 导入字库, +; 然后使用 FindText().PicLib("说明文字1|说明文字2|...") 获取字库中的数据 + +PicLib(comments, add_to_Lib:=0, index:=1) +{ + (!IsObject(this.Lib) && this.Lib:=Map()), Lib:=this.Lib + , (!Lib.Has(index) && Lib[index]:=Map()), Lib:=Lib[index] + if (add_to_Lib) + { + re:="<([^>\n]*)>[^$\n]+\$[^`"'\r\n]+" + Loop Parse, comments, "|" + if RegExMatch(A_LoopField, re, &r) + { + s1:=Trim(r[1]), s2:="" + Loop Parse, s1 + s2.=Format("_{:d}", Ord(A_LoopField)) + (s2!="") && Lib[s2]:=r[0] + } + } + else + { + Text:="" + Loop Parse, comments, "|" + { + s1:=Trim(A_LoopField), s2:="" + Loop Parse, s1 + s2.=Format("_{:d}", Ord(A_LoopField)) + (Lib.Has(s2)) && Text.="|" Lib[s2] + } + return Text + } +} + +; 分割字符串为单个文字并获取数据 + +PicN(Number, index:=1) +{ + return this.PicLib(RegExReplace(Number,".","|$0"), 0, index) +} + +; 使用 FindText().PicX(Text) 可以将文字分割成多个单字的组合，从而适应间隔变化 +; 但是不能用于“颜色位置二值化”模式, 因为位置是与整体图像相关的 + +PicX(Text) +{ + if !RegExMatch(Text, "(<[^$\n]+)\$(\d+)\.([\w+/]+)", &r) + return Text + v:=this.base64tobit(r[3]), Text:="" + c:=StrLen(StrReplace(v,"0"))<=StrLen(v)//2 ? "1":"0" + txt:=RegExReplace(v,".{" r[2] "}","$0`n") + While InStr(txt,c) + { + While !(txt~="m`n)^" c) + txt:=RegExReplace(txt,"m`n)^.") + i:=0 + While (txt~="m`n)^.{" i "}" c) + i:=Format("{:d}",i+1) + v:=RegExReplace(txt,"m`n)^(.{" i "}).*","$1") + txt:=RegExReplace(txt,"m`n)^.{" i "}") + if (v!="") + Text.="|" r[1] "$" i "." this.bit2base64(v) + } + return Text +} + +; 截屏，作为后续操作要用的“上一次的截屏” + +ScreenShot(x1:=0, y1:=0, x2:=0, y2:=0) +{ + this.FindText(,, x1, y1, x2, y2) +} + +; 从“上一次的截屏”中快速获取指定坐标的RGB颜色 +; 如果坐标超出了屏幕范围，将返回白色 + +GetColor(x, y, fmt:=1) +{ + bits:=this.GetBitsFromScreen(,,,,0,&zx,&zy,&zw,&zh), x-=zx, y-=zy + , c:=(x>=0 && x=0 && y=0 && x=0 && ymax_X ? x : max_X) + While (min_X!="" && min_X<=max_X) + { + LeftX:="" + For k,v in ok + { + x:=v.1, y:=v.2 + if (xoffsetY) + Continue + ; Get the leftmost X coordinates + if (LeftX="" || xdx ? "*":"") . LeftOCR + ; Update for next search + min_X:=LeftX+LeftW-(overlapW>LeftW//2 ? LeftW//2:overlapW) + , dx:=LeftX+LeftW+offsetX, ocr_Y:=LeftY + , (LeftYmax_Y && max_Y:=LeftY+LeftH) + } + (ocr_X="") && ocr_X:=min_Y:=min_X:=max_Y:=0 + return {text:ocr_Text, x:ocr_X, y:min_Y, w:min_X-ocr_X, h:max_Y-min_Y} +} + +; 按照从左到右、从上到下的顺序排序FindText()的结果 +; 忽略轻微的Y坐标差距，返回排序后的数组对象 + +Sort(ok, dy:=10) +{ + if !IsObject(ok) + return ok + s:="", n:=150000, ypos:=[] + For k,v in ok + { + x:=v.x, y:=v.y, add:=1 + For k1,v1 in ypos + if Abs(y-v1)<=dy + { + y:=v1, add:=0 + Break + } + if (add) + ypos.Push(y) + s.=(y*n+x) "." k "|" + } + s:=Trim(s,"|") + s:=Sort(s, "N D|") + ok2:=[] + For k,v in StrSplit(s,"|") + ok2.Push(ok[SubStr(v,InStr(v,".")+1)]) + return ok2 +} + +; 以指定点为中心，按从近到远排序FindText()的结果，返回排序后的数组 + +Sort2(ok, px, py) +{ + if !IsObject(ok) + return ok + s:="" + For k,v in ok + s.=((v.x-px)**2+(v.y-py)**2) "." k "|" + s:=Trim(s,"|") + s:=Sort(s, "N D|") + ok2:=[] + For k,v in StrSplit(s,"|") + ok2.Push(ok[SubStr(v,InStr(v,".")+1)]) + return ok2 +} + +; 按指定的查找方向，排序FindText()的结果，返回排序后的数组 + +Sort3(ok, dir:=1) +{ + if !IsObject(ok) + return ok + s:="", n:=150000 + For k,v in ok + x:=v.1, y:=v.2 + , s.=(dir=1 ? y*n+x + : dir=2 ? y*n-x + : dir=3 ? -y*n+x + : dir=4 ? -y*n-x + : dir=5 ? x*n+y + : dir=6 ? x*n-y + : dir=7 ? -x*n+y + : dir=8 ? -x*n-y : y*n+x) "." k "|" + s:=Trim(s,"|") + s:=Sort(s, "N D|") + ok2:=[] + For k,v in StrSplit(s,"|") + ok2.Push(ok[SubStr(v,InStr(v,".")+1)]) + return ok2 +} + +; 提示某个坐标的位置，或远程控制中当前鼠标的位置 + +MouseTip(x:="", y:="", w:=10, h:=10, d:=3) +{ + if (x="") + { + pt:=Buffer(16,0), DllCall("GetCursorPos", "Ptr",pt) + x:=NumGet(pt,0,"uint"), y:=NumGet(pt,4,"uint") + } + Loop 4 + { + this.RangeTip(x-w, y-h, 2*w+1, 2*h+1, (A_Index & 1 ? "Red":"Blue"), d) + Sleep 500 + } + this.RangeTip() +} + +; 显示范围的边框，类似于 ToolTip + +RangeTip(x:="", y:="", w:="", h:="", color:="Red", d:=3, num:=1) +{ + ListLines (lls:=A_ListLines)?0:0 + static tab:=Map() + (!tab.Has(num) && tab[num]:=[0,0,0,0]), Range:=tab[num] + if (x="") + { + if (Range[1]) + Loop 4 + Range[A_Index].Destroy(), Range[A_Index]:="" + ListLines lls + return + } + if !(Range[1]) + { + Loop 4 + Range[A_Index]:=Gui("+AlwaysOnTop -Caption +ToolWindow -DPIScale +E0x08000000") + } + x:=this.Floor(x), y:=this.Floor(y), w:=this.Floor(w), h:=this.Floor(h), d:=this.Floor(d) + Loop 4 + { + i:=A_Index + , x1:=(i=2 ? x+w : x-d) + , y1:=(i=3 ? y+h : y-d) + , w1:=(i=1 || i=3 ? w+2*d : d) + , h1:=(i=2 || i=4 ? h+2*d : d) + Range[i].BackColor:=color + Range[i].Show("NA x" x1 " y" y1 " w" w1 " h" h1) + } + ListLines lls +} + +State(key) +{ + return GetKeyState(key,"P") || GetKeyState(key) +} + +; 用鼠标左右键选取屏幕范围 + +GetRange(ww:=25, hh:=8, key:="RButton") +{ + static KeyOff:="", hk + if (!KeyOff) + KeyOff:=this.GetRange.Bind(this, "Off") + if (ww=="Off") + return hk:=Trim(A_ThisHotkey, "*") + ;--------------------- + GetRange_HotkeyIf:=_Gui:=Gui() + _Gui.Opt("-Caption +ToolWindow +E0x80000") + _Gui.Title:="GetRange_HotkeyIf" + _Gui.Show("NA x0 y0 w0 h0") + ;--------------------- + if GetKeyState("Ctrl") + Send "{Ctrl Up}" + HotIfWinExist "GetRange_HotkeyIf" + keys:=key "|Up|Down|Left|Right" + For k,v in StrSplit(keys, "|") + { + if GetKeyState(v) + Send "{" v " Up}" + Try Hotkey "*" v, KeyOff, "On" + } + HotIfWinExist + ;--------------------- + Critical (cri:=A_IsCritical)?"Off":"Off" + CoordMode "Mouse" + tip:=this.Lang("s5") + hk:="", oldx:=oldy:="", keydown:=0 + Loop + { + Sleep 50 + MouseGetPos &x2, &y2 + if (hk=key) || this.State(key) || this.State("Ctrl") + { + keydown++ + if (keydown=1) + MouseGetPos &x1, &y1, &Bind_ID + timeout:=A_TickCount+3000 + While (A_TickCount=2) + Break + } + else if (hk="Up") || this.State("Up") + (hh>1 && hh--), hk:="" + else if (hk="Down") || this.State("Down") + hh++, hk:="" + else if (hk="Left") || this.State("Left") + (ww>1 && ww--), hk:="" + else if (hk="Right") || this.State("Right") + ww++, hk:="" + x:=(keydown?x1:x2), y:=(keydown?y1:y2) + this.RangeTip(x-ww, y-hh, 2*ww+1, 2*hh+1, (A_MSec<500?"Red":"Blue")) + if (oldx=x2 && oldy=y2) + Continue + oldx:=x2, oldy:=y2 + ToolTip "x: " x " y: " y "`n" tip + } + ToolTip + this.RangeTip() + HotIfWinExist "GetRange_HotkeyIf" + For k,v in StrSplit(keys, "|") + Try Hotkey "*" v, KeyOff, "Off" + HotIfWinExist + GetRange_HotkeyIf.Destroy() + Critical cri + return [x-ww, y-hh, x+ww, y+hh, Bind_ID] +} + +GetRange2(key:="LButton") +{ + FindText_GetRange:=_Gui:=Gui() + _Gui.Opt("+LastFound +AlwaysOnTop -Caption +ToolWindow -DPIScale +E0x08000000") + _Gui.BackColor:="White" + WinSetTransparent(10) + this.GetBitsFromScreen(,,,,0,&x,&y,&w,&h) + _Gui.Title:="FindText_GetRange" + _Gui.Show("NA x" x " y" y " w" w " h" h) + CoordMode "Mouse" + tip:=this.Lang("s7"), oldx:=oldy:="" + Loop + { + Sleep 50 + MouseGetPos &x1, &y1 + if (oldx=x1 && oldy=y1) + Continue + oldx:=x1, oldy:=y1 + ToolTip "x: " x1 " y: " y1 " w: 0 h: 0`n" tip + } + Until this.State(key) || this.State("Ctrl") + Loop + { + Sleep 50 + MouseGetPos &x2, &y2 + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + this.RangeTip(x, y, w, h, (A_MSec<500 ? "Red":"Blue")) + if (oldx=x2 && oldy=y2) + Continue + oldx:=x2, oldy:=y2 + ToolTip "x: " x " y: " y " w: " w " h: " h "`n" tip + } + Until !(this.State(key) || this.State("Ctrl")) + ToolTip + this.RangeTip() + FindText_GetRange.Destroy() + A_Clipboard:=x "," y "," (x+w-1) "," (y+h-1) + return [x, y, x+w-1, y+h-1] +} + +BitmapFromScreen(&x:=0, &y:=0, &w:=0, &h:=0 + , ScreenShot:=1, &zx:=0, &zy:=0, &zw:=0, &zh:=0) +{ + bits:=this.GetBitsFromScreen(&x,&y,&w,&h,ScreenShot,&zx,&zy,&zw,&zh) + if (w<1 || h<1 || !bits.hBM) + return + hBM:=this.CreateDIBSection(w, h) + this.CopyHBM(hBM, 0, 0, bits.hBM, x-zx, y-zy, w, h, 1) + return hBM +} + +; 快速保存截图为BMP文件，可用于调试 +; 如果 file=0 或 "" ，会保存到剪贴板 + +SavePic(file:=0, x1:=0, y1:=0, x2:=0, y2:=0, ScreenShot:=1) +{ + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + if (x1=0 && y1=0 && x2=0 && y2=0) + n:=150000, x:=y:=-n, w:=h:=2*n + else + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + hBM:=this.BitmapFromScreen(&x, &y, &w, &h, ScreenShot) + this.SaveBitmapToFile(file, hBM) + DllCall("DeleteObject", "Ptr",hBM) +} + +; 保存图像到文件，如果 file=0 或者 ""，保存到剪贴板 +; 参数可以是位图句柄或者文件路径，例如： "c:\a.bmp" + +SaveBitmapToFile(file, hBM_or_file, x:=0, y:=0, w:=0, h:=0) +{ + if IsNumber(hBM_or_file) + hBM_or_file:="HBITMAP:*" hBM_or_file + if !hBM:=DllCall("CopyImage", "Ptr",LoadPicture(hBM_or_file) + , "int",0, "int",0, "int",0, "uint",0x2008) + return + if (file) || (w!=0 && h!=0) + { + (w=0 || h=0) && this.GetBitmapWH(hBM, &w, &h) + hBM2:=this.CreateDIBSection(w, -h, bpp:=(file ? 24 : 32)) + this.CopyHBM(hBM2, 0, 0, hBM, x, y, w, h) + DllCall("DeleteObject", "Ptr",hBM), hBM:=hBM2 + } + dib:=Buffer(dib_size:=(A_PtrSize=8 ? 104:84), 0) + , DllCall("GetObject", "Ptr",hBM, "int",dib_size, "Ptr",dib) + , pbi:=dib.Ptr+(bitmap_size:=A_PtrSize=8 ? 32:24) + , size:=NumGet(pbi+20, "uint"), pBits:=NumGet(pbi-A_PtrSize, "Ptr") + if (!file) + { + hdib:=DllCall("GlobalAlloc", "uint",2, "Ptr",40+size, "Ptr") + pdib:=DllCall("GlobalLock", "Ptr",hdib, "Ptr") + DllCall("RtlMoveMemory", "Ptr",pdib, "Ptr",pbi, "Ptr",40) + DllCall("RtlMoveMemory", "Ptr",pdib+40, "Ptr",pBits, "Ptr",size) + DllCall("GlobalUnlock", "Ptr",hdib) + DllCall("OpenClipboard", "Ptr",0) + DllCall("EmptyClipboard") + DllCall("SetClipboardData", "uint",8, "Ptr",hdib) + DllCall("CloseClipboard") + } + else + { + if InStr(file,"\") && !FileExist(dir:=RegExReplace(file,"[^\\]*$")) + Try DirCreate(dir) + bf:=Buffer(14, 0), NumPut("short", 0x4D42, bf) + NumPut("uint", 54+size, bf, 2), NumPut("uint", 54, bf, 10) + f:=FileOpen(file, "w"), f.RawWrite(bf, 14) + , f.RawWrite(pbi+0, 40), f.RawWrite(pBits+0, size), f.Close() + } + DllCall("DeleteObject", "Ptr",hBM) +} + +; 显示保存的图像 + +ShowPic(file:="", show:=1, &x:="", &y:="", &w:="", &h:="") +{ + if (file="") + { + this.ShowScreenShot() + return + } + if !(hBM:=LoadPicture(file)) + return + this.GetBitmapWH(hBM, &w, &h) + bits:=this.GetBitsFromScreen(,,,,0,&x,&y,&zw,&zh) + this.UpdateBits(bits, x, y, Max(w,zw), Max(h,zh)) + this.CopyHBM(bits.hBM, 0, 0, hBM, 0, 0, w, h) + DllCall("DeleteObject", "Ptr",hBM) + if (show) + this.ShowScreenShot(x, y, x+w-1, y+h-1, 0) + return 1 +} + +; 显示内存中的屏幕截图用于调试 + +ShowScreenShot(x1:=0, y1:=0, x2:=0, y2:=0, ScreenShot:=1) +{ + static hPic, oldx, oldy, oldw, oldh, FindText_Screen:="" + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + if (x1=0 && y1=0 && x2=0 && y2=0) + { + if (FindText_Screen) + FindText_Screen.Destroy(), FindText_Screen:="" + return + } + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + if !hBM:=this.BitmapFromScreen(&x,&y,&w,&h,ScreenShot) + return + ;--------------- + if (!FindText_Screen) + { + FindText_Screen:=_Gui:=Gui() ; WS_EX_NOACTIVATE:=0x08000000 + _Gui.Opt("+AlwaysOnTop -Caption +ToolWindow -DPIScale +E0x08000000") + _Gui.MarginX:=0, _Gui.MarginY:=0 + id:=_Gui.Add("Pic", "w" w " h" h), hPic:=id.Hwnd + _Gui.Title:="Show Pic" + _Gui.Show("NA x" x " y" y " w" w " h" h) + oldx:=x, oldy:=y, oldw:=w, oldh:=h + } + else if (oldx!=x || oldy!=y || oldw!=w || oldh!=h) + { + if (oldw!=w || oldh!=h) + FindText_Screen[hPic].Move(,, w, h) + FindText_Screen.Show("NA x" x " y" y " w" w " h" h) + oldx:=x, oldy:=y, oldw:=w, oldh:=h + } + this.BitmapToWindow(hPic, 0, 0, hBM, 0, 0, w, h) + DllCall("DeleteObject", "Ptr",hBM) +} + +BitmapToWindow(hwnd, x1, y1, hBM, x2, y2, w, h) +{ + mDC:=DllCall("CreateCompatibleDC", "Ptr",0, "Ptr") + oBM:=DllCall("SelectObject", "Ptr",mDC, "Ptr",hBM, "Ptr") + hDC:=DllCall("GetDC", "Ptr",hwnd, "Ptr") + DllCall("BitBlt", "Ptr",hDC, "int",x1, "int",y1, "int",w, "int",h + , "Ptr",mDC, "int",x2, "int",y2, "uint",0xCC0020) + DllCall("ReleaseDC", "Ptr",hwnd, "Ptr",hDC) + DllCall("SelectObject", "Ptr",mDC, "Ptr",oBM) + DllCall("DeleteDC", "Ptr",mDC) +} + +; 快速获取屏幕图像的搜索文本数据 + +GetTextFromScreen(x1:=0, y1:=0, x2:=0, y2:=0, Threshold:="" + , ScreenShot:=1, &rx:="", &ry:="", cut:=1) +{ + if (x1=0 && y1=0 && x2=0 && y2=0) + return this.Gui("CaptureS", ScreenShot) + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + bits:=this.GetBitsFromScreen(&x,&y,&w,&h,ScreenShot,&zx,&zy) + if (w<1 || h<1 || !bits.Scan0) + { + return + } + ListLines (lls:=A_ListLines)?0:0 + gs:=Map(), gs.Default:=0 + j:=bits.Stride-w*4, p:=bits.Scan0+(y-zy)*bits.Stride+(x-zx)*4-j-4 + Loop h + 0*(k:=0) + Loop w + 0*(p+=j) + c:=NumGet(p+=4,"uint") + , gs[++k]:=(((c>>16)&0xFF)*38+((c>>8)&0xFF)*75+(c&0xFF)*15)>>7 + if InStr(Threshold,"**") + { + Threshold:=Trim(Threshold,"* "), (Threshold="" && Threshold:=50) + s:="", sw:=w, w-=2, h-=2, x++, y++ + Loop h + 0*(y1:=0) + Loop w + 0*(y1++) + i:=y1*sw+A_Index+1, j:=gs[i]+Threshold + , s.=( 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 ) ? "1":"0" + Threshold:="**" Threshold + } + else + { + Threshold:=Trim(Threshold,"* ") + if (Threshold="") + { + pp:=Map(), pp.Default:=0 + Loop 256 + pp[A_Index-1]:=0 + Loop w*h + pp[gs[A_Index]]++ + IP0:=IS0:=0 + Loop 256 + k:=A_Index-1, IP0+=k*pp[k], IS0+=pp[k] + Threshold:=Floor(IP0/IS0) + Loop 20 + { + LastThreshold:=Threshold + IP1:=IS1:=0 + Loop LastThreshold+1 + k:=A_Index-1, IP1+=k*pp[k], IS1+=pp[k] + IP2:=IP0-IP1, IS2:=IS0-IS1 + if (IS1!=0 && IS2!=0) + Threshold:=Floor((IP1/IS1+IP2/IS2)/2) + if (Threshold=LastThreshold) + Break + } + } + s:="" + Loop w*h + s.=gs[A_Index]<=Threshold ? "1":"0" + Threshold:="*" Threshold + } + ListLines lls + ;-------------------- + w:=Format("{:d}",w), CutUp:=CutDown:=0 + if (cut=1) + { + re1:="(^0{" w "}|^1{" w "})" + re2:="(0{" w "}$|1{" w "}$)" + While (s~=re1) + s:=RegExReplace(s,re1), CutUp++ + While (s~=re2) + s:=RegExReplace(s,re2), CutDown++ + } + rx:=x+w//2, ry:=y+CutUp+(h-CutUp-CutDown)//2 + s:="|<>" Threshold "$" w "." this.bit2base64(s) + ;-------------------- + return s +} + +; 等待几秒钟直到屏幕图像改变，需要先调用FindText().ScreenShot() + +WaitChange(time:=-1, x1:=0, y1:=0, x2:=0, y2:=0) +{ + hash:=this.GetPicHash(x1, y1, x2, y2, 0) + time:=this.Floor(time), timeout:=A_TickCount+Round(time*1000) + Loop + { + if (hash!=this.GetPicHash(x1, y1, x2, y2, 1)) + return 1 + if (time>=0 && A_TickCount>=timeout) + Break + Sleep 10 + } + return 0 +} + +; 等待屏幕图像稳定下来 + +WaitNotChange(time:=1, timeout:=30, x1:=0, y1:=0, x2:=0, y2:=0) +{ + oldhash:="", time:=this.Floor(time) + , timeout:=A_TickCount+Round(this.Floor(timeout)*1000) + Loop + { + hash:=this.GetPicHash(x1, y1, x2, y2, 1), t:=A_TickCount + if (hash!=oldhash) + oldhash:=hash, timeout2:=t+Round(time*1000) + if (t>=timeout2) + return 1 + if (t>=timeout) + return 0 + Sleep 100 + } +} + +GetPicHash(x1:=0, y1:=0, x2:=0, y2:=0, ScreenShot:=1) +{ + static init:=DllCall("LoadLibrary", "Str","ntdll", "Ptr") + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + if (x1=0 && y1=0 && x2=0 && y2=0) + n:=150000, x:=y:=-n, w:=h:=2*n + else + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + bits:=this.GetBitsFromScreen(&x,&y,&w,&h,ScreenShot,&zx,&zy), x-=zx, y-=zy + if (w<1 || h<1 || !bits.Scan0) + return 0 + hash:=0, Stride:=bits.Stride, p:=bits.Scan0+(y-1)*Stride+x*4, w*=4 + ListLines (lls:=A_ListLines)?0:0 + Loop h + hash:=(hash*31+DllCall("ntdll\RtlComputeCrc32", "uint",0 + , "Ptr",p+=Stride, "uint",w, "uint"))&0xFFFFFFFF + ListLines lls + return hash +} + +WindowToScreen(&x, &y, x1, y1, id:="") +{ + if (!id) + id:=WinGetID("A") + rect:=Buffer(16, 0) + , DllCall("GetWindowRect", "Ptr",id, "Ptr",rect) + , x:=x1+NumGet(rect,"int"), y:=y1+NumGet(rect,4,"int") +} + +ScreenToWindow(&x, &y, x1, y1, id:="") +{ + this.WindowToScreen(&dx, &dy, 0, 0, id), x:=x1-dx, y:=y1-dy +} + +ClientToScreen(&x, &y, x1, y1, id:="") +{ + if (!id) + id:=WinGetID("A") + pt:=Buffer(8, 0), NumPut("int64", 0, pt) + , DllCall("ClientToScreen", "Ptr",id, "Ptr",pt) + , x:=x1+NumGet(pt,"int"), y:=y1+NumGet(pt,4,"int") +} + +ScreenToClient(&x, &y, x1, y1, id:="") +{ + this.ClientToScreen(&dx, &dy, 0, 0, id), x:=x1-dx, y:=y1-dy +} + +; 不像 FindText 总是使用屏幕坐标，它使用与内置命令 +; PixelGetColor 一样的 CoordMode 设置的坐标模式 + +PixelGetColor(x, y, ScreenShot:=1, id:="") +{ + if (A_CoordModePixel="Window") + this.WindowToScreen(&x, &y, x, y, id) + else if (A_CoordModePixel="Client") + this.ClientToScreen(&x, &y, x, y, id) + if (ScreenShot) + this.ScreenShot(x, y, x, y) + return this.GetColor(x, y) +} + +; 不像 FindText 总是使用屏幕坐标，它使用与内置命令 +; ImageSearch 一样的 CoordMode 设置的坐标模式 +; 图片文件参数可以使用 "*n *TransBlack/White/RRGGBB-DRDGDB... d:\a.bmp" + +ImageSearch(&rx:="", &ry:="", x1:=0, y1:=0, x2:=0, y2:=0 + , ImageFile:="", ScreenShot:=1, FindAll:=0, dir:=1) +{ + dx:=dy:=0 + if (A_CoordModePixel="Window") + this.WindowToScreen(&dx, &dy, 0, 0) + else if (A_CoordModePixel="Client") + this.ClientToScreen(&dx, &dy, 0, 0) + text:="" + Loop Parse, ImageFile, "|" + if (v:=Trim(A_LoopField))!="" + { + text.=InStr(v,"$") ? "|" v : "|##" + . (RegExMatch(v, "(^|\s)\*(\d+)\s", &r) + ? Format("{:06X}", r[2]<<16|r[2]<<8|r[2]) : "000000") + . (RegExMatch(v, "i)(^|\s)\*Trans(\S+)\s", &r) ? "/" Trim(r[2],"/"):"") + . "$" Trim(RegExReplace(v,"(^|\s)\*\S+")) + } + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + if (x1=0 && y1=0 && x2=0 && y2=0) + n:=150000, x1:=y1:=-n, x2:=y2:=n + if (ok:=this.FindText(,, x1+dx, y1+dy, x2+dx, y2+dy + , 0, 0, text, ScreenShot, FindAll,,,, dir)) + { + For k,v in ok ; you can use ok:=FindText().ok + v.1-=dx, v.2-=dy, v.x-=dx, v.y-=dy + rx:=ok[1].1, ry:=ok[1].2 + return ok + } + else + { + rx:=ry:="" + return 0 + } +} + +; 不像 FindText 总是使用屏幕坐标，它使用与内置命令 +; PixelSearch 一样的 CoordMode 设置的坐标模式 +; 颜色参数可以是 "RRGGBB-DRDGDB|RRGGBB-DRDGDB", Variation 取值 0-255 + +PixelSearch(&rx:="", &ry:="", x1:=0, y1:=0, x2:=0, y2:=0 + , ColorID:="", Variation:=0, ScreenShot:=1, FindAll:=0, dir:=1) +{ + n:=this.Floor(Variation), text:=Format("##{:06X}$0/0/", n<<16|n<<8|n) + . Trim(StrReplace(ColorID, "|", "/"), "- /") + return this.ImageSearch(&rx, &ry, x1, y1, x2, y2, text, ScreenShot, FindAll, dir) +} + +; 屏幕坐标指示的范围内的某些颜色的像素计数 +; 颜色参数可以是 "RRGGBB-DRDGDB|RRGGBB-DRDGDB", Variation 取值 0-255 + +PixelCount(x1:=0, y1:=0, x2:=0, y2:=0, ColorID:="", Variation:=0, ScreenShot:=1) +{ + x1:=this.Floor(x1), y1:=this.Floor(y1), x2:=this.Floor(x2), y2:=this.Floor(y2) + if (x1=0 && y1=0 && x2=0 && y2=0) + n:=150000, x:=y:=-n, w:=h:=2*n + else + x:=Min(x1,x2), y:=Min(y1,y2), w:=Abs(x2-x1)+1, h:=Abs(y2-y1)+1 + bits:=this.GetBitsFromScreen(&x,&y,&w,&h,ScreenShot,&zx,&zy), x-=zx, y-=zy + sum:=0, s1:=Buffer(4), s0:=Buffer(4), ss:=Buffer(w*(h+3)) + ini:={ bits:bits, ss:ss.Ptr, s1:s1.Ptr, s0:s0.Ptr, allpos:0, allpos_max:0 + , err1:0, err0:0, zoomW:1, zoomH:1 } + n:=this.Floor(Variation), text:=Format("##{:06X}$0/0/", n<<16|n<<8|n) + . Trim(StrReplace(ColorID, "|", "/"), "- /") + if IsObject(j:=this.PicInfo(text)) + sum:=this.PicFind(ini, j, 1, x, y, w, h) + return sum +} + +; 创建包含特定颜色的色块，可以限定这个色块中符合颜色的数量 +; ColorID 可以使用 "RRGGBB-DRDGDB|RRGGBB-DRDGDB", "*128", "**50" +; Count1, Count0 是这个色块二值化后黑点和白点的数量最小值 + +ColorBlock(ColorID, w, h, Count1:=0, Count0:=0) +{ + (Count0>0 && Count1:=0) + Text:="|<>[" (1-Count1/(w*h)) "," (1-Count0/(w*h)) "]" + . Trim(StrReplace(ColorID,"|","/"),"- /") . Format("${:d}.",w) + . this.bit2base64(StrReplace(Format(Format("{{}:0{:d}d{}}",w*h),0),"0" + , (Count0>0 ? "0":"1"))) + return Text +} + +Click(x:="", y:="", other1:="", other2:="", GoBack:=0) +{ + CoordMode "Mouse", (bak:=A_CoordModeMouse)?"Screen":"Screen" + if GoBack + MouseGetPos &oldx, &oldy + MouseMove x, y, 0 + Sleep 30 + Click x "," y "," other1 "," other2 + if GoBack + MouseMove oldx, oldy, 0 + CoordMode "Mouse", bak + return 1 +} + +; 动态运行AHK代码作为新线程 + +Class Thread +{ + __New(args*) + { + this.pid:=this.Exec(args*) + } + __Delete() + { + ProcessClose this.pid + } + Exec(s, Ahk:="", args:="") ; required AHK v1.1.34+ and Ahk2Exe Use .exe + { + Ahk:=Ahk ? Ahk : A_IsCompiled ? A_ScriptFullPath : A_AhkPath + s:="`nDllCall(`"SetWindowText`",`"Ptr`",A_ScriptHwnd,`"Str`",`"`")`n" + . "`n`n" . s, s:=RegExReplace(s, "\R", "`r`n") + Try + { + shell:=ComObject("WScript.Shell") + oExec:=shell.Exec("`"" Ahk "`" /script /force /CP0 * " args) + oExec.StdIn.Write(s) + oExec.StdIn.Close(), pid:=oExec.ProcessID + } + Catch + { + f:=A_Temp "\~ahk.tmp" + s:="`r`nTry FileDelete `"" f "`"`r`n" s + Try FileDelete f + FileAppend s, f + r:=this.Clear.Bind(this) + SetTimer r, -3000 + Run "`"" Ahk "`" /script /force /CP0 `"" f "`" " args,,, &pid + } + return pid + } + Clear() + { + Try FileDelete A_Temp "\~ahk.tmp" + SetTimer(,0) + } +} + +; FindText().QPC() 用法类似于 A_TickCount + +QPC() +{ + static f:=0, c:=DllCall("QueryPerformanceFrequency", "Int64*",&f)+(f/=1000) + return (!DllCall("QueryPerformanceCounter", "Int64*",&c))*0+(c/f) +} + +; FindText().ToolTip() 用法类似于 ToolTip + +ToolTip(s:="", x:="", y:="", num:=1, arg:="") +{ + static ini:=Map(), tip:=Map(), timer:=Map() + f:="ToolTip_" . this.Floor(num) + if (s="") + { + Try tip[f].Destroy() + ini[f]:="", tip[f]:="" + return + } + ;----------------- + r1:=A_CoordModeToolTip + r2:=A_CoordModeMouse + CoordMode "Mouse", "Screen" + MouseGetPos &x1, &y1 + CoordMode "Mouse", r1 + MouseGetPos &x2, &y2 + CoordMode "Mouse", r2 + (x!="" && x:="x" (this.Floor(x)+x1-x2)) + , (y!="" && y:="y" (this.Floor(y)+y1-y2)) + , (x="" && y="" && x:="x" (x1+16) " y" (y1+16)) + ;----------------- + (!IsObject(arg) && arg:={}) + bgcolor:=arg.HasOwnProp("bgcolor") ? arg.bgcolor : "FAFBFC" + color:=arg.HasOwnProp("color") ? arg.color : "Black" + font:=arg.HasOwnProp("font") ? arg.font : "Consolas" + size:=arg.HasOwnProp("size") ? arg.size : "10" + bold:=arg.HasOwnProp("bold") ? arg.bold : "" + trans:=arg.HasOwnProp("trans") ? arg.trans & 255 : 255 + timeout:=arg.HasOwnProp("timeout") ? arg.timeout : "" + ;----------------- + r:=bgcolor "|" color "|" font "|" size "|" bold "|" trans "|" s + if (!ini.Has(f) || ini[f]!=r) + { + ini[f]:=r + Try tip[f].Destroy() + tip[f]:=_Gui:=Gui() ; WS_EX_LAYERED:=0x80000, WS_EX_TRANSPARENT:=0x20 + _Gui.Opt("+LastFound +AlwaysOnTop -Caption +ToolWindow -DPIScale +E0x80020") + _Gui.MarginX:=2, _Gui.MarginY:=2 + _Gui.BackColor:=bgcolor + _Gui.SetFont("c" color " s" size " " bold, font) + _Gui.Add("Text",, s) + _Gui.Title:=f + _Gui.Show("Hide") + WinSetTransparent(trans) + } + tip[f].Opt("+AlwaysOnTop") + tip[f].Show("NA " x " " y) + if (timeout) + { + (!timer.Has(f) && timer[f]:=this.ToolTip.Bind(this,"","","",num)) + SetTimer timer[f], -Round(Abs(this.Floor(timeout)*1000))-1 + } +} + +; FindText().ObjView() 查看对象的值用于调试 + +ObjView(obj, keyname:="") +{ + if IsObject(obj) + { + s:="" + For k,v in (HasMethod(obj,"__Enum") ? obj : obj.OwnProps()) + s.=this.ObjView(v, keyname "[" ((k is Integer) ? k : "`"" k "`"") "]") + } + else + s:=keyname ": " ((obj is Number) ? obj : "`"" obj "`"") "`n" + if (keyname!="") + return s + ;------------------ + _Gui:=Gui("+AlwaysOnTop") + _Gui.Add("Button", "y270 w350 Default", "OK").OnEvent("Click",(*)=>WinHide()) + _Gui.Add("Edit", "xp y10 w350 h250 -Wrap -WantReturn") + _Gui["Edit1"].Value:=s + _Gui.Title:="Debug view object values" + _Gui.Show() + DetectHiddenWindows 0 + WinWaitClose "ahk_id " _Gui.Hwnd + _Gui.Destroy() +} + +EditScroll(hEdit, regex:="", line:=0, pos:=0) +{ + s:=ControlGetText(hEdit) + pos:=(regex!="") ? InStr(SubStr(s,1,s~=regex) " ","`n",0,-1) + : (line>1) ? InStr(s,"`n",0,1,line-1) : pos + SendMessage 0xB1, pos, pos, hEdit + SendMessage 0xB7,,, hEdit +} + +LastCtrl() +{ + For Ctrl in GuiFromHwnd(WinExist()) + last:=Ctrl + return last +} + +Hide(args*) +{ + WinMinimize + WinHide + ToolTip + DetectHiddenWindows 0 + WinWaitClose "ahk_id " WinExist() +} + +SC(RGB, hwnd) +{ + SendMessage 0x2001,0,(RGB&0xFF)<<16|RGB&0xFF00|(RGB>>16)&0xFF,hwnd +} + + +;==== Optional GUI interface ==== + + +Gui(cmd, arg1:="", args*) +{ + static + local cri, lls, _Gui + ListLines InStr("MouseMove|ToolTipOff",cmd)?0:A_ListLines + static init:=0 + if (!init && init:=1) + { + SavePicDir:=A_Temp "\Ahk_ScreenShot\" + G_ := this.Gui.Bind(this) + G_G := this.Gui.Bind(this, "G") + G_Run := this.Gui.Bind(this, "Run") + G_Show := this.Gui.Bind(this, "Show") + G_KeyDown := this.Gui.Bind(this, "KeyDown") + G_LButtonDown := this.Gui.Bind(this, "LButtonDown") + G_RButtonDown := this.Gui.Bind(this, "RButtonDown") + G_MouseMove := this.Gui.Bind(this, "MouseMove") + G_ScreenShot := this.Gui.Bind(this, "ScreenShot") + G_ShowPic := this.Gui.Bind(this, "ShowPic") + G_Slider := this.Gui.Bind(this, "Slider") + G_ToolTip := this.Gui.Bind(this, "ToolTip") + G_ToolTipOff := this.Gui.Bind(this, "ToolTipOff") + G_SaveScr := this.Gui.Bind(this, "SaveScr") + G_PicShowOK := this.Gui.Bind(this, "PicShowOK") + G_Drag := this.Gui.Bind(this, "Drag") + FindText_Capture:=FindText_Main:="" + PrevControl:=x:=y:=oldx:=oldy:="" + Pics:=Map(), hBM_old:=dx:=dy:=0 + cri:=A_IsCritical + Critical + Lang:=this.Lang(,1), Tip_Text:=this.Lang(,2) + G_.Call("MakeCaptureWindow") + G_.Call("MakeMainWindow") + OnMessage(0x100, G_KeyDown) + OnMessage(0x201, G_LButtonDown) + OnMessage(0x204, G_RButtonDown) + OnMessage(0x200, G_MouseMove) + MenuTray:=A_TrayMenu + MenuTray.Add + MenuTray.Add Lang["s1"], G_Show + if (!A_IsCompiled && A_LineFile=A_ScriptFullPath) + { + MenuTray.Default:=Lang["s1"] + MenuTray.ClickCount:=1 + TraySetIcon "Shell32.dll", 23 + } + Critical cri + Gui("+LastFound").Destroy() + } + Switch cmd, 1 + { + Case "G": + id:=this.LastCtrl() + Try id.OnEvent("Click", G_Run) + Catch + Try id.OnEvent("Change", G_Run) + return + Case "Run": + Critical + G_.Call(arg1.Name) + return + Case "Show": + FindText_Main.Show(arg1 ? "Center" : "") + ControlFocus hscr + return + Case "Cancel", "Cancel2": + WinHide + return + Case "MakeCaptureWindow": + WindowColor:="0xDDEEFF" + Try FindText_Capture.Destroy() + FindText_Capture:=_Gui:=Gui() + _Gui.Opt("+LastFound +AlwaysOnTop -DPIScale") + _Gui.MarginX:=15, _Gui.MarginY:=10 + _Gui.BackColor:=WindowColor + _Gui.SetFont("s12", "Verdana") + Tab:=_Gui.Add("Tab3", "vMyTab1 -Wrap", StrSplit(Lang["s18"],"|")) + Tab.UseTab(1) + C_:=Map(), Cid_:=Map() + , nW:=71, nH:=25, w:=h:=12, pW:=nW*(w+1)-1, pH:=(nH+1)*(h+1)-1 + id:=_Gui.Add("Text", "w" pW " h" pH), Cid_[id.Hwnd]:=-1 + _Gui.Opt("-Theme") + ListLines (lls:=A_ListLines)?0:0 + Loop nW*(nH+1) + { + i:=A_Index, j:=i=1 ? "xp yp Section" : Mod(i,nW)=1 ? "xs y+1":"x+1" + id:=_Gui.Add("Progress", j " w" w " h" h " -E0x20000 Smooth") + C_[i]:=id.Hwnd, Cid_[id.Hwnd]:=i + } + ListLines lls + _Gui.Opt("+Theme") + _Gui.Add("Slider", "xs w" pW " vMySlider1 +Center Page20 Line10 NoTicks AltSubmit") + G_G.Call() + _Gui.Add("Slider", "ys h" pH " vMySlider2 +Center Page20 Line10 NoTicks AltSubmit +Vertical") + G_G.Call() + Tab.UseTab(2) + id:=_Gui.Add("Pic", "w" (pW-135) " h" pH " +Border -Background Section"), hPic:=id.Hwnd + Pic_hBM:=this.CreateDIBSection(Pic_w:=(pW-135), Pic_h:=pH) + _Gui.Add("Slider", "xs wp vMySlider3 +Center Page20 Line10 NoTicks AltSubmit") + G_G.Call() + _Gui.Add("Slider", "ys h" pH " vMySlider4 +Center Page20 Line10 NoTicks AltSubmit +Vertical") + G_G.Call() + _Gui.Add("ListBox", "ys w120 h200 vSelectBox AltSubmit 0x100") + G_G.Call() + _Gui.Add("Button", "y+0 wp vClearAll", Lang["ClearAll"]) + G_G.Call() + _Gui.Add("Button", "y+0 wp vOpenDir", Lang["OpenDir"]) + G_G.Call() + _Gui.Add("Button", "y+0 wp vLoadPic", Lang["LoadPic"]) + G_G.Call() + _Gui.Add("Button", "y+0 wp vSavePic", Lang["SavePic"]) + G_G.Call() + Tab.UseTab() + ;-------------- + _Gui.Add("Text", "xm Section", Lang["SelGray"]) + _Gui.Add("Edit", "x+5 yp-3 w80 vSelGray ReadOnly") + _Gui.Add("Text", "x+15 ys", Lang["SelColor"]) + _Gui.Add("Edit", "x+5 yp-3 w150 vSelColor ReadOnly") + _Gui.Add("Text", "x+15 ys", Lang["SelR"]) + _Gui.Add("Edit", "x+5 yp-3 w80 vSelR ReadOnly") + _Gui.Add("Text", "x+5 ys", Lang["SelG"]) + _Gui.Add("Edit", "x+5 yp-3 w80 vSelG ReadOnly") + _Gui.Add("Text", "x+5 ys", Lang["SelB"]) + _Gui.Add("Edit", "x+5 yp-3 w80 vSelB ReadOnly") + ;-------------- + id:=_Gui.Add("Button", "xm Hidden Section", Lang["Auto"]) + id.GetPos(&pX, &pY, &pW, &pH) + w:=Round(pW*0.75), i:=Round(w*3+15+pW*0.5-w*1.5) + _Gui.Add("Button", "xm+" i " yp w" w " hp -Wrap vRepU", Lang["RepU"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutU", Lang["CutU"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutU3", Lang["CutU3"]) + G_G.Call() + _Gui.Add("Button", "xm wp hp -Wrap vRepL", Lang["RepL"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutL", Lang["CutL"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutL3", Lang["CutL3"]) + G_G.Call() + _Gui.Add("Button", "x+15 w" pW " hp -Wrap vAuto", Lang["Auto"]) + G_G.Call() + _Gui.Add("Button", "x+15 w" w " hp -Wrap vRepR", Lang["RepR"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutR", Lang["CutR"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutR3", Lang["CutR3"]) + G_G.Call() + _Gui.Add("Button", "xm+" i " wp hp -Wrap vRepD", Lang["RepD"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutD", Lang["CutD"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp hp -Wrap vCutD3", Lang["CutD3"]) + G_G.Call() + ;-------------- + Tab:=_Gui.Add("Tab3", "ys -Wrap", StrSplit(Lang["s2"],"|")) + Tab.UseTab(1) + _Gui.Add("Text", "x+30 y+35", Lang["Threshold"]) + _Gui.Add("Edit", "x+15 w100 vThreshold") + _Gui.Add("Button", "x+15 yp-3 vGray2Two", Lang["Gray2Two"]) + G_G.Call() + Tab.UseTab(2) + _Gui.Add("Text", "x+30 y+35", Lang["GrayDiff"]) + _Gui.Add("Edit", "x+15 w100 vGrayDiff", "50") + _Gui.Add("Button", "x+15 yp-3 vGrayDiff2Two", Lang["GrayDiff2Two"]) + G_G.Call() + Tab.UseTab(3) + _Gui.Add("Text", "x+10 y+15 Section", Lang["Similar1"] " 0") + _Gui.Add("Slider", "x+0 w100 vSimilar1 +Center Page1 NoTicks ToolTip") + G_G.Call() + _Gui.Add("Text", "x+0", "100") + _Gui.Add("Button", "x+10 ys-2 vAddColorSim", Lang["AddColorSim"]) + G_G.Call() + _Gui.Add("Text", "x+25 ys+4", Lang["DiffRGB2"]) + _Gui.Add("Edit", "x+5 ys w80 vDiffRGB2 Limit3") + _Gui.Add("UpDown", "vdRGB2 Range0-255 Wrap", 50) + _Gui.Add("Button", "x+10 ys-2 vAddColorDiff", Lang["AddColorDiff"]) + G_G.Call() + _Gui.Add("Button", "xs vUndo2", Lang["Undo2"]) + G_G.Call() + _Gui.Add("Edit", "x+10 yp+2 w340 vColorList") + _Gui.Add("Button", "x+10 yp-2 vColor2Two", Lang["Color2Two"]) + G_G.Call() + Tab.UseTab(4) + _Gui.Add("Text", "x+30 y+35", Lang["Similar2"] " 0") + _Gui.Add("Slider", "x+0 w120 vSimilar2 +Center Page1 NoTicks ToolTip") + G_G.Call() + _Gui.Add("Text", "x+0", "100") + _Gui.Add("Button", "x+15 yp-3 vColorPos2Two", Lang["ColorPos2Two"]) + G_G.Call() + Tab.UseTab(5) + _Gui.Add("Text", "x+30 y+15 Section", Lang["Similar3"] " 0") + _Gui.Add("Slider", "x+0 w120 vSimilar3 +Center Page1 NoTicks ToolTip") + G_G.Call() + _Gui.Add("Text", "x+0", "100") + _Gui.Add("Button", "x+15 ys-2 vUndo", Lang["Undo"]) + G_G.Call() + _Gui.Add("Checkbox", "xs vMultiColor", Lang["MultiColor"]) + G_G.Call() + _Gui.Add("Checkbox", "x+50 vFindShape", Lang["FindShape"]) + G_G.Call() + Tab.UseTab() + ;-------------- + _Gui.Add("Button", "xm vReset", Lang["Reset"]) + G_G.Call() + _Gui.Add("Checkbox", "x+15 yp+5 vModify", Lang["Modify"]) + G_G.Call() + _Gui.Add("Text", "x+30", Lang["Comment"]) + _Gui.Add("Edit", "x+5 yp-2 w250 vComment") + _Gui.Add("Button", "x+10 yp-3 vSplitAdd", Lang["SplitAdd"]) + G_G.Call() + _Gui.Add("Button", "x+10 vAllAdd", Lang["AllAdd"]) + G_G.Call() + _Gui.Add("Button", "x+30 wp vOK", Lang["OK"]) + G_G.Call() + _Gui.Add("Button", "x+15 wp vCancel", Lang["Cancel"]) + G_G.Call() + _Gui.Add("Button", "xm vBind0", Lang["Bind0"]) + G_G.Call() + _Gui.Add("Button", "x+10 vBind1", Lang["Bind1"]) + G_G.Call() + _Gui.Add("Button", "x+10 vBind2", Lang["Bind2"]) + G_G.Call() + _Gui.Add("Button", "x+10 vBind3", Lang["Bind3"]) + G_G.Call() + _Gui.Add("Button", "x+10 vBind4", Lang["Bind4"]) + G_G.Call() + _Gui.Add("Button", "x+30 vSavePic2", Lang["SavePic2"]) + G_G.Call() + _Gui.Title:=Lang["s3"] + _Gui.Show("Hide") + _Gui.OnEvent("DropFiles", G_Drag) + return + Case "Drag": + Try G_.Call("LoadPic", args[2][1]) + return + Case "MakeMainWindow": + Try FindText_Main.Destroy() + FindText_Main:=_Gui:=Gui() + _Gui.Opt("+LastFound +AlwaysOnTop -DPIScale") + _Gui.MarginX:=15, _Gui.MarginY:=10 + _Gui.BackColor:=WindowColor + _Gui.SetFont("s12", "Verdana") + _Gui.Add("Text", "xm", Lang["NowHotkey"]) + _Gui.Add("Edit", "x+5 w160 vNowHotkey ReadOnly") + _Gui.Add("Hotkey", "x+5 w160 vSetHotkey1") + s:="F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|LWin|Ctrl|Shift|Space|MButton" + . "|ScrollLock|CapsLock|Ins|Esc|BS|Del|Tab|Home|End|PgUp|PgDn" + . "|NumpadDot|NumpadSub|NumpadAdd|NumpadDiv|NumpadMult" + _Gui.Add("DDL", "x+5 w160 vSetHotkey2", StrSplit(s,"|")) + _Gui.Add("Button", "x+15 vApply", Lang["Apply"]) + G_G.Call() + _Gui.Add("GroupBox", "xm y+0 w280 h55 vMyGroup cBlack") + _Gui.Add("Text", "xp+15 yp+20 Section", Lang["Myww"] ": ") + _Gui.Add("Text", "x+0 w80", nW//2) + _Gui.Add("UpDown", "vMyww Range1-100", nW//2) + _Gui.Add("Text", "x+15 ys", Lang["Myhh"] ": ") + _Gui.Add("Text", "x+0 w80", nH//2) + id:=_Gui.Add("UpDown", "vMyhh Range1-100", nH//2) + id.GetPos(&pX, &pY, &pW, &pH) + _Gui["MyGroup"].Move(,, pX+pW, pH+30) + id:=_Gui.Add("Checkbox", "x+100 ys vAddFunc", Lang["AddFunc"] " FindText()") + id.GetPos(&pX, &pY, &pW, &pH) + pW:=pX+pW-15, pW:=(pW<720?720:pW), w:=pW//5 + _Gui.Add("Button", "xm y+18 w" w " vCutL2", Lang["CutL2"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vCutR2", Lang["CutR2"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vCutU2", Lang["CutU2"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vCutD2", Lang["CutD2"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vUpdate", Lang["Update"]) + G_G.Call() + _Gui.SetFont("s6 bold", "Verdana") + _Gui.Add("Edit", "xm y+10 w" pW " h260 vMyPic -Wrap HScroll") + _Gui.SetFont("s12 norm", "Verdana") + w:=pW//3 + _Gui.Add("Button", "xm w" w " vCapture", Lang["Capture"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vTest", Lang["Test"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vCopy", Lang["Copy"]) + G_G.Call() + _Gui.Add("Button", "xm y+0 wp vCaptureS", Lang["CaptureS"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vGetRange", Lang["GetRange"]) + G_G.Call() + _Gui.Add("Button", "x+0 wp vGetOffset", Lang["GetOffset"]) + G_G.Call() + _Gui.Add("Edit", "xm y+10 w130 hp vClipText") + _Gui.Add("Button", "x+0 vPaste", Lang["Paste"]) + G_G.Call() + _Gui.Add("Button", "x+0 vTestClip", Lang["TestClip"]) + G_G.Call() + id:=_Gui.Add("Button", "x+0 vGetClipOffset", Lang["GetClipOffset"]) + G_G.Call() + id.GetPos(&x,, &w) + w:=((pW+15)-(x+w))//2 + _Gui.Add("Edit", "x+0 w" w " hp vOffset") + _Gui.Add("Button", "x+0 wp vCopyOffset", Lang["CopyOffset"]) + G_G.Call() + _Gui.SetFont("cBlue") + id:=_Gui.Add("Edit", "xm w" pW " h250 vscr -Wrap HScroll"), hscr:=id.Hwnd + _Gui.Title:=Lang["s4"] + _Gui.Show("Hide") + G_.Call("LoadScr") + OnExit(G_SaveScr) + return + Case "LoadScr": + f:=A_Temp "\~scr2.tmp" + Try s:="", s:=FileRead(f) + FindText_Main["scr"].Value:=s + return + Case "SaveScr": + f:=A_Temp "\~scr2.tmp" + s:=FindText_Main["scr"].Value + Try FileDelete f + FileAppend s, f + return + Case "Capture", "CaptureS": + _Gui:=FindText_Main + if show_gui:=WinExist("ahk_id " _Gui.Hwnd) + this.Hide() + if (cmd="Capture") + { + w:=_Gui["Myww"].Value + h:=_Gui["Myhh"].Value + p:=this.GetRange(w, h) + sx:=p[1], sy:=p[2], sw:=p[3]-p[1]+1, sh:=p[4]-p[2]+1 + , Bind_ID:=p[5], bind_mode:="" + _Gui:=FindText_Capture + _Gui["MyTab1"].Choose(1) + } + else + { + sx:=0, sy:=0, sw:=1, sh:=1, Bind_ID:=WinExist("A"), bind_mode:="" + _Gui:=FindText_Capture + _Gui["MyTab1"].Choose(2) + } + n:=150000, x:=y:=-n, w:=h:=2*n + hBM:=this.BitmapFromScreen(&x,&y,&w,&h,(arg1=0?0:1)) + Pics:=Map(), Pics[hBM]:=1, hBM_x:=hBM_y:=0 + G_.Call("CaptureUpdate") + G_.Call("PicUpdate") + Names:=["HBITMAP:*" hBM], s:="" + Loop Files, SavePicDir "*.bmp" + Names.Push(v:=A_LoopFileFullPath), s.="|" RegExReplace(v,"i)^.*\\|\.bmp$") + _Gui["SelectBox"].Delete() + _Gui["SelectBox"].Add(StrSplit(Trim(s,"|"),"|")) + ;------------------------ + s:="SelGray|SelColor|SelR|SelG|SelB|Threshold|Comment|ColorList" + Loop Parse, s, "|" + _Gui[A_LoopField].Value:="" + For k,v in ["Similar1","Similar2","Similar3"] + _Gui[v].Value:=90 + _Gui["Modify"].Value:=Modify:=0 + _Gui["MultiColor"].Value:=MultiColor:=0 + _Gui["FindShape"].Value:=FindShape:=0 + _Gui["GrayDiff"].Value:=50 + _Gui["Gray2Two"].Focus() + _Gui["Gray2Two"].Opt("+Default") + _Gui.Show("Center") + Event:=Result:="" + DetectHiddenWindows 0 + Critical "Off" + WinWaitClose "ahk_id " _Gui.Hwnd + Critical + ToolTip + Pics[hBM]:=1, hBM_old:=0 + For k,v in Pics + Try DllCall("DeleteObject", "Ptr",k) + Text:=RegExMatch(Result,"\|<[^>\n]*>[^$\n]+\$[^`"'\r\n]+",&r)?r[0]:"" + ;------------------------ + _Gui:=FindText_Main + if (bind_mode!="") + { + tt:=WinGetTitle(Bind_ID) + tc:=WinGetClass(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" (bind_mode=0 ? "":"," bind_mode) + . ") `; " Lang["s6"] " FindText().BindWindow(0)`n`n" Result + } + if (Event="OK") + { + s:="" + if (!A_IsCompiled) + Try s:=FileRead(A_LineFile) + re:="i)\n\s*FindText[^\n]+args\*[\s\S]*?Script_End[(){}\s]+}" + s:=RegExMatch(s, re, &r) ? "`n;==========`n" r[0] "`n" : "" + _Gui["scr"].Value:=Result "`n" s + _Gui["MyPic"].Value:=Trim(this.ASCII(Result),"`n") + } + else if (Event="SplitAdd" || Event="AllAdd") + { + s:=_Gui["scr"].Value + r:=SubStr(s, 1, InStr(s,"=FindText(")) + i:=j:=0, re:="<[^>\n]*>[^$\n]+\$[^`"'\r\n]+" + While j:=RegExMatch(r, re,, j+1) + i:=InStr(r, "`n", 0, j) + _Gui["scr"].Value:=SubStr(s,1,i) . Result . SubStr(s,i+1) + _Gui["MyPic"].Value:=Trim(this.ASCII(Result),"`n") + } + if (Event) && RegExMatch(Result, "\$\d+\.[\w+/]{1,100}", &r) + this.EditScroll(hscr, "\Q" r[0] "\E") + Event:=Result:=s:="" + ;---------------------- + if (show_gui && arg1="") + G_Show.Call() + else A_Clipboard:=Text + return Text + Case "CaptureUpdate": + nX:=sx, nY:=sy, nW:=sw, nH:=sh + bits:=this.GetBitsFromScreen(&nX,&nY,&nW,&nH,0,&zx,&zy) + cors:=Map(), cors.Default:=0 + , show:=Map(), show.Default:=0 + , ascii:=Map(), ascii.Default:=0 + , SelPos:=bg:=color:=Result:="" + , dx:=dy:=CutLeft:=CutRight:=CutUp:=CutDown:=0 + ListLines (lls:=A_ListLines)?0:0 + if (nW>0 && nH>0 && bits.Scan0) + { + j:=bits.Stride-nW*4, p:=bits.Scan0+(nY-zy)*bits.Stride+(nX-zx)*4-j-4 + Loop nH + 0*(k:=0) + Loop nW + 0*(p+=j) + show[++k]:=1, cors[k]:=NumGet(p+=4,"uint") + } + Loop 25 + 0*(ty:=dy-1)*(k:=0) + Loop 71 + 0*(tx:=dx-1)*(ty++) + this.SC(((++tx)71 + _Gui["MySlider2"].Enabled:=nH>25 + _Gui["MySlider1"].Value:=0 + _Gui["MySlider2"].Value:=0 + return + Case "PicUpdate": + Try i:=0, i:=Pics.Has(hBM_old) + Try (!i) && DllCall("DeleteObject", "Ptr",hBM_old) + this.GetBitmapWH(hBM, &hBM_w, &hBM_h), hBM_old:=hBM + G_.Call("PicShow", 1) + return + Case "MySlider3", "MySlider4": + hBM_x:=Round(FindText_Capture["MySlider3"].Value*(hBM_w-Pic_w)/100) + hBM_y:=Round(FindText_Capture["MySlider4"].Value*(hBM_h-Pic_h)/100) + G_.Call("PicShow") + return + Case "PicShow": + w:=hBM_w-Pic_w, h:=hBM_h-Pic_h + , hBM_x:=Max(Min(hBM_x,w),0), hBM_y:=Max(Min(hBM_y,h),0) + if (w<0 || h<0) + this.DrawHBM(Pic_hBM, [[0, 0, Pic_w, Pic_h, WindowColor]]) + this.CopyHBM(Pic_hBM,0,0,hBM,hBM_x,hBM_y,Min(Pic_w,hBM_w),Min(Pic_h,hBM_h)) + if (arg1) + G_PicShowOK.Call() + else + { + this.BitmapToWindow(hPic,0,0,Pic_hBM,0,0,Pic_w,Pic_h) + SetTimer G_PicShowOK, -1000 + } + FindText_Capture["MySlider3"].Value:=w>0?Round(hBM_x/w*100):0 + FindText_Capture["MySlider4"].Value:=h>0?Round(hBM_y/h*100):0 + return + Case "PicShowOK": + FindText_Capture[hPic].Value:="*w0 *h0 HBITMAP:*" Pic_hBM + return + Case "Reset": + G_.Call("CaptureUpdate") + return + Case "LoadPic": + FindText_Capture.Opt("+OwnDialogs") + f:=arg1 + if (f="") + { + if !FileExist(SavePicDir) + DirCreate SavePicDir + f:=SavePicDir "*.bmp" + Loop Files, f + f:=A_LoopFileFullPath + f:=FileSelect(, f, "Select Picture") + } + if !InStr(f,"HBITMAP:") && !FileExist(f) + { + MsgBox Lang["s17"], "Tip", "4096 T1" + return + } + if !this.ShowPic(f, 0, &sx, &sy, &sw, &sh) + return + hBM:=this.BitmapFromScreen(&sx, &sy, &sw, &sh, 0) + sw:=Min(sw,71), sh:=Min(sh,25) + G_.Call("CaptureUpdate") + G_.Call("PicUpdate") + return + Case "SavePic": + FindText_Capture.Hide() + this.ScreenShot(), this.ShowPic("HBITMAP:*" hBM) + Try GuiFromHwnd(WinExist("Show Pic")).Opt("+OwnDialogs") + Loop + { + p:=this.GetRange2() + r:=MsgBox(Lang["s15"], "Tip", "4099") + if (r!="No") + Break + } + if (r="Yes") + G_.Call("ScreenShot", p[1] "|" p[2] "|" p[3] "|" p[4] "|0") + this.ShowPic() + return + Case "SelectBox": + SelectBox:=FindText_Capture["SelectBox"].Value + Try f:="", f:=Names[SelectBox] + if (f!="") + G_.Call("LoadPic", f) + return + Case "ClearAll": + FindText_Capture.Opt("+OwnDialogs") + if MsgBox(Lang["s19"], "Tip", "4100")="Yes" + { + FindText_Capture.Hide() + Try FileDelete SavePicDir "*.bmp" + } + return + Case "OpenDir": + if !FileExist(SavePicDir) + DirCreate SavePicDir + Run SavePicDir + return + Case "GetRange": + _Gui:=FindText_Main + _Gui.Opt("+LastFound") + this.Hide() + p:=this.GetRange2(), v:=p[1] ", " p[2] ", " p[3] ", " p[4] + s:=_Gui["scr"].Value + re:="i)(=FindText\([^\n]*?)([^(,\n]*,){4}([^,\n]*,[^,\n]*,[^,\n]*Text)" + if SubStr(s,1,s~="i)\n\s*FindText[^\n]+args\*")~=re + { + s:=RegExReplace(s, re, "$1 " v ",$3",, 1) + _Gui["scr"].Value:=s + } + _Gui["Offset"].Value:=v + G_Show.Call() + return + Case "Test", "TestClip": + _Gui:=FindText_Main + _Gui.Opt("+LastFound") + this.Hide() + ;---------------------- + if (cmd="Test") + s:=_Gui["scr"].Value + else + s:=_Gui["ClipText"].Value + if (cmd="Test") && InStr(s, "MCode(") + { + s:="`nA_TrayMenu.ClickCount:=1`n" s "`nExitApp`n" + Thread1:=FindTextClass.Thread(s) + DetectHiddenWindows 1 + if WinWait("ahk_class AutoHotkey ahk_pid " Thread1.pid,, 3) + WinWaitClose(,, 30) + ; Thread1:="" ; kill the Thread + } + else + { + t:=A_TickCount, v:=X:=Y:="" + if RegExMatch(s, "<[^>\n]*>[^$\n]+\$[^`"'\r\n]+", &r) + v:=this.FindText(&X, &Y, 0,0,0,0, 0,0, r[0]) + r:=StrSplit(Lang["s8"] "||||", "|") + MsgBox r[1] ":`t" (IsObject(v)?v.Length:v) "`n`n" + . r[2] ":`t" (A_TickCount-t) " " r[3] "`n`n" + . r[4] ":`t" X ", " Y "`n`n" + . r[5] ":`t<" (IsObject(v)?v[1].id:"") ">", "Tip", "4096 T3" + Try For i,j in v + if (i<=2) + this.MouseTip(j.x, j.y) + v:="", A_Clipboard:=X "," Y + } + ;---------------------- + G_Show.Call() + return + Case "GetOffset", "GetClipOffset": + FindText_Main.Hide() + p:=this.GetRange() + _Gui:=FindText_Main + if (cmd="GetOffset") + s:=_Gui["scr"].Value + else + s:=_Gui["ClipText"].Value + if RegExMatch(s, "<[^>\n]*>[^$\n]+\$[^`"'\r\n]+", &r) + && this.FindText(&X, &Y, 0,0,0,0, 0,0, r[0]) + { + r:=StrReplace("X+" ((p[1]+p[3])//2-X) + . ", Y+" ((p[2]+p[4])//2-Y), "+-", "-") + if (cmd="GetOffset") + { + re:="i)(\(\)\.\w*Click\w*\()[^,\n]*,[^,)\n]*" + if SubStr(s,1,s~="i)\n\s*FindText[^\n]+args\*")~=re + s:=RegExReplace(s, re, "$1" r,, 1) + _Gui["scr"].Value:=s + } + _Gui["Offset"].Value:=r + } + s:="", G_Show.Call() + return + Case "Paste": + if RegExMatch(A_Clipboard, "\|?<[^>\n]*>[^$\n]+\$[^`"'\r\n]+", &r) + { + FindText_Main["ClipText"].Value:=r[0] + FindText_Main["MyPic"].Value:=Trim(this.ASCII(r[0]),"`n") + } + return + Case "CopyOffset": + A_Clipboard:=FindText_Main["Offset"].Value + return + Case "Copy": + s:=EditGetSelectedText(hscr) + if (s="") + { + s:=FindText_Main["scr"].Value + r:=FindText_Main["AddFunc"].Value + if (r != 1) + s:=RegExReplace(s, "i)\n\s*FindText[^\n]+args\*[\s\S]*") + , s:=RegExReplace(s, "i)\n; ok:=FindText[\s\S]*") + , s:=SubStr(s, (s~="i)\n[ \t]*Text")) + } + A_Clipboard:=RegExReplace(s, "\R", "`r`n") + ControlFocus hscr + return + Case "Apply": + _Gui:=FindText_Main + NowHotkey:=_Gui["NowHotkey"].Value + SetHotkey1:=_Gui["SetHotkey1"].Value + SetHotkey2:=_Gui["SetHotkey2"].Text + if (NowHotkey!="") + Try Hotkey "*" NowHotkey,, "Off" + k:=SetHotkey1!="" ? SetHotkey1 : SetHotkey2 + if (k!="") + Try Hotkey "*" k, G_ScreenShot, "On" + _Gui["NowHotkey"].Value:=k + _Gui["SetHotkey1"].Value:="" + _Gui["SetHotkey2"].Choose(0) + return + Case "ScreenShot": + Critical + if !FileExist(SavePicDir) + DirCreate SavePicDir + Loop + f:=SavePicDir . Format("{:03d}.bmp",A_Index) + Until !FileExist(f) + this.SavePic(f, StrSplit(arg1,"|")*) + CoordMode "ToolTip" + this.ToolTip(Lang["s9"],, 0,, { bgcolor:"Yellow", color:"Red" + , size:48, bold:"bold", trans:200, timeout:0.2 }) + return + Case "Bind0", "Bind1", "Bind2", "Bind3", "Bind4": + this.BindWindow(Bind_ID, bind_mode:=SubStr(cmd,5)) + n:=150000, x:=y:=-n, w:=h:=2*n + hBM:=this.BitmapFromScreen(&x,&y,&w,&h,1) + G_.Call("PicUpdate") + FindText_Capture["MyTab1"].Choose(2) + this.BindWindow(0) + return + Case "MySlider1", "MySlider2": + SetTimer G_Slider, -10 + return + Case "Slider": + Critical + dx:=nW>71 ? Round(FindText_Capture["MySlider1"].Value*(nW-71)/100):0 + dy:=nH>25 ? Round(FindText_Capture["MySlider2"].Value*(nH-25)/100):0 + if (oldx=dx && oldy=dy) + return + ListLines (lls:=A_ListLines)?0:0 + Loop 25 + 0*(ty:=dy-1)*(k:=0) + Loop 71 + 0*(tx:=dx-1)*(ty++) + this.SC(((++tx)>=nW || ty>=nH || !show[i:=ty*nW+tx+1] + ? WindowColor : bg="" ? cors[i] : ascii[i] ? 0:0xFFFFFF), C_[++k]) + Loop 71*(oldx!=dx) + 0*(i:=nW*nH+dx)*(k:=71*25) + this.SC((show[++i]?0xFF0000:0xFFFFAA), C_[++k]) + ListLines lls + oldx:=dx, oldy:=dy + return + Case "RepColor", "CutColor": + if (cmd="RepColor") + show[k]:=1, c:=(bg="" ? cors[k] : ascii[k] ? 0:0xFFFFFF) + else + show[k]:=0, c:=WindowColor + if (tx:=Mod(k-1,nW)-dx)>=0 && tx<71 && (ty:=(k-1)//nW-dy)>=0 && ty<25 + this.SC(c, C_[ty*71+tx+1]) + return + Case "RepL": + if (CutLeft<=0) || (bg!="" && InStr(color,"**") && CutLeft=1) + return + k:=CutLeft-nW, CutLeft-- + Loop nH + k+=nW, (A_Index>CutUp && A_Index=nW) + return + CutLeft++, k:=CutLeft-nW + Loop nH + k+=nW, (A_Index>CutUp && A_IndexCutUp && A_Index=nW) + return + CutRight++, k:=1-CutRight + Loop nH + k+=nW, (A_Index>CutUp && A_IndexCutLeft && A_Index=nH) + return + CutUp++, k:=(CutUp-1)*nW + Loop nW + k++, (A_Index>CutLeft && A_IndexCutLeft && A_Index=nH) + return + CutDown++, k:=(nH-CutDown)*nW + Loop nW + k++, (A_Index>CutLeft && A_Index>16)&0xFF)*38+((c>>8)&0xFF)*75+(c&0xFF)*15)>>7 + _Gui:=FindText_Capture + _Gui["Threshold"].Focus() + Threshold:=_Gui["Threshold"].Value + if (Threshold="") + { + pp:=Map(), pp.Default:=0 + Loop 256 + pp[A_Index-1]:=0 + Loop nW*nH + if (show[A_Index]) + pp[gs[A_Index]]++ + IP0:=IS0:=0 + Loop 256 + k:=A_Index-1, IP0+=k*pp[k], IS0+=pp[k] + Threshold:=Floor(IP0/IS0) + Loop 20 + { + LastThreshold:=Threshold + IP1:=IS1:=0 + Loop LastThreshold+1 + k:=A_Index-1, IP1+=k*pp[k], IS1+=pp[k] + IP2:=IP0-IP1, IS2:=IS0-IS1 + if (IS1!=0 && IS2!=0) + Threshold:=Floor((IP1/IS1+IP2/IS2)/2) + if (Threshold=LastThreshold) + Break + } + _Gui["Threshold"].Value:=Threshold + } + Threshold:=Round(Threshold) + color:="*" Threshold, k:=i:=0 + Loop nW*nH + ascii[++k]:=v:=(gs[k]<=Threshold) + , (show[k] && i:=(v?i+1:i-1)) + bg:=(i>0 ? "1":"0"), G_.Call("BlackWhite") + ListLines lls + return + Case "GrayDiff2Two": + _Gui:=FindText_Capture + GrayDiff:=_Gui["GrayDiff"].Value + if (GrayDiff="") + { + _Gui.Opt("+OwnDialogs") + MsgBox Lang["s11"], "Tip", "4096 T1" + return + } + ListLines (lls:=A_ListLines)?0:0 + gs:=Map(), gs.Default:=0, k:=0 + Loop nW*nH + gs[++k]:=((((c:=cors[k])>>16)&0xFF)*38+((c>>8)&0xFF)*75+(c&0xFF)*15)>>7 + if (CutLeft=0) + G_.Call("CutL") + if (CutRight=0) + G_.Call("CutR") + if (CutUp=0) + G_.Call("CutU") + if (CutDown=0) + G_.Call("CutD") + GrayDiff:=Round(GrayDiff) + color:="**" GrayDiff, k:=i:=0 + Loop nW*nH + j:=gs[++k]+GrayDiff + , ascii[k]:=v:=( gs[k-1]>j || gs[k+1]>j + || gs[k-nW]>j || gs[k+nW]>j + || gs[k-nW-1]>j || gs[k-nW+1]>j + || gs[k+nW-1]>j || gs[k+nW+1]>j ) + , (show[k] && i:=(v?i+1:i-1)) + bg:=(i>0 ? "1":"0"), G_.Call("BlackWhite") + ListLines lls + return + Case "AddColorSim", "AddColorDiff": + _Gui:=FindText_Capture + c:=StrReplace(_Gui["SelColor"].Value, "0x") + if (c="") + { + _Gui.Opt("+OwnDialogs") + MsgBox Lang["s12"], "Tip", "4096 T1" + return + } + s:=_Gui["ColorList"].Value + if InStr(cmd, "Sim") + v:=_Gui["Similar1"].Value, v:=c "-" Round(v/100,2) + else + v:=_Gui["dRGB2"].Value, v:=c "-" Format("{:06X}",v<<16|v<<8|v) + s:=RegExReplace("/" s, "/" c "-[^/]*") . "/" v + _Gui["ColorList"].Value:=Trim(s,"/") + ControlSend "{End}", _Gui["ColorList"].Hwnd + G_.Call("Color2Two") + return + Case "Undo2": + _Gui:=FindText_Capture + s:=_Gui["ColorList"].Value + s:=RegExReplace("/" s, "/[^/]+$") + _Gui["ColorList"].Value:=Trim(s,"/") + ControlSend "{End}", _Gui["ColorList"].Hwnd + return + Case "Color2Two": + _Gui:=FindText_Capture + color:=RegExReplace(_Gui["ColorList"].Value, "i)\s|0x") + if (color="") + { + _Gui.Opt("+OwnDialogs") + MsgBox Lang["s16"], "Tip", "4096 T1" + return + } + ListLines (lls:=A_ListLines)?0:0 + k:=i:=v:=0, arr:=StrSplit(Trim(StrReplace(color,"@","-"), "/"), "/") + Loop nW*nH + { + c:=cors[++k], rr:=(c>>16)&0xFF, gg:=(c>>8)&0xFF, bb:=c&0xFF + For k1,v1 in arr + { + r:=StrSplit(Trim(v1,"-") "-", "-"), c:=this.ToRGB(r[1]), n:=r[2] + , r:=((c>>16)&0xFF)-rr, g:=((c>>8)&0xFF)-gg, b:=(c&0xFF)-bb + if InStr(n, ".") + { + n:=this.Floor(n), n:=(n<=0||n>1?0:Floor(9*255*255*(1-n)*(1-n))) + if v:=(3*r*r+4*g*g+2*b*b<=n) + Break + } + else + { + c:=this.Floor("0x" n), dR:=(c>>16)&0xFF, dG:=(c>>8)&0xFF, dB:=c&0xFF + if v:=(Abs(r)<=dR && Abs(g)<=dG && Abs(b)<=dB) + Break + } + } + ascii[k]:=v, (show[k] && i:=(v?i+1:i-1)) + } + bg:=(i>0 ? "1":"0"), G_.Call("BlackWhite") + ListLines lls + return + Case "ColorPos2Two": + _Gui:=FindText_Capture + c:=_Gui["SelColor"].Value + if (c="") + { + _Gui.Opt("+OwnDialogs") + MsgBox Lang["s12"], "Tip", "4096 T1" + return + } + n:=_Gui["Similar2"].Value, n:=Round(n/100,2), color:="#" c "-" n + , n:=(n<=0||n>1?0:Floor(9*255*255*(1-n)*(1-n))) + , rr:=(c>>16)&0xFF, gg:=(c>>8)&0xFF, bb:=c&0xFF, k:=i:=0 + ListLines (lls:=A_ListLines)?0:0 + 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, (show[k] && i:=(v?i+1:i-1)) + bg:=(i>0 ? "1":"0"), G_.Call("BlackWhite") + ListLines lls + return + Case "BlackWhite": + Loop 25 + 0*(ty:=dy-1)*(k:=0) + Loop 71 + 0*(tx:=dx-1)*(ty++) + if (k++)*0 + (++tx) StrLen(StrReplace(txt,"1")) ? "1":"0" + s:="", i:=0, k:=nW*nH+1+CutLeft + Loop w:=nW-CutLeft-CutRight + { + i++ + if (!show[k++] && A_Index" color "$" v "`"`n" + Comment:=SubStr(Comment, 2) + } + } + Event:=cmd, Result:=s + _Gui.Hide() + return + } + if (!MultiColor) + txt:=Format("{:d}.",InStr(txt,"`n")-1) . this.bit2base64(txt) + else + { + n:=_Gui["Similar3"].Value, n:=Round(n/100,2), color:="##" n + , n:=(n<=0||n>1?0:Floor(9*255*255*(1-n)*(1-n))) + , arr:=StrSplit(Trim(StrReplace(Result,",","/"),"/"),"/"), s:="", i:=1 + Loop arr.Length//3 + x1:=arr[i++], y1:=arr[i++], c1:=arr[i++], c:="0x" c1 + , (A_Index=1 && (x:=x1, y:=y1, rr:=(c>>16)&0xFF, gg:=(c>>8)&0xFF, bb:=c&0xFF)) + , r:=((c>>16)&0xFF)-rr, g:=((c>>8)&0xFF)-gg, b:=(c&0xFF)-bb + , s.="," (x1-x) "/" (y1-y) "/" (FindShape?3*r*r+4*g*g+2*b*b<=n:c1) + txt:=SubStr(s,2) + } + s:="`nText.=`"|<" Comment ">" color "$" txt "`"`n" + if (cmd="SplitAdd" || cmd="AllAdd") + { + Event:=cmd, Result:=s + _Gui.Hide() + return + } + x:=nX+CutLeft+(nW-CutLeft-CutRight)//2 + y:=nY+CutUp+(nH-CutUp-CutDown)//2 + s:=StrReplace(s, "Text.=", "Text:="), r:=StrSplit(Lang["s8"] "|||||||", "|") + s:="`; #Include `n" + . "`nt1:=A_TickCount, Text:=X:=Y:=`"`"`n" s + . "`nif (ok:=FindText(&X, &Y, " x "-150000, " + . y "-150000, " x "+150000, " y "+150000, 0, 0, Text))" + . "`n{" + . "`n `; FindText()." . "Click(" . "X, Y, `"L`")" + . "`n}`n" + . "`n`; ok:=FindText(&X:=`"wait`", &Y:=3, 0,0,0,0,0,0,Text) `; " r[7] + . "`n`; ok:=FindText(&X:=`"wait0`", &Y:=-1, 0,0,0,0,0,0,Text) `; " r[8] + . "`n`nMsgBox `"" r[1] ":``t`" (IsObject(ok)?ok.Length:ok)" + . "`n . `"``n``n" r[2] ":``t`" (A_TickCount-t1) `" " r[3] "`"" + . "`n . `"``n``n" r[4] ":``t`" X `", `" Y" + . "`n . `"``n``n" r[5] ":``t<`" (IsObject(ok)?ok[1].id:`"`") `">`", `"Tip`", 4096`n" + . "`nTry For i,v in ok `; ok " r[6] " ok:=FindText().ok" + . "`n if (i<=2)" + . "`n FindText().MouseTip(ok[i].x, ok[i].y)`n" + Event:=cmd, Result:=s + _Gui.Hide() + return + Case "SavePic2": + x:=nX+CutLeft, w:=nW-CutLeft-CutRight + y:=nY+CutUp, h:=nH-CutUp-CutDown + G_.Call("ScreenShot", x "|" y "|" (x+w-1) "|" (y+h-1) "|0") + return + Case "ShowPic": + i:=EditGetCurrentLine(hscr) + s:=EditGetLine(i, hscr) + FindText_Main["MyPic"].Value:=Trim(this.ASCII(s),"`n") + return + Case "KeyDown": + Critical + _Gui:=FindText_Main + if (WinExist()!=_Gui.Hwnd) + return + Try ctrl:="", ctrl:=args[3] + if (ctrl=hscr) + SetTimer G_ShowPic, -150 + else if (ctrl=_Gui["ClipText"].Hwnd) + { + s:=_Gui["ClipText"].Value + _Gui["MyPic"].Value:=Trim(this.ASCII(s),"`n") + } + return + Case "LButtonDown": + Critical + if (WinExist()!=FindText_Capture.Hwnd) + return G_.Call("KeyDown", arg1, args*) + CoordMode "Mouse" + MouseGetPos &k1, &k2,, &k6, 2 + if (k6=hPic) + { + ListLines (lls:=A_ListLines)?0:0 + Loop + { + Sleep 50 + MouseGetPos &k3, &k4 + this.RangeTip(Min(k1,k3), Min(k2,k4) + , Abs(k1-k3)+1, Abs(k2-k4)+1, (A_MSec<500 ? "Red":"Blue")) + } + Until !this.State("LButton") + ListLines lls + this.RangeTip() + this.GetBitsFromScreen(,,,,0,&zx,&zy) + this.ClientToScreen(&sx, &sy, 0, 0, hPic) + sx:=Min(k1,k3)-sx+hBM_x+zx, sy:=Min(k2,k4)-sy+hBM_y+zy + , sw:=Abs(k1-k3)+1, sh:=Abs(k2-k4)+1 + if (sw+sh)<5 + sx-=71//2, sy-=25//2, sw:=71, sh:=25 + G_.Call("CaptureUpdate") + FindText_Capture["MyTab1"].Choose(1) + return + } + if !(Cid_.Has(k6) && k5:=Cid_[k6]) + return + if (k5=-1) + { + MouseMove k1+2, k2+2, 0 + MouseGetPos(,,, &k6, 2) + MouseMove k1, k2, 0 + if !(Cid_.Has(k6) && k5:=Cid_[k6]) || (k5=-1) + return + } + if (k5>71*25) + { + k1:=nW*nH+dx+(k5-71*25) + this.SC(((show[k1]:=!show[k1])?0xFF0000:0xFFFFAA), k6) + return + } + k3:=Mod(k5-1,71)+dx, k4:=(k5-1)//71+dy + if (k3>=nW || k4>=nH) + return + k1:=k4*nW+k3+1 + if (Modify && bg!="" && show[k1]) + this.SC(((ascii[k1]:=!ascii[k1])?0:0xFFFFFF), k6) + else + { + k2:=cors[k1], SelPos:=k1 + _Gui:=FindText_Capture + _Gui["SelGray"].Value:=(((k2>>16)&0xFF)*38+((k2>>8)&0xFF)*75+(k2&0xFF)*15)>>7 + _Gui["SelColor"].Value:=Format("0x{:06X}",k2&0xFFFFFF) + _Gui["SelR"].Value:=(k2>>16)&0xFF + _Gui["SelG"].Value:=(k2>>8)&0xFF + _Gui["SelB"].Value:=k2&0xFF + } + if (MultiColor && show[k1]) + { + (FindShape && Result="") && G_.Call("ColorPos2Two") + k2:=Format(",{:d}/{:d}/{:06X}", nX+k3, nY+k4, cors[k1]&0xFFFFFF) + , Result.=InStr(Result,k2) ? "":k2 + ToolTip Trim(Result, ",") + } + return + Case "RButtonDown": + Critical + MouseGetPos(,,, &k2, 2) + if (k2!=hPic) + return + CoordMode "Mouse" + MouseGetPos &k1, &k2 + k5:=hBM_x, k6:=hBM_y + ListLines (lls:=A_ListLines)?0:0 + Loop + { + Sleep 10 + MouseGetPos &k3, &k4 + hBM_x:=k5+k1-k3, hBM_y:=k6+k2-k4 + G_.Call("PicShow") + } + Until !this.State("RButton") + ListLines lls + return + Case "MouseMove": + Try ctrl_name:="", ctrl_name:=GuiCtrlFromHwnd(args[3]).Name + if (PrevControl != ctrl_name) + { + ToolTip + PrevControl:=ctrl_name + Try SetTimer G_ToolTip, (PrevControl ? -500:0) + Try SetTimer G_ToolTipOff, (PrevControl ? -5500:0) + } + return + Case "ToolTip": + MouseGetPos(,, &_TT) + if WinExist("ahk_id " _TT " ahk_class AutoHotkeyGUI") + Try ToolTip Tip_Text[PrevControl] + return + Case "ToolTipOff": + ToolTip + return + Case "CutL2", "CutR2", "CutU2", "CutD2": + s:=FindText_Main["MyPic"].Value + s:=Trim(s,"`n") . "`n", v:=SubStr(cmd,4,1) + if (v="U") + s:=RegExReplace(s,"^[^\n]+\n") + else if (v="D") + s:=RegExReplace(s,"[^\n]+\n$") + else if (v="L") + s:=RegExReplace(s,"m`n)^[^\n]") + else if (v="R") + s:=RegExReplace(s,"m`n)[^\n]$") + FindText_Main["MyPic"].Value:=Trim(s,"`n") + return + Case "Update": + ControlFocus hscr + i:=EditGetCurrentLine(hscr) + s:=EditGetLine(i, hscr) + if !RegExMatch(s, "(<[^>\n]*>[^$\n]+\$)\d+\.[\w+/]+", &r) + return + v:=FindText_Main["MyPic"].Value + v:=Trim(v,"`n") . "`n", w:=Format("{:d}",InStr(v,"`n")-1) + v:=StrReplace(StrReplace(v,"0","1"),"_","0") + s:=StrReplace(s, r[0], r[1] . w "." this.bit2base64(v)) + v:="{End}{Shift Down}{Home}{Shift Up}{Del}" + ControlSend v, hscr + EditPaste s, hscr + ControlSend "{Home}", hscr + return + } +} + +Lang(text:="", getLang:=0) +{ + static Lang1:="", Lang2 + if (!Lang1) + { + s:=" + ( +Myww = 宽度 = 调整抓图范围的宽度 +Myhh = 高度 = 调整抓图范围的高度 +AddFunc = 附加 = 复制时带 FindText() 函数 +NowHotkey = 截屏热键 = 当前的截屏热键 +SetHotkey1 = = 第一优先级的截屏热键 +SetHotkey2 = = 第二优先级的截屏热键 +Apply = 应用 = 应用新的截屏热键 +CutU2 = 上删 = 裁剪下面编辑框中文字的上边缘 +CutL2 = 左删 = 裁剪下面编辑框中文字的左边缘 +CutR2 = 右删 = 裁剪下面编辑框中文字的右边缘 +CutD2 = 下删 = 裁剪下面编辑框中文字的下边缘 +Update = 更新 = 更新下面编辑框中文字到代码行中 +GetRange = 获取屏幕范围 = 获取屏幕范围到剪贴板并替换代码中的范围参数 +GetOffset = 获取相对坐标 = 获取相对图像位置的偏移坐标并替换代码中的点击坐标 +GetClipOffset = 获取相对坐标2 = 获取相对左边编辑框的图像的偏移坐标 +Capture = 抓图 = 开始屏幕抓图 +CaptureS = 截屏抓图 = 先截屏，然后显示截屏图像，再手动选择图像内的范围抓图 +Test = 测试 = 测试生成的代码是否可以查找成功 +TestClip = 测试2 = 测试左边文本框中的文字是否可以查找成功，结果复制到剪贴板 +Paste = 粘贴 = 粘贴剪贴板的文字数据 +CopyOffset = 复制2 = 复制左边的偏移坐标到剪贴板 +Copy = 复制 = 复制代码到剪贴板 +Reset = 重读 = 重新读取原来的彩色图像 +SplitAdd = 分割添加 = 点击黄色的标签来分割图像为多个图像数据，添加到旧代码中 +AllAdd = 整体添加 = 将文字数据整体添加到旧代码中 +Gray2Two = 灰度阈值二值化 = 灰度小于阈值的为黑色其余白色 +GrayDiff2Two = 灰度差值二值化 = 某点与周围灰度之差大于差值的为黑色其余白色 +Color2Two = 颜色二值化 = 通过颜色列表来转换图像为黑白图 +ColorPos2Two = 颜色位置二值化 = 指定颜色及相似色为黑色其余白色，但是记录该色的位置 +SelGray = 灰度 = 选定颜色的灰度值 (0-255) +SelColor = 颜色 = 选定颜色的RGB颜色值 +SelR = 红 = 选定颜色的红色分量 +SelG = 绿 = 选定颜色的绿色分量 +SelB = 蓝 = 选定颜色的蓝色分量 +RepU = -上 = 撤销裁剪上边缘1个像素 +CutU = 上 = 裁剪上边缘1个像素 +CutU3 = 上3 = 裁剪上边缘3个像素 +RepL = -左 = 撤销裁剪左边缘1个像素 +CutL = 左 = 裁剪左边缘1个像素 +CutL3 = 左3 = 裁剪左边缘3个像素 +Auto = 自动 = 二值化之后自动裁剪空白边缘 +RepR = -右 = 撤销裁剪右边缘1个像素 +CutR = 右 = 裁剪右边缘1个像素 +CutR3 = 右3 = 裁剪右边缘3个像素 +RepD = -下 = 撤销裁剪下边缘1个像素 +CutD = 下 = 裁剪下边缘1个像素 +CutD3 = 下3 = 裁剪下边缘3个像素 +Modify = 修改 = 二值化后可以用鼠标在预览区点击手动修改黑白点 +MultiColor = 多点找色 = 鼠标选择多种颜色，之后点击“确定”按钮 +FindShape = 找形状 = 鼠标选择多种颜色，会基于第一点的颜色二值化 +Undo = 撤销 = 撤销上一次选择的颜色 +Undo2 = 撤销 = 撤销上一次添加到颜色列表的颜色 +Comment = 识别文字 = 识别文本 (包含在<>中)，分割添加时也会分解成单个文字 +Threshold = 灰度阈值 = 灰度阈值 (0-255) +GrayDiff = 灰度差值 = 灰度差值 (0-255) +Similar1 = 相似度 = 与选定颜色的相似度 +Similar2 = 相似度 = 与选定颜色的相似度 +Similar3 = 相似度 = 与选定颜色的相似度 +AddColorSim = 添加 = 颜色相似模式添加到颜色列表中再运行颜色二值化 +AddColorDiff = 添加 = 颜色偏色模式添加到颜色列表中再运行颜色二值化 +ColorList = = 颜色列表用于转换图像为二值图 +DiffRGB = 红/绿/蓝 = 多色查找时各分量允许的偏差 (0-255) +DiffRGB2 = 红/绿/蓝 = 多色查找时各分量允许的偏差 (0-255) +Bind0 = 绑定窗口1 = 绑定窗口使用GetDCEx()获取后台窗口图像 +Bind1 = 绑定窗口1+ = 绑定窗口使用GetDCEx()并修改窗口透明度 +Bind2 = 绑定窗口2 = 绑定窗口使用PrintWindow()获取后台窗口图像 +Bind3 = 绑定窗口2+ = 绑定窗口使用PrintWindow()并修改窗口透明度 +Bind4 = 绑定窗口3 = 绑定窗口使用PrintWindow(,,3)获取后台窗口图像 +OK = 确定 = 生成全新的代码替换旧代码 +OK2 = 确定 = 恢复截屏到屏幕然后再抓图 +Cancel = 取消 = 关闭窗口不做任何事 +Cancel2 = 取消 = 关闭窗口不做任何事 +ClearAll = 清空 = 清空所有保存的截图 +OpenDir = 打开目录 = 打开保存屏幕截图的目录 +SavePic = 保存图片 = 选择一个范围保存为图片 +SavePic2 = 保存图片 = 将修剪后的原始图像保存为图片 +LoadPic = 载入图片 = 载入一张图片作为抓取的图像 +ClipText = = 显示粘贴的文字数据 +Offset = = 显示“获取相对坐标2”或者“获取屏幕范围”的结果 +SelectBox = = 选择截图显示到屏幕左上角 +s1 = FindText找字工具 +s2 = 灰度阈值|灰度差值|颜色|颜色位置|多色查找 +s3 = 图像二值化及分割 +s4 = 抓图生成字库及找字代码 +s5 = 方向键微调选框\n先点击右键(Ctrl)一次\n把鼠标移开\n再点击右键(Ctrl)一次 +s6 = 解绑窗口使用 +s7 = 左键(Ctrl)拖动选择范围\n坐标复制到剪贴板 +s8 = 找到|时间|毫秒|位置|结果|值可以这样获取|等待3秒等图像出现|无限等待等图像消失 +s9 = 截屏成功 +s10 = 鼠标位置|穿透显示绑定窗口\n点击右键完成抓图 +s11 = 请先设定灰度差值！ +s12 = 请先选择核心颜色！ +s13 = 请先将图像二值化！ +s14 = 不能用于颜色位置二值化模式, 因为分割后会导致位置错误 +s15 = 你确定选择的范围吗？\n\n如果不确定，可以重新选择 +s16 = 请先添加颜色到颜色列表！ +s17 = 你想打开的图片没有找到！ +s18 = 捕获|截图 +s19 = 你确定要删除所有的截图吗？ + )" + Lang1:=Map(), Lang1.Default:="", Lang2:=Map(), Lang2.Default:="" + Loop Parse, s, "`n", "`r" + if InStr(v:=A_LoopField, "=") + r:=StrSplit(StrReplace(v "==","\n","`n"), "=", "`t ") + , Lang1[r[1]]:=r[2], Lang2[r[1]]:=r[3] + } + return getLang=1 ? Lang1 : getLang=2 ? Lang2 : Lang1[text] +} + +Script_End() { +} + +} ;// Class End + +;================= The End ================= + +; \ No newline at end of file