易语言QQ加好友软件源码

易语言QQ加好友软件源码，源码是通过QQ空间POST进行加好友操作。

@DarkWod

.版本 2
.支持库 spec

.子程序 加QQ好友
.参数 被添加QQ, 文本型, 可空, 别人QQ 
.参数 是否获取列表, 逻辑型, 可空
.局部变量 QQ空间页面, 文本型
.局部变量 提交信息, 文本型
.局部变量 qzonetoken, 文本型
.局部变量 好友列表数据, 文本型
.局部变量 JSON, 类_json
.局部变量 i, 整数型
.局部变量 temp, 好友列表信息
.局部变量 G_TK, 文本型
.局部变量 主动添加QQ, 文本型
.局部变量 realname, 文本型, , , 真实姓名
.局部变量 groupId, 文本型, , , 列表分组ID
.局部变量 组合框选中项目, 整数型

GetQq (主动添加QQ)
QQ空间页面 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://user.qzone.qq.com/” ＋ 被添加QQ, , , Cookie))
realname ＝ 文本_取出中间文本 (QQ空间页面, “ownerProfileSummary=[” ＋ #引号, #引号, , )
调试输出 (realname)
G_TK ＝ 计算G_tk (文本_取出中间文本 (Cookie, “skey=”, “;”, , ))
qzonetoken ＝ 文本_取出中间文本 (QQ空间页面, “return ” ＋ #引号, #引号)
提交信息 ＝ “sid=0&ouin=” ＋ 被添加QQ ＋ “&uin=” ＋ 主动添加QQ ＋ “&fuin=” ＋ 被添加QQ ＋ “&sourceId=1&fupdate=1&qzreferrer=https%3A%2F%2Fuser.qzone.qq.com%2F” ＋ 被添加QQ
编码_Utf8到Ansi (网页_访问_对象 (“https://user.qzone.qq.com/proxy/domain/w.qzone.qq.com/cgi-bin/tfriend/friend_authfriend.cgi?qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ G_TK, 1, 提交信息, Cookie, , ))
提交信息 ＝ “uin=” ＋ 主动添加QQ ＋ “&rd=” ＋ 时间_取随机时间戳 () ＋ “&fupdate=1&fuin=” ＋ 被添加QQ ＋ “&g_tk=” ＋ G_TK ＋ “&qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ G_TK
好友列表数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://user.qzone.qq.com/proxy/domain/r.qzone.qq.com/cgi-bin/tfriend/friend_getgroupinfo.cgi?uin=” ＋ 主动添加QQ ＋ “&rd=” ＋ 时间_取随机时间戳 () ＋ “&fupdate=1&fuin=” ＋ 被添加QQ ＋ “&g_tk=” ＋ G_TK ＋ “&qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ G_TK, 1, 提交信息, Cookie))
好友列表数据 ＝ 文本_取出中间文本 (好友列表数据, “callback(”, “)”)
JSON.解析 (好友列表数据)
组合框选中项目 ＝ 组合框1.现行选中项
组合框1.清空 ()
重定义数组 (好友列表信息, 假, 0)
.计次循环首 (JSON.成员数 (“data.items”), i)
    temp.列表ID ＝ JSON.取通用属性 (“data.items[” ＋ 到文本 (i － 1) ＋ “].groupId”)
    temp.列表名称 ＝ JSON.取通用属性 (“data.items[” ＋ 到文本 (i － 1) ＋ “].groupname”)
    加入成员 (好友列表信息, temp)
    组合框1.加入项目 (temp.列表名称, )
.计次循环尾 ()
组合框1.现行选中项 ＝ 组合框选中项目
.判断开始 (是否获取列表 ＝ 真)
    返回 ()
.默认

.判断结束

.如果真 (组合框1.现行选中项 ＝ -1)
    组合框1.现行选中项 ＝ 0
.如果真结束
标签1.可视 ＝ 真
标签1.标题 ＝ “请选择分组”
标签1.文本颜色 ＝ #红色
.循环判断首 ()
    处理事件 ()
.循环判断尾 (组合框1.现行选中项 ＝ -1)
.计次循环首 (取数组成员数 (好友列表信息), i)
    .判断开始 (好友列表信息 [i].列表名称 ＝ 组合框1.内容)
        groupId ＝ 好友列表信息 [i].列表ID
        跳出循环 ()
    .默认

    .判断结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()
调试输出 (groupId, “GID”)
提交信息 ＝ “sid=1&ouin=” ＋ 被添加QQ ＋ “&uin=” ＋ 主动添加QQ ＋ “&fuin=” ＋ 被添加QQ ＋ “&sourceId=1&fupdate=1&qzreferrer=https%3A%2F%2Fuser.qzone.qq.com%2F754122648&rd=” ＋ 时间_取随机时间戳 () ＋ “&strmsg=&groupId=0&realname=” ＋ 编码_URL编码 (realname, 真, 真) ＋ “&flag=0&key=&verify=&im=0&format=fs&from=9&from_source=3”
调试输出 (编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://user.qzone.qq.com/proxy/domain/w.qzone.qq.com/cgi-bin/tfriend/friend_addfriend.cgi?qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ G_TK, 1, 提交信息, Cookie))))