增加 自绘窗口_Accessible定位 功能

易之徒

因为最近要用自绘窗口的获取消息问题，但是目前自绘窗口_解析没有层级搜索的关系，所以自己写一个自绘窗口的Accessible定位。
不多bb，直接上代码吧

  

子程序名	返回值类型	公开	备 注
自绘窗口_Accessible定位	类_Accessible		返回定位后的Accessible
参数名	类 型	参考	可空	数组	备 注
Accessible	类_Accessible				传入即将要定位的Accessible根节点
表达式	文本型				">"进入下一节点，"#"根据序号进入节点，"?"根据条件进入节点，"&"且，"=="恒等于，"="包含于。n控件名称，s控件状态，t控件类型，id控件ID，v控件值。|例子“#4>#2>?n==ABC&t=EDF>#2”，意思为从根节点开始首先进入第4个节点再进入第2个节点再判断控件名称为ABC且控件类型内容含有EDF的节点再进入第2个节点

变量名	类 型	静态	数组	备 注
子表达式	文本型		0
i	整数型
command	文本型
opertor	文本型
childcount	整数型
Accessibles	类_Accessible		0
j	整数型
found	逻辑型

计次循环首 (文本_分割文本 (表达式, “>”, , 子表达式), i)
opertor ＝ 取文本左边 (子表达式 [i], 1)
command ＝ 取文本右边 (子表达式 [i], 取文本长度 (子表达式 [i]) － 1)
childcount ＝ Accessible.枚举子元素 (Accessibles)
判断 (opertor ＝ “#”)
如果 (到整数 (command) ＞ childcount)
返回 (Accessible)
Accessible ＝ Accessibles [到整数 (command)]

判断 (opertor ＝ “?”)
found ＝ 假
计次循环首 (childcount, j)
如果真 (内部_解析命令 (command, Accessibles [j]))
Accessible ＝ Accessibles [j]
found ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (found ＝ 假)
返回 (Accessible)




计次循环尾 ()
返回 (Accessible)

子程序名	返回值类型	公开	备 注
内部_解析命令	逻辑型
参数名	类 型	参考	可空	数组	备 注
command	文本型
Accessible	类_Accessible

变量名	类 型	静态	数组	备 注
k	整数型
equal	文本型		0
contain	文本型		0
详细信息	精易_详细信息
child_commands	文本型		0

详细信息 ＝ 自绘窗口_格式化信息 (Accessible)
child_commands ＝ 分割文本 (command, “&”, )
计次循环首 (取数组成员数 (child_commands), k)
判断 (寻找文本 (child_commands [k], “==”, , 假) ≠ -1)
equal ＝ 分割文本 (child_commands [k], “==”, )
判断 (equal [1] ＝ “n”)
如果真 (详细信息.控件名称 ≠ equal [2])
返回 (假)

判断 (equal [1] ＝ “s”)
如果真 (详细信息.控件状态 ≠ equal [2])
返回 (假)

判断 (equal [1] ＝ “t”)
如果真 (详细信息.控件类型 ≠ equal [2])
返回 (假)

判断 (equal [1] ＝ “id”)
如果真 (详细信息.控件ID ≠ equal [2])
返回 (假)

判断 (equal [1] ＝ “v”)
如果真 (详细信息.控件值 ≠ equal [2])
返回 (假)




判断 (寻找文本 (child_commands [k], “=”, , 假) ≠ -1)
contain ＝ 分割文本 (child_commands [k], “=”, )
判断 (contain [1] ＝ “n”)
如果真 (寻找文本 (详细信息.控件名称, contain [2], , 假) ＝ -1)
返回 (假)

判断 (contain [1] ＝ “s”)
如果真 (寻找文本 (详细信息.控件状态, contain [2], , 假) ＝ -1)
返回 (假)

判断 (contain [1] ＝ “t”)
如果真 (寻找文本 (详细信息.控件类型, contain [2], , 假) ＝ -1)
返回 (假)

判断 (contain [1] ＝ “id”)
如果真 (寻找文本 (详细信息.控件ID, contain [2], , 假) ＝ -1)
返回 (假)

判断 (contain [1] ＝ “v”)
如果真 (寻找文本 (详细信息.控件值, contain [2], , 假) ＝ -1)
返回 (假)







计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .子程序 自绘窗口_Accessible定位, 类_Accessible, 公开, 返回定位后的Accessible<br /> .参数 Accessible, 类_Accessible, , 传入即将要定位的Accessible根节点<br /> .参数 表达式, 文本型, , ">"进入下一节点，"#"根据序号进入节点，"?"根据条件进入节点，"&"且，"=="恒等于，"="包含于。n控件名称，s控件状态，t控件类型，id控件ID，v控件值。|例子“#4>#2>?n==ABC&t=EDF>#2”，意思为从根节点开始首先进入第4个节点再进入第2个节点再判断控件名称为ABC且控件类型内容含有EDF的节点再进入第2个节点<br /> .局部变量 子表达式, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 command, 文本型<br /> .局部变量 opertor, 文本型<br /> .局部变量 childcount, 整数型<br /> .局部变量 Accessibles, 类_Accessible, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 found, 逻辑型<br /> <br /> .计次循环首 (文本_分割文本 (表达式, “>”, , 子表达式), i)<br />     opertor ＝ 取文本左边 (子表达式 <i>, 1)<br />     command ＝ 取文本右边 (子表达式 <i>, 取文本长度 (子表达式 <i>) － 1)<br />     childcount ＝ Accessible.枚举子元素 (Accessibles)<br />     .判断开始 (opertor ＝ “#”)<br />         .如果 (到整数 (command) ＞ childcount)<br />             返回 (Accessible)<br />         .否则<br />             Accessible ＝ Accessibles [到整数 (command)]<br />         .如果结束<br /> <br />     .判断 (opertor ＝ “?”)<br />         found ＝ 假<br />         .计次循环首 (childcount, j)<br />             .如果真 (内部_解析命令 (command, Accessibles [j]))<br />                 Accessible ＝ Accessibles [j]<br />                 found ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (found ＝ 假)<br />             返回 (Accessible)<br />         .如果真结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (Accessible)<br /> <br /> .子程序 内部_解析命令, 逻辑型<br /> .参数 command, 文本型<br /> .参数 Accessible, 类_Accessible<br /> .局部变量 k, 整数型<br /> .局部变量 equal, 文本型, , "0"<br /> .局部变量 contain, 文本型, , "0"<br /> .局部变量 详细信息, 精易_详细信息<br /> .局部变量 child_commands, 文本型, , "0"<br /> <br /> 详细信息 ＝ 自绘窗口_格式化信息 (Accessible)<br /> child_commands ＝ 分割文本 (command, “&”, )<br /> .计次循环首 (取数组成员数 (child_commands), k)<br />     .判断开始 (寻找文本 (child_commands [k], “==”, , 假) ≠ -1)<br />         equal ＝ 分割文本 (child_commands [k], “==”, )<br />         .判断开始 (equal [1] ＝ “n”)<br />             .如果真 (详细信息.控件名称 ≠ equal [2])<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (equal [1] ＝ “s”)<br />             .如果真 (详细信息.控件状态 ≠ equal [2])<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (equal [1] ＝ “t”)<br />             .如果真 (详细信息.控件类型 ≠ equal [2])<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (equal [1] ＝ “id”)<br />             .如果真 (详细信息.控件ID ≠ equal [2])<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (equal [1] ＝ “v”)<br />             .如果真 (详细信息.控件值 ≠ equal [2])<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断 (寻找文本 (child_commands [k], “=”, , 假) ≠ -1)<br />         contain ＝ 分割文本 (child_commands [k], “=”, )<br />         .判断开始 (contain [1] ＝ “n”)<br />             .如果真 (寻找文本 (详细信息.控件名称, contain [2], , 假) ＝ -1)<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (contain [1] ＝ “s”)<br />             .如果真 (寻找文本 (详细信息.控件状态, contain [2], , 假) ＝ -1)<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (contain [1] ＝ “t”)<br />             .如果真 (寻找文本 (详细信息.控件类型, contain [2], , 假) ＝ -1)<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (contain [1] ＝ “id”)<br />             .如果真 (寻找文本 (详细信息.控件ID, contain [2], , 假) ＝ -1)<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .判断 (contain [1] ＝ “v”)<br />             .如果真 (寻找文本 (详细信息.控件值, contain [2], , 假) ＝ -1)<br />                 返回 (假)<br />             .如果真结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

使用演示：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_句柄	整数型
Accessible	类_Accessible
定位后Accessible	类_Accessible
详细信息	精易_详细信息

局_句柄 ＝ 窗口_取句柄 (, , “ChatWnd”, 编辑框1.内容)
Accessible.创建自窗口句柄 (局_句柄)
定位后Accessible ＝ 自绘窗口_Accessible定位 (Accessible, “?t==客户端&s==正常>#1>#1>#2>#1>#1>#2>#1>#1”)
详细信息 ＝ 自绘窗口_格式化信息 (定位后Accessible)
调试输出 (详细信息.控件名称, 详细信息.控件状态, 详细信息.控件类型, 定位后Accessible.取子元素总数 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 Accessible, 类_Accessible<br /> .局部变量 定位后Accessible, 类_Accessible<br /> .局部变量 详细信息, 精易_详细信息<br /> <br /> 局_句柄 ＝ 窗口_取句柄 (, , “ChatWnd”, 编辑框1.内容)<br /> Accessible.创建自窗口句柄 (局_句柄)<br /> 定位后Accessible ＝ 自绘窗口_Accessible定位 (Accessible, “?t==客户端&s==正常>#1>#1>#2>#1>#1>#2>#1>#1”)<br /> 详细信息 ＝ 自绘窗口_格式化信息 (定位后Accessible)<br /> 调试输出 (详细信息.控件名称, 详细信息.控件状态, 详细信息.控件类型, 定位后Accessible.取子元素总数 ())

Tk猫

        支持开源~！感谢分享

xab111

啊啊啊感谢作者感谢作者感谢作者感谢作者感谢作者感谢作者感谢作者感谢作者感谢作者

a萧哥

易之徒 发表于 2021-1-6 18:39
由于发布太过于匆促，导致有些边界条件没返回好或某些情况没考虑，现在修改后再贴出最新的代码。
...

有没有大佬来详细讲一下这个类_Accessible是怎么用的，来上课

jhaa888888

下载学习一下，谢谢楼主

lelele1979

666666666666666666

sunjie0632

如果直接调用 子程序() 可以正常使用--------(一直循环调用 子程序(),,,  程序会很卡 )
如果 启动线程(&子程序,,) 就获取不到 或者说解析不出来
不知道哪里出问题了??    有明白的?

方羽

易之徒 发表于 2021-1-6 18:39
由于发布太过于匆促，导致有些边界条件没返回好或某些情况没考虑，现在修改后再贴出最新的代码。
...

用首页的，也发现这个问题了，没想到在这里。。为爱发电！支持

esxftjbl

支持开源~！感谢分享

godandwoman

支持开源~！感谢分享