其实打开Qq附近人后它会返回一个数据包我们只需要把这个数据包提取解析出来就可以提取对方的wxid或者是QQ号，通过这个WXID还能直接加好友，而且是免费的接口，我今天把基础源码和案例图发给大家，免费分享，没有HOOK也没有逆向，就抓包实现的，正常逻辑哈，并非是违规开发。
框架图：
转换后可以直接加微信的：【仅供学习】
易语言程序集代码【POST接口，ck我就不分享了，是我自己的】
=====================================================
.版本 2
.支持库 ietb
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
功能_网页访问 ()
.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
' https://find.qq.com/proxy/domain/cgi.find.qq.com/qqfind/buddy/search_v3
局_网址 ＝ “https://find.qq.com/proxy/domain/cgi.find.qq.com/qqfind/buddy/search_v3”
局_方式 ＝ 1
ADD_数据包.添加 (“num”, “20”)
ADD_数据包.添加 (“page”, “0”)
ADD_数据包.添加 (“sessionid”, “0”)
ADD_数据包.添加 (“keyword”, “”)
ADD_数据包.添加 (“agerg”, “0”)
ADD_数据包.添加 (“sex”, “0”)
ADD_数据包.添加 (“firston”, “1”)
ADD_数据包.添加 (“video”, “0”)
ADD_数据包.添加 (“country”, “1”)
ADD_数据包.添加 (“province”, “11”)
ADD_数据包.添加 (“city”, “0”)
ADD_数据包.添加 (“district”, “0”)
ADD_数据包.添加 (“hcountry”, “1”)
ADD_数据包.添加 (“hprovince”, “12”)
ADD_数据包.添加 (“hcity”, “0”)
ADD_数据包.添加 (“hdistrict”, “0”)
ADD_数据包.添加 (“online”, “1”)
ADD_数据包.添加 (“ldw”, “1401024335”)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
局_提交cookie ＝ 编辑框1.内容
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, 局_提交cookie, , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
正则_匹配批量 (局_返回)
返回 (局_返回)
.子程序 正则_匹配批量, 整数型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
.参数 源文本, 文本型, , 欲被匹配的文本
.局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：http://ec.125.la/
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_子匹配数, 整数型
.如果真 (局_正则.创建 (“uin#引号:#引号([\s\S]*?)#引号”, 源文本, 假, 假, 真, 真) ＝ 假)
信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
返回 (0)
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
返回 (0)
.如果真结束
局_子匹配数 ＝ 局_正则.取子匹配数量 ()
.计次循环首 (局_匹配数, 局_计次)
.如果 (局_子匹配数 ＞ 0)
输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ 中的子匹配文本 1：” ＋ 局_正则.取子匹配文本 (局_计次, 1, ))
编辑框2.加入文本 (编码_BASE64编码 (到字节集 (局_正则.取子匹配文本 (局_计次, 1, ))) ＋ #换行符)
延迟 (500)
.否则
输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ ：” ＋ 局_正则.取匹配文本 (局_计次, ))
.如果结束
.计次循环尾 ()
返回 (局_匹配数)
===========================================================