易语言解析QQ资料卡 隐藏数据

易语言解析QQ资料卡 隐藏数据

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 总数, 整数型
.局部变量 数组, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 标识, 文本型
.局部变量 句柄, 整数型

总数 ＝ 窗口_枚举子窗口 (, 数组, “TXGuiFoundation”)
.计次循环首 (总数, i)
    句柄 ＝ 数组 [i]
    标识 ＝ 窗口_取标题 (句柄)
    .如果真 (寻找文本 (标识, “的资料”, , 假) ≠ -1)
        调试输出 (标识)
        资料卡获取 (句柄)
        调试输出 (“————————————————————————”)
    .如果真结束

.计次循环尾 ()

返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 资料卡获取
.参数 参_句柄, 整数型
.局部变量 元素, 精易_详细信息, , "0"
.局部变量 i, 整数型
.局部变量 A, 精易_详细信息

自绘窗口_枚举角色 (参_句柄, 40, 元素)
.计次循环首 (取数组成员数 (元素), i)
    A ＝ 元素 [i]
    .如果真 (A.窗口大小 ＝ “宽：42 高：16”)
        调试输出 (A.控件描述)
    .如果真结束

.计次循环尾 ()
清除数组 (元素)
自绘窗口_枚举角色 (参_句柄, 43, 元素)
.计次循环首 (取数组成员数 (元素), i)
    A ＝ 元素 [i]
    .如果真 (A.窗口大小 ＝ “宽：22 高：20”)
        调试输出 (A.控件描述)
    .如果真结束

.计次循环尾 ()
清除数组 (元素)
自绘窗口_枚举角色 (参_句柄, 16, 元素)
.计次循环首 (取数组成员数 (元素), i)
    A ＝ 元素 [i]
    .如果真 (寻找文本 (A.控件名称, “等级”, , 假) ≠ -1)
        调试输出 (A.控件名称)
    .如果真结束

.计次循环尾 ()

@兔子君