作者： 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))))