通过Acc库控制窗口控件

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#include %A_scriptdir%/lib/acc.ahk
global childPathPen := "4.10.1.1.3.1"
global childPathDele := "4.10.1.1.2.1.1"
F1::
obj := Acc_GetInfoUnderCursor(), id:=obj.hwnd
DetectHiddenWindows, On
WinGetTitle, tt, ahk_id %id%
WinGetClass, class, ahk_id %id%
tt:=Trim(class="" ? tt : tt " ahk_class " class)
;MsgBox, 4096,, % "id" id "-->" tt " --> " obj.path " --> " SubStr(obj.text,1,100)
return
f2::
choosebutton(childPathPen,id)
return
f3::
choosebutton(childPathDele,id)
return

choosebutton(childPath,id)
{
    local
    ;MsgBox,% "childPath:" childPath "id:" id 
    Acc := Acc_Get("Object",childPath, 0, "ahk_id" id)
    Acc.accDoDefaultAction(0)
}

f6::
Reload
return
;==================================================
;Acc:=Acc_Get("Object", obj.path, 0, "ahk_id " id)
;Acc.accSelect(1,0)
;MsgBox,% Acc.accValue(0)
;SendInput, {raw}{hetong}
;Acc.put_accValue(0,"value")
;Acc.accDoDefaultAction(0)
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。

给TA捐赠
共{{data.count}}人
人已捐赠
教程

抛弃msgbox调试,scite控制台直接输出调试信息

2020-6-4 21:59:11

教程

AHK 终端类【搬运】

2020-7-13 16:58:15

5 条回复 A文章作者 M管理员
  1. 快乐就好

    测试缺少函数,com库加上后,acc库里也没有你用的函数。。。

  2. 星星雨

    学习了

  3. 可乐

    学习了

  4. user14586

    学习了

个人中心
购物车
优惠劵
有新私信 私信列表
搜索