微信附近人wxid采集工具，可通过QQ附近人提取转换，易语言版接口代码

这个调用的是一个POST接口，我用fiddler抓取的，并非是逆向或者是破解奥，是正常公开的接口，我只是对数据对了一些编码转换和整理，可以提取附近人的数据包，然后通过数据包可以直接加微信，就这么简单，但是还是存在一些技术原理，ck是我自己账号的我就不提供了。

框架设计界面：

数据包可以直接加好友效果【仅供演示，正常官方接口，并非逆向或HOOK】

源码分享：

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

.版本 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)

    .否则

        输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ ：” ＋ 局_正则.取匹配文本 (局_计次, ))

    .如果结束

.计次循环尾 ()

返回 (局_匹配数)

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