wxid转二维码在线生成器，加微信号好友接口工具，易语言源码分享

用易语言开发的，我确保能用的，发布时间为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”, , ))

.计次循环尾 ()

.子程序 __启动窗口_创建完毕

=========================================================