; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=40615; 2021.12.11 - 适配当天微信PC版的最新版本：3.4.5.27版本; 2022.8.3 - 适配当天微信PC版的最新版本：3.7.5.23版本【将微信窗口最小化可以后台接收】#SingleInstance ForceSetBatchLines -1; 当前列表的第一个用户的最后一条信息F1::oAcc := Acc_Get("Object", "4.1.2.2.2.1.1.1.1.1.1.2.2", 0, "微信")MsgBox % oAcc.accName(1)returnF2:: ; 遍历微信当前对话内容oAcc := Acc_Get("Object", "4.1.2.3.1.1.1.1.2.1.1.1", 0, "微信")当前对话内容:=""Loop {当前对话内容 .= oAcc.accName(A_Index) "`n"if (oAcc.accName(A_Index)="")Break}MsgBox % "遍历微信当前对话内容：`n`n" 当前对话内容MsgBox % "可指定顺序编号：`n`n" oAcc.accName(1) "`n" oAcc.accName(2) "`n" oAcc.accName(3) "`n" oAcc.accName(4)return; 绝对坐标取ACC文字【左上角坐标55,55没有遮挡的话，就会读取到桌面图标名称】F3::oAcc := Acc_ObjectFromPoint("", 55, 55)MsgBox % oAcc.accName(1) "|" oAcc.accName(2) "|" oAcc.accName(3) "|" oAcc.accName(4)returnF4:: ; 遍历当前窗口的所有项和取指定控件【示例测试请鼠标对准，自带记事本】WinGet, hWnd, ID, AMsgBox % Clipboard := JEE_AccGetTextAll(hWnd, "`r`n"); ============== 以下是针对自带记事本生效 ==============;编辑控制信息是: 4.1.4;读取路径将是 4.1.4;而我们将用0与 accValue()oAcc := Acc_Get("Object", "4.1.4", 0, "ahk_id " hWnd)MsgBox % oAcc.accValue(0);状态栏信息是: 4.2.4 c2;读取路径将是 4.2.4;而我们将用2与 accName()oAcc := Acc_Get("Object", "4.2.4", 0, "ahk_id " hWnd)MsgBox % oAcc.accName(2)returnF6:: ; 点击记事本的编辑按钮【accDoDefaultAction()应该只适用于标准控件，不是一定有效】[自测微信QQ都不行]; WinActivate, ahk_class NotepadoAcc := Acc_Get("Object", "3.2", 0, "ahk_class Notepad")Try oAcc.accDoDefaultAction() ; 单击目标控件returnF7:: ; 系统自带记事本 - 获取ACC信息（控件）ControlGet, hCtl1, hWnd,, Edit1, ahk_class NotepadControlGet, hCtl2, hWnd,, msctls_statusbar321, ahk_class NotepadMsgBox % Clipboard := JEE_AccGetTextAll(hCtl1, "`r`n")MsgBox % Clipboard := JEE_AccGetTextAll(hCtl2, "`r`n");编辑控制信息是: 4;读取路径将是 4;而我们将用0与 accValue()oAcc := Acc_Get("Object", "4", 0, "ahk_id " hCtl1)MsgBox % oAcc.accValue(0);状态栏信息是: 4 c2;读取路径将是 4;而我们将用2与 accName()oAcc := Acc_Get("Object", "4", 0, "ahk_id " hCtl2)MsgBox % oAcc.accName(2)return;==================================================; ;e.g.; 1::; WinGet, hWnd, ID, A; MsgBox % Clipboard := JEE_AccGetTextAll(hWnd, "`r`n"); return; ;e.g.; 2::; ControlGet, hCtl, Hwnd,, Edit1, A; MsgBox % Clipboard := JEE_AccGetTextAll(hCtl, "`r`n"); return; ;e.g.; 3::; ControlGetFocus, vCtlClassNN, A; ControlGet, hCtl, Hwnd,, % vCtlClassNN, A; MsgBox % Clipboard := JEE_AccGetTextAll(hCtl, "`r`n"); return;vOpt: 以空格分隔的列表;vOpt: n#: e.g. n20 ; 将检索名称限制在前20个字符;vOpt: v#: e.g. v20 ; 限制检索值为前20个字符JEE_StrRept(vText, vNum) {if (vNum <= 0)returnreturn StrReplace(Format("{:" vNum "}", ""), " ", vText);return StrReplace(Format("{:0" vNum "}", 0), 0, vText)}JEE_AccGetTextAll(hWnd:=0, vSep:="`n", vIndent:="`t", vOpt:=""){vLimN := 20, vLimV := 20Loop, Parse, vOpt, % " "{vTemp := A_LoopFieldif (SubStr(vTemp, 1, 1) = "n")vLimN := SubStr(vTemp, 2)else if (SubStr(vTemp, 1, 1) = "v")vLimV := SubStr(vTemp, 2)}oMem := {}, oPos := {};OBJID_WINDOW := 0x0oMem[1, 1] := Acc_ObjectFromWindow(hWnd, 0x0)oPos[1] := 1, vLevel := 1VarSetCapacity(vOutput, 1000000*2)Loop{if !vLevelbreakif !oMem[vLevel].HasKey(oPos[vLevel]){oMem.Delete(vLevel)oPos.Delete(vLevel)vLevelLast := vLevel, vLevel -= 1oPos[vLevel]++continue}oKey := oMem[vLevel, oPos[vLevel]]vName := "", vValue := ""if IsObject(oKey){vRoleText := Acc_GetRoleText(oKey.accRole(0))try vName := oKey.accName(0)try vValue := oKey.accValue(0)}else{oParent := oMem[vLevel-1,oPos[vLevel-1]]vChildId := IsObject(oKey) ? 0 : oPos[vLevel]vRoleText := Acc_GetRoleText(oParent.accRole(vChildID))try vName := oParent.accName(vChildID)try vValue := oParent.accValue(vChildID)}if (StrLen(vName) > vLimN)vName := SubStr(vName, 1, vLimN) "..."if (StrLen(vValue) > vLimV)vValue := SubStr(vValue, 1, vLimV) "..."vName := RegExReplace(vName, "[`r`n]", " ")vValue := RegExReplace(vValue, "[`r`n]", " ")vAccPath := ""if IsObject(oKey){Loop, % oPos.Length() - 1vAccPath .= (A_Index=1?"":".") oPos[A_Index+1]}else{Loop, % oPos.Length() - 2vAccPath .= (A_Index=1?"":".") oPos[A_Index+1]vAccPath .= " c" oPos[oPos.Length()]}vOutput .= vAccPath "`t" JEE_StrRept(vIndent, vLevel-1) vRoleText " [" vName "][" vValue "]" vSepoChildren := Acc_Children(oKey)if !oChildren.Length()oPos[vLevel]++else{vLevelLast := vLevel, vLevel += 1oMem[vLevel] := oChildrenoPos[vLevel] := 1}}return SubStr(vOutput, 1, -StrLen(vSep))};----------------------------------------------------------------------------------------------------------------------; Acc.ahk;----------------------------------------------------------------------------------------------------------------------; Authors (dd/mm/yyyy):; Sean (); jethrow (19/02/2012); Sancarn (26/11/2017,18/01/2019,10/05/2019);----------------------------------------------------------------------------------------------------------------------; CHANGE LOG:;----------------------------------------------------------------------------------------------------------------------;19/02/2012:; Modified ComObjEnwrap params from (9,pacc) --> (9,pacc,1); Changed ComObjUnwrap to ComObjValue in order to avoid AddRef (thanks fincs); Added Acc_GetRoleText & Acc_GetStateText; Added additional functions - commented below; Removed original Acc_Children function;26/11/2017:; Added Enumerations as Objects; Added IAccessible walking functionality e.g.; acc_childrenFilter(oAcc, ACC_FILTERS.byDescription, "Amazing button");; acc_childrenFilter(oAcc, Func("myAwesomeFunction"), true); myAwesomeFunction(oAcc,val){; return val; }; Added Acc_ChildProxy to Acc_Children;18/01/2019:; Documentation Update;10/05/2019:; Error Checking to ACC_ChildProxy;----------------------------------------------------------------------------------------------------------------------;ACC INTELLISENSE PACK:;----------------------------------------------------------------------------------------------------------------------;IACC成员属性：[ACCCHILD，ACCHECHEDCOUNT，ACCDEFAULTIACT，ACCDESICRING，ACCOCUS，ACCHELP，ACCHELPTOPIC，ACCKEYBOARDSHORTCUT，ACCNAME，ACCPLENT，ACCROLE，ACCSELECTION，ACTATE，ACCVALUE];成员方法：[AccDodefaultAction，Acchittest，Acclimation，AccNavate，AccSelect];全局常量：[acc_navdir，acc_selectionflag，acc_event，vt_constants，acc_filters，acc_objid，Acc_State，Acc_Role];全局方法：[Acc_ObjectFroomEvent，Acc_ObjectFromoPopt，Acc_ObjectFromWindow，Acc_WindowFromObject，Acc_SetWineventhook，Acc_LockWinevent，Acc_Location，Acc_Parent，Acc_Child，Acc_Children，Acc_Get，Acc_ChildrenFilter，Acc_GetRootElement;;----------------------------------------------------------------------------------------------------------------------; DOCUMENTATION:;----------------------------------------------------------------------------------------------------------------------; IACC成员属性：;如果存在，则为指定子项速写读取idispatch界面，如果存在。所有对象都必须支持此属性。请参阅get_accchild。; acchildcount只读属于此对象的子项数。所有对象都必须支持此属性。请参阅get_accchildcount。; AccDefaultAction只读一个描述对象默认操作的字符串。并非所有对象都有默认操作。请参阅get_accdefaultaction。; AccDescription Read-one Lotup To In Automation的转换中不支持ACCDescription属性。 Microsoft Active Accessibility服务器和应用程序不应使用它。一个字符串，用于描述指定对象的可视化外观。并非所有对象都有描述。; ACCFOCUS只读具有键盘焦点的对象。接收键盘焦点的所有对象都必须支持此属性。请参阅get_accfocus。; Acchelp只读一个帮助字符串。并非所有对象都支持此属性。请参阅get_acchelp。; acchelptopic只读注意弃用了acchelptopic属性，不应使用。与指定对象相关联的帮助文件和该文件中相应主题的标识符的完整路径。并非所有对象都支持此属性。; Acckeyboardshortcut只读对象的快捷键或访问密钥，也称为助记符。所有具有快捷键或访问密钥的对象都支持此属性。请参阅get_acckeyboardshortcut。; accName只读对象的名称。所有对象都支持此属性。请参阅get_accname。; ACCALTENT只读对象父级的IDISPATCH接口。所有对象都支持此属性。见get_accparent。; accrole可读信息，用于描述指定对象的角色。所有对象都支持此属性。见get_accrole。; Accselection只读此对象的所选子项。支持选择的所有对象必须支持此属性。请参阅get_accselection。; acctate只读对象的当前状态。所有对象都支持此属性。请参阅get_accstate。; accvalue读/写对象的值。并非所有对象都有一个值。请参阅get_accvalue，put_accvalue。;会员方法：; AccDodeFaultAction执行指定的对象的默认操作。并非所有对象都有默认操作。; Acchittest在屏幕上的给定点处检索子元素或子对象。所有可视对象都支持此方法。; acclocation检索指定的对象的当前屏幕位置。所有可视对象都支持此方法。;ACCNAVAVAVAGE注意弃用了ACCNAVAVAIGE方法，不应使用。客户端应该使用其他方法和属性，如accessiblechildren，get_accchild，get_accparent和ienumvariant。遍历容器中的另一个用户界面元素并检索对象。所有可视对象都支持此方法。; AccSelect修改了选择或移动指定对象的键盘焦点。支持选择或接收键盘焦点的所有对象都必须支持此方法。;全球常量：; ACC_NAVDIR对象包含不同的导航方向标志。; ACC_SELETIONFLAG对象包含不同的ACCSELECT（）标志。; ACC_Event对象包含可以与Acc_ObjectFroomEvent一起使用的不同Windows事件。; VT_Constants对象包含不同的COM VTABLE常量。; ACC_FILERNS包含要与ACC_CHILDRENFILT一起使用的过滤器函数的对象。; ACC_OBID对象包含不同的对象名称和ID。; ACC_STATE对象包含不同的状态名称和ID。; ACC_ROLE对象包含不同的角色名称和ID。;全球方法：; Acc_ObjectFroomEvent（ByRef _idChild_，HWND，IDObject，IDChild） - 用于从事件中获取ACC对象; ACC_OBJECTFOLPOINT（BYREF _IDCHILD_ =“”，x =“”，y =“”） - 用于从x，y点获取ACC对象; Acc_ObjectFromWindow（HWND，IDObject = -4） - 用于从HWND获取ACC对象; Acc_WindowFromObject（PACC） - 用于从ACC对象获取HWND; Acc_SetWineventhook（Eventmin，EventMax，PCallback） - 侦听Windows事件。使用ACC对象Param致电回调。; ACC_UNHOOKWINEVENT（HHOK） - 停止收听现有事件钩。; ACC_LOCATION（ACC，ChildID = 0） - 获取IACIBESSIBLEVENT的位置; ACC_Parent（ACC） - 获取元素的父对象; ACC_CHILD（ACC，CHILDID = 0） - 使用指定的ID获取对象的子项。; ACC_CHILDREN（ACC） - 获取IACICESTIBLEVENT的子项（作为阵列）; ACC_GET（CMD，CHILDPATH =“”，CHILDID = 0，WINTITLE =“”“，WINTEXT =”“，”excludeTITLE =“”，“excludeText =”“） - 获取可访问的对象; ACC_CHILDRENFILTER（OACC，FCondition，Value = 0，RetrateOne = False，OBJ = 0） - 过滤子子通过某些定义的条件; Acc_GetRootElement（） - 返回桌面的ACC对象（所有ACC树元素的根目录）;弃用和内部方法：; ACC_INIT（） - 不要打电话！; Acc_Query（ACC） - 不要打电话！从对象查询iAccessible接口; Acc_Error（p =“”） - 不要打电话！错误信息; ACC_GETROLETEXT（NROLE） - [已弃用。使用ACC_ROLE对象] GET'S ACC角色作为文本。; Acc_GetStateText（nstate） - [已弃用。使用ACC_STATE对象] GET'S ACC状态为文本。; ACC_ROLE（ACC，ChildID = 0） - [已弃用。使用Acc_Role对象]; ACC_STATE（ACC，CHILDID = 0） - [已弃用。使用ACC_STATE对象]; Acc_ChildrenByrole（ACC，角色） - [已弃用。使用ACC_CHILDRENFILTER]获取指定角色的所有孩子。; ACC_CHILDRENBYNAME（OCACESSIBLE，NAME，RETURNONE = FALSE） - [已弃用。使用Acc_ChildrenFilter]按名称过滤子名称，如果returnone那么只返回1个孩子;;----------------------------------------------------------------------------------------------------------------------;进一步描述：;----------------------------------------------------------------------------------------------------------------------; Acc_ChildrenFilter.;过滤在ACC对象中的子项，并调用2nd参数与ACC对象和第3参数定义的函数。;如果函数返回true，则将孩子包含在过滤器中。;例子：;以下函数将包括基于第3个参数的子项：; ACC_CHILDRENFILTER（OACC，FUNC（“MYAWESOMEFUNCT”），真实）;返回所有孩子; ACC_CHILDRENFILTER（OACC，FUNC（“MYAWESOMEFUNCT”），真实）;没有孩子; myawesomefunction（oacc，val）{;返回val.; };; Acc_Filters.;这些通常与`Acc_Childrenfilter`结合使用：;例子：; ACC_CHILDRENFILTER（OACC，ACC_FILTERS.BYDESCRIPTION，“Amazing Button”）;辅助方法列表：; Acc_Filters.ByDefaultAction（OACC，Action） - 通过特定的默认操作过滤子项; Acc_Filters.ByDescription（OACC，DESC） - 通过特定描述过滤子项; ACC_FILTERS.BYVALUE（OACC，VALUE） - 通过特定值过滤子项; ACC_FILTERS.BYHELP（OACC，HLPTXT） - 通过特定的帮助文本过滤子项; Acc_Filters.ByState（OACC，状态） - 通过特定状态过滤子项; ACC_FILTERS.BYROLE（OACC，角色） - 通过特定角色过滤子项; ACC_FILTERS.BYNAME（OACC，NAME） - 通过特定名称过滤子项; ACC_FILTERS.BYGEX（OACC，REGEX） - 通过REGEX匹配对阵字符串的筛选子项：%accName%;%accHelp%;%accValue%;%accDescription%;%accDefaultAction%;----------------------------------------------------------------------------------------------------------------------;https://msdn.microsoft.com/en-us/library/windows/desktop/dd373606(v=vs.85).aspxclass ACC_OBJID{static WINDOW := 0x00000000static SYSMENU := 0xFFFFFFFFstatic TITLEBAR := 0xFFFFFFFEstatic MENU := 0xFFFFFFFDstatic CLIENT := 0xFFFFFFFCstatic VSCROLL := 0xFFFFFFFBstatic HSCROLL := 0xFFFFFFFAstatic SIZEGRIP := 0xFFFFFFF9static CARET := 0xFFFFFFF8static CURSOR := 0xFFFFFFF7static ALERT := 0xFFFFFFF6static SOUND := 0xFFFFFFF5static QUERYCLASSNAMEIDX := 0xFFFFFFF4static NATIVEOM := 0xFFFFFFF0};https://msdn.microsoft.com/en-us/library/windows/desktop/dd373609(v=vs.85).aspxclass ACC_STATE {static NORMAL := 0static UNAVAILABLE := 0x1static SELECTED := 0x2static FOCUSED := 0x4static PRESSED := 0x8static CHECKED := 0x10static MIXED := 0x20static INDETERMINATE := this.MIXEDstatic READONLY := 0x40static HOTTRACKED := 0x80static DEFAULT := 0x100static EXPANDED := 0x200static COLLAPSED := 0x400static BUSY := 0x800static FLOATING := 0x1000static MARQUEED := 0x2000static ANIMATED := 0x4000static INVISIBLE := 0x8000static OFFSCREEN := 0x10000static SIZEABLE := 0x20000static MOVEABLE := 0x40000static SELFVOICING := 0x80000static FOCUSABLE := 0x100000static SELECTABLE := 0x200000static LINKED := 0x400000static TRAVERSED := 0x800000static MULTISELECTABLE := 0x1000000static EXTSELECTABLE := 0x2000000static ALERT_LOW := 0x4000000static ALERT_MEDIUM := 0x8000000static ALERT_HIGH := 0x10000000static PROTECTED := 0x20000000static VALID := 0x7fffffff};https://msdn.microsoft.com/en-us/library/windows/desktop/dd373608(v=vs.85).aspxclass ACC_ROLE {static TITLEBAR := 0x1static MENUBAR := 0x2static SCROLLBAR := 0x3static GRIP := 0x4static SOUND := 0x5static CURSOR := 0x6static CARET := 0x7static ALERT := 0x8static WINDOW := 0x9static CLIENT := 0xastatic MENUPOPUP := 0xbstatic MENUITEM := 0xcstatic TOOLTIP := 0xdstatic APPLICATION := 0xestatic DOCUMENT := 0xfstatic PANE := 0x10static CHART := 0x11static DIALOG := 0x12static BORDER := 0x13static GROUPING := 0x14static SEPARATOR := 0x15static TOOLBAR := 0x16static STATUSBAR := 0x17static TABLE := 0x18static COLUMNHEADER := 0x19static ROWHEADER := 0x1astatic COLUMN := 0x1bstatic ROW := 0x1cstatic CELL := 0x1dstatic LINK := 0x1estatic HELPBALLOON := 0x1fstatic CHARACTER := 0x20static LIST := 0x21static LISTITEM := 0x22static OUTLINE := 0x23static OUTLINEITEM := 0x24static PAGETAB := 0x25static PROPERTYPAGE := 0x26static INDICATOR := 0x27static GRAPHIC := 0x28static STATICTEXT := 0x29static TEXT := 0x2astatic PUSHBUTTON := 0x2bstatic CHECKBUTTON := 0x2cstatic RADIOBUTTON := 0x2dstatic COMBOBOX := 0x2estatic DROPLIST := 0x2fstatic PROGRESSBAR := 0x30static DIAL := 0x31static HOTKEYFIELD := 0x32static SLIDER := 0x33static SPINBUTTON := 0x34static DIAGRAM := 0x35static ANIMATION := 0x36static EQUATION := 0x37static BUTTONDROPDOWN := 0x38static BUTTONMENU := 0x39static BUTTONDROPDOWNGRID := 0x3astatic WHITESPACE := 0x3bstatic PAGETABLIST := 0x3cstatic CLOCK := 0x3dstatic SPLITBUTTON := 0x3estatic IPADDRESS := 0x3fstatic OUTLINEBUTTON := 0x40};https://msdn.microsoft.com/en-us/library/windows/desktop/dd373600(v=vs.85).aspxclass ACC_NAVDIR {static MIN := 0x0static UP := 0x1static DOWN := 0x2static LEFT := 0x3static RIGHT := 0x4static NEXT := 0x5static PREVIOUS := 0x6static FIRSTCHILD := 0x7static LASTCHILD := 0x8static MAX := 0x9};https://msdn.microsoft.com/en-us/library/windows/desktop/dd373634(v=vs.85).aspxclass ACC_SELECTIONFLAG {static NONE := 0x0static TAKEFOCUS := 0x1static TAKESELECTION := 0x2static EXTENDSELECTION := 0x4static ADDSELECTION := 0x8static REMOVESELECTION := 0x10static VALID := 0x1f};MSAA Events list:; https://msdn.microsoft.com/en-us/library/windows/desktop/dd318066(v=vs.85).aspx;What are win events:; https://msdn.microsoft.com/en-us/library/windows/desktop/dd373868(v=vs.85).aspx;System-Level and Object-level events:; https://msdn.microsoft.com/en-us/library/windows/desktop/dd373657(v=vs.85).aspx;Console accessibility:; https://msdn.microsoft.com/en-us/library/ms971319.aspxclass ACC_EVENT {static MIN := 0x00000001static MAX := 0x7FFFFFFFstatic SYSTEM_SOUND := 0x0001static SYSTEM_ALERT := 0x0002static SYSTEM_FOREGROUND := 0x0003static SYSTEM_MENUSTART := 0x0004static SYSTEM_MENUEND := 0x0005static SYSTEM_MENUPOPUPSTART := 0x0006static SYSTEM_MENUPOPUPEND := 0x0007static SYSTEM_CAPTURESTART := 0x0008static SYSTEM_CAPTUREEND := 0x0009static SYSTEM_MOVESIZESTART := 0x000Astatic SYSTEM_MOVESIZEEND := 0x000Bstatic SYSTEM_CONTEXTHELPSTART := 0x000Cstatic SYSTEM_CONTEXTHELPEND := 0x000Dstatic SYSTEM_DRAGDROPSTART := 0x000Estatic SYSTEM_DRAGDROPEND := 0x000Fstatic SYSTEM_DIALOGSTART := 0x0010static SYSTEM_DIALOGEND := 0x0011static SYSTEM_SCROLLINGSTART := 0x0012static SYSTEM_SCROLLINGEND := 0x0013static SYSTEM_SWITCHSTART := 0x0014static SYSTEM_SWITCHEND := 0x0015static SYSTEM_MINIMIZESTART := 0x0016static SYSTEM_MINIMIZEEND := 0x0017static CONSOLE_CARET := 0x4001static CONSOLE_UPDATE_REGION := 0x4002static CONSOLE_UPDATE_SIMPLE := 0x4003static CONSOLE_UPDATE_SCROLL := 0x4004static CONSOLE_LAYOUT := 0x4005static CONSOLE_START_APPLICATION := 0x4006static CONSOLE_END_APPLICATION := 0x4007static OBJECT_CREATE := 0x8000static OBJECT_DESTROY := 0x8001static OBJECT_SHOW := 0x8002static OBJECT_HIDE := 0x8003static OBJECT_REORDER := 0x8004static OBJECT_FOCUS := 0x8005static OBJECT_SELECTION := 0x8006static OBJECT_SELECTIONADD := 0x8007static OBJECT_SELECTIONREMOVE := 0x8008static OBJECT_SELECTIONWITHIN := 0x8009static OBJECT_STATECHANGE := 0x800Astatic OBJECT_LOCATIONCHANGE := 0x800Bstatic OBJECT_NAMECHANGE := 0x800Cstatic OBJECT_DESCRIPTIONCHANGE := 0x800Dstatic OBJECT_VALUECHANGE := 0x800Estatic OBJECT_PARENTCHANGE := 0x800Fstatic OBJECT_HELPCHANGE := 0x8010static OBJECT_DEFACTIONCHANGE := 0x8011static OBJECT_ACCELERATORCHANGE := 0x8012}class VT_CONSTANTS {static EMPTY := 0x0 ; No valuestatic NULL := 0x1 ; SQL-style Nullstatic I2 := 0x2 ; 16-bit signed intstatic I4 := 0x3 ; 32-bit signed intstatic R4 := 0x4 ; 32-bit floating-point numberstatic R8 := 0x5 ; 64-bit floating-point numberstatic CY := 0x6 ; Currencystatic DATE := 0x7 ; Datestatic BSTR := 0x8 ; COM string (Unicode string with length prefix)static DISPATCH := 0x9 ; COM objectstatic ERROR := 0xA ; Error code (32-bit integer)static BOOL := 0xB ; Boolean True (-1) or False (0)static VARIANT := 0xC ; VARIANT (must be combined with VT_ARRAY or VT_BYREF)static UNKNOWN := 0xD ; IUnknown interface pointerstatic DECIMAL := 0xE ; (not supported)static I1 := 0x10 ; 8-bit signed intstatic UI1 := 0x11 ; 8-bit unsigned intstatic UI2 := 0x12 ; 16-bit unsigned intstatic UI4 := 0x13 ; 32-bit unsigned intstatic I8 := 0x14 ; 64-bit signed intstatic UI8 := 0x15 ; 64-bit unsigned intstatic INT := 0x16 ; Signed machine intstatic UINT := 0x17 ; Unsigned machine intstatic RECORD := 0x24 ; User-defined type -- NOT SUPPORTEDstatic ARRAY := 0x2000 ; SAFEARRAYstatic BYREF := 0x4000 ; Pointer to another type of value}class ACC_FILTERS {byDefaultAction(oAcc,action){b := oAcc.accDefaultAction = actionreturn b}byDescription(oAcc,desc){b := oAcc.accDescription = descreturn b}byValue(oAcc,value){b := oAcc.accValue = valuereturn b}byHelp(oAcc,help){b := oAcc.accHelp = help}byState(oAcc,state){return oAcc.accState & state}byRole(oAcc,role){b := oAcc.accRole = rolereturn b}byName(oAcc,name){b := oAcc.accName = namereturn b}byRegex(oAcc,rx){info := oAcc.accName . ";". oAcc.accHelp . ";". oAcc.accValue ";". oAcc.accDescription . ";". oAcc.accDefaultActionreturn RegexMatch(Haystack, rx) > 0}}Acc_Init(){Static h := DllCall("LoadLibrary","Str","oleacc","Ptr")}Acc_ObjectFromEvent(ByRef _idChild_, hWnd, idObject, idChild){Acc_Init()if (DllCall("oleacc\AccessibleObjectFromEvent", "Ptr", hWnd, "UInt", idObject, "UInt", idChild, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild, 8 + 2 * A_PtrSize, 0) * 0 + &varChild) = 0) {_idChild_:=NumGet(varChild,8,"UInt")return ComObjEnwrap(9,pacc,1)}}Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = ""){Acc_Init()if (DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x == ""||y==""? 0 * DllCall("GetCursorPos","Int64*",pt) + pt: x & 0xFFFFFFFF | y << 32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild, 8 + 2 * A_PtrSize, 0) * 0 + &varChild) = 0) {_idChild_:=NumGet(varChild,8,"UInt")return ComObjEnwrap(9,pacc,1)}}Acc_ObjectFromWindow(hWnd, idObject = -4){Acc_Init()if (DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject &= 0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+ NumPut(idObject == 0xFFFFFFF0? 0x46000000000000C0: 0x719B3800AA000C81, NumPut(idObject == 0xFFFFFFF0? 0x0000000000020400: 0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc) = 0)return ComObjEnwrap(9,pacc,1)}Acc_WindowFromObject(pacc){if (DllCall("oleacc\WindowFromAccessibleObject", "Ptr", IsObject(pacc) ? ComObjValue(pacc) : pacc, "Ptr*", hWnd) = 0)return hWnd};Implement this?; IAccessibleHandler::AccessibleObjectFromIDAcc_GetRoleText(nRole){nSize := DllCall("oleacc\GetRoleText", "Uint", nRole, "Ptr", 0, "Uint", 0)VarSetCapacity(sRole, (A_IsUnicode ? 2 : 1) * nSize)DllCall("oleacc\GetRoleText", "Uint", nRole, "str", sRole, "Uint", nSize+1)return sRole}Acc_GetStateText(nState){nSize := DllCall("oleacc\GetStateText", "Uint", nState, "Ptr", 0, "Uint", 0)VarSetCapacity(sState, (A_IsUnicode ? 2 : 1) * nSize)DllCall("oleacc\GetStateText", "Uint", nState, "str", sState, "Uint", nSize+1)return sState}Acc_SetWinEventHook(eventMin, eventMax, pCallback){Return DllCall("SetWinEventHook", "Uint", eventMin, "Uint", eventMax, "Uint", 0, "Ptr", pCallback, "Uint", 0, "Uint", 0, "Uint", 0)}Acc_UnhookWinEvent(hHook){Return DllCall("UnhookWinEvent", "Ptr", hHook)}/* Win Events:pCallback := RegisterCallback("WinEventProc")WinEventProc(hHook, event, hWnd, idObject, idChild, eventThread, eventTime){CriticalAcc := Acc_ObjectFromEvent(_idChild_, hWnd, idObject, idChild); Code Here:}*/; Written by jethrowAcc_Role(Acc, ChildId=0) {try return ComObjType(Acc,"Name") = "IAccessible"? Acc_GetRoleText(Acc.accRole(ChildId)): "invalid object"}Acc_State(Acc, ChildId=0) {try return ComObjType(Acc,"Name") = "IAccessible"? Acc_GetStateText(Acc.accState(ChildId)): "invalid object"}Acc_Location(Acc, ChildId=0) { ; adapted from Sean's codetry Acc.accLocation(ComObj(0x4003, & x := 0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)catchreturnreturn { x:NumGet(x,0,"int"), y:NumGet(y,0,"int"), w:NumGet(w,0,"int"), h:NumGet(h,0,"int"), pos:"x" NumGet(x,0,"int"). " y" NumGet(y,0,"int"). " w" NumGet(w,0,"int"). " h" NumGet(h,0,"int") }}Acc_Parent(Acc) {try parent := Acc.accParentreturn parent ? Acc_Query(parent) :}Acc_Child(Acc, ChildId=0) {try child := Acc.accChild(ChildId)return child ? Acc_Query(child) :}; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530Acc_Query(Acc) {try return ComObj(9, ComObjQuery(Acc, "{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)};Acc_GetChild(Acc_or_Hwnd, child_path) {; Acc := WinExist("ahk_id" Acc_or_Hwnd)? Acc_ObjectFromWindow(Acc_or_Hwnd):Acc_or_Hwnd; if ComObjType(Acc,"Name") = "IAccessible" {; Loop Parse, child_path, csv; Acc := A_LoopField="P"? Acc_Parent(Acc):Acc_Children(Acc)[A_LoopField]; return Acc; };}Acc_Error(p="") {static setting:=0return p=""?setting:setting:=p}Acc_Children(Acc) {if ComObjType(Acc,"Name") != "IAccessible"ErrorLevel := "Invalid IAccessible Object"else {Acc_Init(), cChildren:=Acc.accChildCount, Children:=[], ErrorLevel=if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {Loop %cChildren%{i:=(A_Index-1)*(A_PtrSize*2+8)+8child:=NumGet(varChildren,i);I assume NumGet(varChildren,i-8) is ComObjType ~SancarnComType := NumGet(varChildren,i-8)if (ComType = VT_CONSTANTS.DISPATCH) {Children.push(Acc_Query(child))ObjRelease(child)} else if (ComType = VT_CONSTANTS.I4) {Children.push(new ACC_ChildProxy(Acc,child))} else {ErrorLevel := "Unknown ComType: " ComTypeChildren.push(child)}}return Children.MaxIndex()?Children:} elseErrorLevel := "AccessibleChildren DllCall Failed"}if Acc_Error()throw Exception(ErrorLevel,-1)}Acc_ChildrenByRole(Acc, Role) {if ComObjType(Acc,"Name")!="IAccessible"ErrorLevel := "Invalid IAccessible Object"else {Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {Loop %cChildren% {i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i)if NumGet(varChildren,i-8)=9AccChild:=Acc_Query(child), ObjRelease(child), Acc_Role(AccChild)=Role?Children.Insert(AccChild):elseAcc_Role(Acc, child)=Role?Children.Insert(child):}return Children.MaxIndex()?Children:, ErrorLevel:=0} elseErrorLevel := "AccessibleChildren DllCall Failed"}if Acc_Error()throw Exception(ErrorLevel,-1)}Acc_Get(Cmd, ChildPath="", ChildID=0, WinTitle="", WinText="", ExcludeTitle="", ExcludeText="") {static properties := {Action:"DefaultAction", DoAction:"DoDefaultAction", Keyboard:"KeyboardShortcut"}AccObj := IsObject(WinTitle)? WinTitle: Acc_ObjectFromWindow( WinExist(WinTitle, WinText, ExcludeTitle, ExcludeText), 0 )if ComObjType(AccObj, "Name") != "IAccessible"ErrorLevel := "Could not access an IAccessible Object"else {StringReplace, ChildPath, ChildPath, _, %A_Space%, AllAccError:=Acc_Error(), Acc_Error(true)Loop Parse, ChildPath, ., %A_Space%try {if A_LoopField is digitChildren:=Acc_Children(AccObj), m2:=A_LoopField ; mimic "m2" output in else-statementelseRegExMatch(A_LoopField, "(\D*)(\d*)", m), Children:=Acc_ChildrenByRole(AccObj, m1), m2:=(m2?m2:1)if Not Children.HasKey(m2)throwAccObj := Children[m2]} catch {ErrorLevel:="Cannot access ChildPath Item #" A_Index " -> " A_LoopField, Acc_Error(AccError)if Acc_Error()throw Exception("Cannot access ChildPath Item", -1, "Item #" A_Index " -> " A_LoopField)return}Acc_Error(AccError)StringReplace, Cmd, Cmd, %A_Space%, , Allproperties.HasKey(Cmd)? Cmd:=properties[Cmd]:try {if (Cmd = "Location")AccObj.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId), ret_val := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")else if (Cmd = "Object")ret_val := AccObjelse if Cmd in Role,Stateret_val := Acc_%Cmd%(AccObj, ChildID+0)else if Cmd in ChildCount,Selection,Focusret_val := AccObj["acc" Cmd]elseret_val := AccObj["acc" Cmd](ChildID+0)} catch {ErrorLevel := """" Cmd """ Cmd Not Implemented"if Acc_Error()throw Exception("Cmd Not Implemented", -1, Cmd)return}return ret_val, ErrorLevel:=0}if Acc_Error()throw Exception(ErrorLevel,-1)}acc_childrenByName(oAccessible, name,returnOne=false){items:=Acc_Children(oAccessible)results := []for k,item in items{if item.accName = name {if returnOne {return item}results.push(item)}}return results}acc_childrenFilter(oAcc, fCondition, value=0, returnOne=false, obj=0){items:=Acc_Children(oAcc)results := []if !IsFunc(fCondition)return 0if obj =0obj:=ACC_FILTERSmethodCallConvention = instr(fCondition.name, ".") > 0for k,item in items{;fCondition(this ==> stores variables && other methods of object,item,value)if methodCallConvention {condition := fCondition.call(obj,item,value)} else {condition := fCondition.call(item,value)}if condition {if returnOne {return item}results.push(item)}}return results}acc_getRootElement(){return acc_ObjectFromWindow(0x10010) ;Root object window handle always appears to be 0x10010}class ACC_ChildProxy {__New(oAccParent,id){global ACC_STATEthis.__accParent := oAccParentthis.__accChildID := idthis.accParent := oAccParenttry {this.accDefaultAction := oAccParent.accDefaultAction(id)} catch e {this.accDefaultAction:=""}try {this.accDescription := oAccParent.accDescription(id)} catch e {this.accDescription:=""}try {this.accHelp := oAccParent.accHelp(id)} catch e {this.accHelp:=""}try {this.accHelpTopic := oAccParent.accHelpTopic(id)} catch e {this.accHelpTopic:=""}try {this.accKeyboardShortcut := oAccParent.accKeyboardShortcut(id)} catch e {this.accKeyboardShortcut:=""}try {this.accName := oAccParent.accName(id)} catch e {this.accName:=""}try {this.accRole := oAccParent.accRole(id)} catch e {this.accRole:=""}try {this.accState := oAccParent.accState(id)} catch e {this.accState:=""}try {this.accValue := oAccParent.accValue(id)} catch e {this.accValue:=""}try {this.accFocus := this.accState && ACC_STATE.FOCUSED} catch e {this.accFocus:=""}}accDoDefaultAction(){return this.__accParent.accDoDefaultAction(this.__accChildID)}accHitTest(){return false}accLocation(ByRef left, Byref top, ByRef width, ByRef height){return this.__accParent.accLocation(left, top, width, height, this.__accChildID)}accNavigate(){return this.__accParent.accNavigate(navDir,this.__accChildID)}accSelect(flagsSelect){return this.__accParent.accSelect(flagsSelect,this.__accChildID)}}
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
留个脚印，晚些再回来好好看看，研究研究
天书级别啊
mark一下 难得的Acc库相关资料