看到有个帖子，好像还很火，好像没开源，

不发附件，刚出来，怕违规，贴下代码吧。

获取群的代码：

.版本 2

.子程序 获取群列表, , 公开

.参数 cs_群, 群, 参考 数组

.局部变量 jb_网页返回, 文本型

.局部变量 jb_js, 对象

.局部变量 jb_计次, 整数型

.局部变量 jb_群, 群

jb_网页返回 ＝ 编码_Utf8到Ansi (网页_访问 (“http://qun.qzone.qq.com/cgi-bin/get_group_list?uin=” ＋ cx_QQ号码 ＋ “&g_tk=” ＋ 计算群gtk (文本_取出中间文本 (“; ” ＋ cx_Cookie, “; skey=”, “;”)), , , cx_Cookie))

' 调试输出 (jb_网页返回)

' _Callback({"code":0,"data":{"group":[{"auth":0,"flag":0,"groupid":9678082,"groupname":"android开发全国总群"},{"auth":0,"flag":0,"groupid":12114059,"groupname":"share your order"},{"auth":0,"flag":0,"groupid":29030916,"groupname":"思科网络技术联盟"}

jb_js.创建 (“scriptcontrol”, )

jb_js.写属性 (“language”, “javascript”)

jb_js.方法 (“eval”, “var json;function _Callback(a){json=a};” ＋ jb_网页返回)

清除数组 (cs_群)

.计次循环首 (jb_js.数值方法 (“eval”, “json.data.group.length”), jb_计次)

jb_群.群号码 ＝ jb_js.文本方法 (“eval”, “json.data.group[” ＋ 到文本 (jb_计次 － 1) ＋ “].groupid”)

jb_群.群名称 ＝ jb_js.文本方法 (“eval”, “json.data.group[” ＋ 到文本 (jb_计次 － 1) ＋ “].groupname”)

加入成员 (cs_群, jb_群)

.计次循环尾 ()

获取群成员代码：

.版本 2

.子程序 获取群成员, , 公开

.参数 cs_群号码, 文本型

.参数 cs_群员, 群员, 参考 数组

.局部变量 jb_网页返回, 文本型

.局部变量 jb_js, 对象

.局部变量 jb_群员, 群员

.局部变量 jb_计次, 整数型

jb_网页返回 ＝ 编码_Utf8到Ansi (网页_访问 (“http://qun.qzone.qq.com/cgi-bin/get_group_member?uin=” ＋ cx_QQ号码 ＋ “&groupid=” ＋ cs_群号码 ＋ “&g_tk=” ＋ 计算群gtk (文本_取出中间文本 (“; ” ＋ cx_Cookie, “; skey=”, “;”)), , , cx_Cookie))

' 调试输出 (jb_网页返回)

' _Callback({"code":0,"data":{"alpha":0,"bbscount":0,"class":10048,"create_time":1116133333,"filecount":0,"finger_memo":"android android android android android","group_memo":"","group_name":"android开发全国总群","item":[{"iscreator":0,"ismanager":0,"nick":"影迷","uin":477787},{"iscreator":0,"ismanager":0,"nick":"' 丁小白","uin":708411},

jb_js.创建 (“scriptcontrol”, )

jb_js.写属性 (“language”, “javascript”)

jb_js.方法 (“eval”, “var json;function _Callback(a){json=a};” ＋ jb_网页返回)

清除数组 (cs_群员)

.计次循环首 (jb_js.数值方法 (“eval”, “json.data.item.length”), jb_计次)

jb_群员.QQ ＝ jb_js.文本方法 (“eval”, “json.data.item[” ＋ 到文本 (jb_计次 － 1) ＋ “].uin”)

jb_群员.昵称 ＝ jb_js.文本方法 (“eval”, “json.data.item[” ＋ 到文本 (jb_计次 － 1) ＋ “].nick”)

加入成员 (cs_群员, jb_群员)

.计次循环尾 ()

.子程序 计算群gtk, 文本型

.参数 cs_skey, 文本型

.局部变量 jb_js, 对象

.局部变量 jb_结果, 文本型

' 调试输出 (cs_skey)

jb_js.创建 (“scriptcontrol”, )

jb_js.写属性 (“language”, “javascript”)

jb_js.方法 (“eval”, #群gtk)

jb_结果 ＝ jb_js.文本方法 (“eval”, “qungtk('” ＋ cs_skey ＋ “')”)

' 调试输出 (jb_结果)

返回 (jb_结果)

计算群空间gtk的js代码(不同于QQ空间的gtk)：

function qungtk (a) {

for (var b = 5381, c = 0, d = a.length; c < d; ++c) b += (b << 5) + a.charCodeAt(c);

return b & 2147483647

};

上图cx_uin，cx_cookie啥的就不用我说了。