微信内存搜索群目录好友目录易语言源码

微信内存搜索群目录好友目录易语言源码

.版本 2
.支持库 iext

.子程序 __启动窗口_首次激活
.局部变量 sz, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 bx, 整数型
.局部变量 内存, 类_内存
.局部变量 内容, 文本型, , "3"
.局部变量 a, 文本型
.局部变量 b, 文本型

进程_取ID数组 (“WeChat.exe”, 进程id)
输出调试文本 (“首次激活 ” ＋ 到文本 (取数组成员数 (进程id)))
内存.搜索 (进程id [1], 到字节集 (“v1_”), sz)
.计次循环首 (取数组成员数 (sz), i)
    内容 [1] ＝ 编码_URL解码 (内存.读文本 (进程id [1], sz [i] － 子程序 (进程id [1], sz [i]), 200), 真)
    .如果真 (寻找文本 (内容 [1], “http”, , 假) ＝ -1 或 超级列表框1.查找表项 (内容 [1], , , 5) ≠ -1)
        到循环尾 ()
    .如果真结束
    bx ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
    超级列表框1.置标题 (bx, 5, 内容 [1])
    .如果真 (取文本左边 (内容 [1], 5) ＝ “wxid_”)
        超级列表框1.置标题 (bx, 1, 取文本左边 (内容 [1], 19))
        内容 [1] ＝ 取文本右边 (内容 [1], 取文本长度 (内容 [1]) － 19)
    .如果真结束
    .如果真 (取文本左边 (内容 [1], 3) ＝ “gh_”)
        超级列表框1.置标题 (bx, 1, 取文本左边 (内容 [1], 15))
        内容 [1] ＝ 取文本右边 (内容 [1], 取文本长度 (内容 [1]) － 15)
    .如果真结束
    超级列表框1.置标题 (bx, 2, 取文本左边 (内容 [1], 寻找文本 (内容 [1], “v1_”, , 假) － 1))
    内容 [1] ＝ 取文本右边 (内容 [1], 取文本长度 (内容 [1]) － 倒找文本 (内容 [1], “v1_”, , 假) ＋ 1)
    超级列表框1.置标题 (bx, 3, 取文本左边 (内容 [1], 寻找文本 (内容 [1], “@stranger”, , 假) － 1))
    超级列表框1.置标题 (bx, 4, 文本_取出中间文本 (内容 [1], “@stranger”, “http”, , ))

@tianxi