用易语言开发的，我确保能用的，发布时间为11月20号，客户之前定制的我现在留着也没用，并且这个接口微信本身就有，我调用也不算是违规，然后下面是框架图和代码。
框架图：
演示的图，通过WXID可以转到个人名片上面：【微信正规接口并非HOOK逆向】
易语言源码分享：
==========================================================
.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 进程id, 整数型, , "0"
.程序集变量 x, 整数型
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 s, 整数型, 静态
.局部变量 w, 文本型, 静态
.如果真 (w ≠ 编辑框1.内容)
w ＝ 编辑框1.内容
x ＝ 0
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), i)
.如果真 (x ＜ i － 1)
.如果真 (寻找文本 (超级列表框1.取标题 (i － 1, 到整数 (编辑框2.内容)), 编辑框1.内容, , 假) ≠ -1)
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 到整数 (编辑框2.内容), #白色, #灰色)
x ＝ i － 1
超级列表框1.保证显示 (x)
调试输出 (超级列表框1.取标题 (i － 1, 到整数 (编辑框2.内容)))
跳出循环 ()
.如果真结束
.如果真结束
.计次循环尾 ()
.如果 (s ＝ x)
x ＝ 0
.否则
s ＝ x
.如果结束
.子程序 __启动窗口_创建完毕1
.局部变量 sz, 整数型, , "0"
.局部变量 内存, 类_内存
.局部变量 i, 整数型
.局部变量 bx, 整数型
.局部变量 内容, 文本型, , "3"
进程_取ID数组 (“WeChat.exe”, 进程id)
内存.搜索 (进程id [1], 到字节集 (“wxid_”), sz)
.计次循环首 (取数组成员数 (sz), i)
内容 [1] ＝ 内存.读文本 (进程id [1], sz [i], 19)
内容 [2] ＝ 内存.读文本 (进程id [1], sz [i] ＋ 19, 200)
.如果真 (寻找文本 (内容 [2], “ttp”, , 假) ≠ -1)
到循环尾 ()
.如果真结束
bx ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
超级列表框1.置标题 (bx, 1, 内存.读文本 (进程id [1], sz [i], 200))
.如果真 (寻找文本 (内容 [2], “v1_”, , 假) ≠ -1)
' bx ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
' 超级列表框1.置标题 (bx, 1, 内容 [1])
.如果 (取文本左边 (内容 [2], 寻找文本 (内容 [2], “v1_”, , 假) － 1) ≠ “”)
超级列表框1.置标题 (bx, 2, 取文本左边 (内容 [2], 寻找文本 (内容 [2], “v1_”, , 假) － 1))
.否则
' 超级列表框1.置标题 (bx, 2, 内容 [2])
.如果结束
超级列表框1.置标题 (bx, 3, “v1_” ＋ 文本_取出中间文本 (内容 [2], “v1_”, “@”, , ))
.如果真结束
.计次循环尾 ()
.子程序 子程序, 整数型
.参数 进程, 整数型
.参数 地址, 整数型
.局部变量 内存, 类_内存
.局部变量 n, 文本型
.计次循环首 (50, x)
n ＝ 内存.读文本 (进程, 地址 － x, 100)
.如果真 (取文本左边 (n, 5) ＝ “wxid_” 或 取文本左边 (n, 3) ＝ “gh_”)
返回 (x)
.如果真结束
.计次循环尾 ()
返回 (0)
.子程序 __启动窗口_首次激活
.局部变量 sz, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 bx, 整数型
.局部变量 内存, 类_内存
.局部变量 内容, 文本型, , "3"
.局部变量 a, 文本型
.局部变量 b, 文本型
进程_取ID数组 (“WeChat.exe”, 进程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”, , ))
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
=========================================================