QQ群操作小技巧：扫码登录取Cookies，高效管理群聊，邀请或移除成员！

文件已上传： 提取码：8888

最新qq快捷登录例子 + 取qq cookie + 一些例子

点赞超10个加一个取QQ全部好友的例子

源码部分：仅供学习参考

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 appid, 文本型
.程序集变量 端口, 文本型
.程序集变量 QQ群, 文本型, , "0"
.子程序 __启动窗口_创建完毕
' 仅供学习研究
' 请勿用作非法行为
' 下载后请24小时内删除
启动线程 (&启_初始化, , )
.子程序 启_初始化
.局部变量 ck, 文本型
.局部变量 返回值, 文本型
.局部变量 json, 类_json
.局部变量 pt_local_token, 文本型
.局部变量 clientkey, 文本型
.局部变量 uin, 文本型
.局部变量 ck1, 文本型
.局部变量 keyindex, 文本型
.局部变量 ptsigx, 文本型
.局部变量 skey, 文本型
.局部变量 本地登录QQ, 文本型, , "0"
.局部变量 i, 整数型
appid ＝ “549000912”  ' qq群页面的appid
端口 ＝ “4301”  ' 端口从4301-4308之间（如本机只登录了一个QQ号，那必然会是默认的4301端口） 不过我看访问4301也会返回全部QQ
ck ＝ 初始化 ()
pt_local_token ＝ 网页_取单条Cookie (ck, “pt_local_token”, 真)
返回值 ＝ 获取本地登录QQ (pt_local_token, ck)
文本_取中间_批量 (返回值, “{”, “}”, 本地登录QQ, , , , , 真, 真, )
.计次循环首 (取数组成员数 (本地登录QQ), i)
    json.解析 (本地登录QQ [i], , )
    uin ＝ json.取属性 (“uin”).取数据文本 ()
    组合框1.插入项目 (i － 1, uin, )
    写配置项 (“config.ini”, uin, “ck”, ck)
    写配置项 (“config.ini”, uin, “pt_local_token”, pt_local_token)
.计次循环尾 ()
组合框1.现行选中项 ＝ 0
.子程序 获取Skey, 文本型
.参数 uin, 文本型
.参数 clientkey, 文本型
.参数 pt_local_tk, 文本型
.参数 keyindex, 文本型
.参数 ck, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
局_网址 ＝ “ ＋ uin ＋ “&keyindex=” ＋ keyindex ＋ “&pt_aid=” ＋ appid ＋ “&daid=73&u1=https%3A%2F%2Fqun.qq.com%2F&pt_local_tk=” ＋ pt_local_tk ＋ “&pt_3rd_aid=0&ptopt=1&style=40”
局_方式 ＝ 0
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , ck, , , , , , , , , , , , , , , )
返回 (编码_Utf8到Ansi (局_结果))
.子程序 快捷登录, 文本型
.参数 uin, 文本型
.参数 pt_local_token, 文本型
.参数 ck, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 cookies, 文本型
局_网址 ＝ “ ＋ 端口 ＋ “/pt_get_st?clientuin=” ＋ uin ＋ “&r=0.30221393797246354&pt_local_tk=” ＋ pt_local_token ＋ “&callback=__jp0”
局_方式 ＝ 0
局_提交协议头 ＝ “Host: localhost.ptlogin2.qq.com:” ＋ 端口 ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “sec-ch-ua-platform: ” ＋ #引号 ＋ “Windows” ＋ #引号 ＋ “” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/136.0.0.0 Safari/537.36” ＋ #换行符 ＋ “sec-ch-ua: ” ＋ #引号 ＋ “Chromium” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “136” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “Google Chrome” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “136” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “Not.A/Brand” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “99” ＋ #引号 ＋ “” ＋ #换行符 ＋ “sec-ch-ua-mobile: ?0” ＋ #换行符 ＋ “Accept: */*” ＋ #换行符 ＋ “Sec-Fetch-Site: same-site” ＋ #换行符 ＋ “Sec-Fetch-Mode: no-cors” ＋ #换行符 ＋ “Sec-Fetch-Dest: script” ＋ #换行符 ＋ “Referer:  ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.9”
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , ck, , 局_提交协议头, , , , , , , , , , , , , )
返回 (编码_Utf8到Ansi (局_结果))
.子程序 获取本地登录QQ, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 pt_local_token, 文本型
.参数 cookie, 文本型, 参考
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
局_网址 ＝ “ ＋ 端口 ＋ “/pt_get_uins?callback=ptui_getuins_CB&r=0.4640060116277447&pt_local_tk=” ＋ pt_local_token
局_方式 ＝ 0
局_提交协议头 ＝ “Host: localhost.ptlogin2.qq.com:” ＋ 端口 ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “Pragma: no-cache” ＋ #换行符 ＋ “Cache-Control: no-cache” ＋ #换行符 ＋ “sec-ch-ua-platform: ” ＋ #引号 ＋ “Windows” ＋ #引号 ＋ “” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/136.0.0.0 Safari/537.36” ＋ #换行符 ＋ “sec-ch-ua: ” ＋ #引号 ＋ “Chromium” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “136” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “Google Chrome” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “136” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “Not.A/Brand” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “99” ＋ #引号 ＋ “” ＋ #换行符 ＋ “sec-ch-ua-mobile: ?0” ＋ #换行符 ＋ “Accept: */*” ＋ #换行符 ＋ “Sec-Fetch-Site: same-site” ＋ #换行符 ＋ “Sec-Fetch-Mode: no-cors” ＋ #换行符 ＋ “Sec-Fetch-Dest: script” ＋ #换行符 ＋ “Referer:  ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.9”
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , cookie, , 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)
.子程序 初始化, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 cookies, 文本型
局_网址 ＝ “ ＋ appid ＋ “&hide_close_icon=1&daid=73&pt_no_auth=1&s_url=https%3A%2F%2Fqun.qq.com%2F”
局_提交协议头 ＝ “Host: xui.ptlogin2.qq.com” ＋ #换行符 ＋ “Connection: keep-alive” ＋ #换行符 ＋ “Pragma: no-cache” ＋ #换行符 ＋ “Cache-Control: no-cache” ＋ #换行符 ＋ “sec-ch-ua: ” ＋ #引号 ＋ “Chromium” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “136” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “Google Chrome” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “136” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “Not.A/Brand” ＋ #引号 ＋ “;v=” ＋ #引号 ＋ “99” ＋ #引号 ＋ “” ＋ #换行符 ＋ “sec-ch-ua-mobile: ?0” ＋ #换行符 ＋ “sec-ch-ua-platform: ” ＋ #引号 ＋ “Windows” ＋ #引号 ＋ “” ＋ #换行符 ＋ “Upgrade-Insecure-Requests: 1” ＋ #换行符 ＋ “User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/136.0.0.0 Safari/537.36” ＋ #换行符 ＋ “Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7” ＋ #换行符 ＋ “Sec-Fetch-Site: same-site” ＋ #换行符 ＋ “Sec-Fetch-Mode: navigate” ＋ #换行符 ＋ “Sec-Fetch-Dest: iframe” ＋ #换行符 ＋ “Referer:  ＋ #换行符 ＋ “Accept-Language: zh-CN,zh;q=0.9”
局_方式 ＝ 0
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , cookies, 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (cookies)
.子程序 _按钮1_被单击
启动线程 (&登录, , )
.子程序 登录
.局部变量 uin, 文本型
.局部变量 ck, 文本型
.局部变量 pt_local_token, 文本型
.局部变量 返回值, 文本型
.局部变量 keyindex, 文本型
.局部变量 clientkey, 文本型
.局部变量 skey, 文本型
.局部变量 ptsigx, 文本型
.局部变量 cookie, 文本型
.局部变量 返回协议头, 文本型
uin ＝ 组合框1.取项目文本 (组合框1.现行选中项)
ck ＝ 读配置项 (“config.ini”, uin, “ck”, )
pt_local_token ＝ 读配置项 (“config.ini”, uin, “pt_local_token”, )
返回值 ＝ 快捷登录 (uin, pt_local_token, ck)
keyindex ＝ 文本_取出中间文本 (返回值, “keyindex: ”, “};”, , )
clientkey ＝ 网页_取单条Cookie (ck, “clientkey”, 真)
返回值 ＝ 获取Skey (uin, clientkey, pt_local_token, keyindex, ck)
skey ＝ 网页_取单条Cookie (ck, “skey”, 真)
ptsigx ＝ 文本_取出中间文本 (返回值, “ptsigx=”, “&s_url=”, , )
返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (文本_取出中间文本 (返回值, “, '”, “', ”, , ), 0, , ck, , , 返回协议头, , 真, , , , , , , , , , )), 真)
写配置项 (“config.ini”, uin, “ck”, ck)
标题 ＝ “登录成功”
.子程序 计算ptqrtoken, 文本型
.参数 qrtoken, 文本型
.局部变量 n, 整数型
.局部变量 i, 整数型
.局部变量 e, 整数型
n ＝ 取文本长度 (qrtoken)
.判断循环首 (n ＞ i)
    i ＝ i ＋ 1
    e ＝ e ＋ 左移 (e, 5) ＋ 取代码 (qrtoken, i)
.判断循环尾 ()
返回 (到文本 (位与 (2147483647, e)))
.子程序 计算gtk, 文本型
.参数 Skey, 文本型
.局部变量 基值, 整数型
.局部变量 计数, 整数型
.局部变量 长度, 整数型
.局部变量 结果, 整数型
基值 ＝ 5381
计数 ＝ 0
长度 ＝ 取文本长度 (Skey)
.判断循环首 (计数 ＜ 长度)
    基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代码 (Skey, 计数 ＋ 1)
    计数 ＝ 计数 ＋ 1
.判断循环尾 ()
结果 ＝ 位与 (基值, 2147483647)
返回 (到文本 (结果))
.子程序 _按钮2_被单击
.局部变量 uin, 文本型
.局部变量 ck, 文本型
.局部变量 返回值, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 n, 整数型
uin ＝ 组合框1.取项目文本 (组合框1.现行选中项)
ck ＝ 读配置项 (“config.ini”, uin, “ck”, )
返回值 ＝ 取全部群 (ck)
json.解析 (返回值, , )
超级列表框2.全部删除 ()
.计次循环首 (json.成员数 (“join”), i)
    n ＝ 超级列表框2.插入表项 (, , , , , )
    超级列表框2.置标题 (n, 0, 到文本 (n ＋ 1))
    超级列表框2.置标题 (n, 1, json.取通用属性 (“join[” ＋ 到文本 (i － 1) ＋ “].gn”, ))
    超级列表框2.置标题 (n, 2, json.取通用属性 (“join[” ＋ 到文本 (i － 1) ＋ “].gc”, ))
    加入成员 (QQ群, json.取通用属性 (“join[” ＋ 到文本 (i － 1) ＋ “].gc”, ))
    超级列表框2.置标题 (n, 3, “我加入的群”)
.计次循环尾 ()
.计次循环首 (json.成员数 (“manage”), i)
    n ＝ 超级列表框2.插入表项 (, , , , , )
    超级列表框2.置标题 (n, 0, 到文本 (n ＋ 1))
    超级列表框2.置标题 (n, 1, json.取通用属性 (“manage[” ＋ 到文本 (i － 1) ＋ “].gn”, ))
    超级列表框2.置标题 (n, 2, json.取通用属性 (“manage[” ＋ 到文本 (i － 1) ＋ “].gc”, ))
    加入成员 (QQ群, json.取通用属性 (“manage[” ＋ 到文本 (i － 1) ＋ “].gc”, ))
    超级列表框2.置标题 (n, 3, “我是管理员”)
.计次循环尾 ()
.计次循环首 (json.成员数 (“create”), i)
    n ＝ 超级列表框2.插入表项 (, , , , , )
    超级列表框2.置标题 (n, 0, 到文本 (n ＋ 1))
    超级列表框2.置标题 (n, 1, json.取通用属性 (“create[” ＋ 到文本 (i － 1) ＋ “].gn”, ))
    超级列表框2.置标题 (n, 2, json.取通用属性 (“create[” ＋ 到文本 (i － 1) ＋ “].gc”, ))
    加入成员 (QQ群, json.取通用属性 (“create[” ＋ 到文本 (i － 1) ＋ “].gc”, ))
    超级列表框2.置标题 (n, 3, “我创建的群”)
.计次循环尾 ()
.子程序 取全部群, 文本型
.参数 参_ck, 文本型
.局部变量 局_返回, 文本型
.局部变量 局_网址, 文本型
.局部变量 参_bkn, 文本型
参_bkn ＝ 计算gtk (网页_取单条Cookie (参_ck, “skey”, 真))
局_返回 ＝ 到文本 (网页_访问_对象 (“ 1, “bkn=” ＋ 参_bkn, 参_ck, , , , , 真, , , , , , , , , , ))
调试输出 (局_返回)
返回 (局_返回)
.子程序 _按钮3_被单击
.局部变量 ck, 文本型
.局部变量 uin, 文本型
.局部变量 返回值, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 a, 整数型
.局部变量 o, 整数型
uin ＝ 组合框1.取项目文本 (组合框1.现行选中项)
ck ＝ 读配置项 (“config.ini”, uin, “ck”, )
超级列表框1.全部删除 ()
a ＝ 999
.变量循环首 (1, a, 41, o)
    返回值 ＝ 取指定群成员 (编辑框1.内容, ck, 到文本 (o － 1), 到文本 (o ＋ 39))
    json.解析 (返回值, , )
    a ＝ 到整数 (json.取属性 (“count”).取数据文本 ())
    .计次循环首 (json.成员数 (“mems”), i)
        n ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (n, 0, 到文本 (n ＋ 1))
        超级列表框1.置标题 (n, 1, json.取通用属性 (“mems[” ＋ 到文本 (i － 1) ＋ “].nick”, ))
        超级列表框1.置标题 (n, 2, json.取通用属性 (“mems[” ＋ 到文本 (i － 1) ＋ “].uin”, ))
        超级列表框1.置标题 (n, 3, 选择 (json.取通用属性 (“mems[” ＋ 到文本 (i － 1) ＋ “].g”, ) ＝ “0”, “男”, “女”))
        超级列表框1.置标题 (n, 4, 选择 (json.取通用属性 (“mems[” ＋ 到文本 (i － 1) ＋ “].role”, ) ＝ “1”, “管理员”, 选择 (json.取通用属性 (“mems[” ＋ 到文本 (i － 1) ＋ “].role”, ) ＝ “0”, “群主”, “群员”)))
        超级列表框1.置标题 (n, 5, 时间_时间戳转文本 (json.取属性 (“mems[” ＋ 到文本 (i － 1) ＋ “]['join_time']”).取数据文本 (), 24))
        超级列表框1.置标题 (n, 6, 时间_时间戳转文本 (json.取属性 (“mems[” ＋ 到文本 (i － 1) ＋ “]['last_speak_time']”).取数据文本 (), 24))
    .计次循环尾 ()
.变量循环尾 ()
调试输出 (超级列表框1.取表项数 ())
.子程序 取指定群成员, 文本型, , 一次最多取40位群成员
.参数 群号, 文本型
.参数 参_ck, 文本型
.参数 开始, 文本型, , 0
.参数 结束, 文本型, , 40
.局部变量 局_返回, 文本型
.局部变量 局_网址, 文本型
.局部变量 参_bkn, 文本型
参_bkn ＝ 计算gtk (网页_取单条Cookie (参_ck, “skey”, 真))
局_返回 ＝ 到文本 (网页_访问_对象 (“ 1, “st=” ＋ 开始 ＋ “&end=” ＋ 结束 ＋ “&sort=1&gc=” ＋ 群号 ＋ “&bkn=” ＋ 参_bkn, 参_ck, , , , , 真, , , , , , , , , , ))
返回 (局_返回)
.子程序 _按钮4_被单击
.局部变量 uin, 文本型
.局部变量 ck, 文本型
uin ＝ 组合框1.取项目文本 (组合框1.现行选中项)
ck ＝ 读配置项 (“config.ini”, uin, “ck”, )
邀请进群 (编辑框1.内容, 编辑框2.内容, ck)
.子程序 邀请进群, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.参数 参_qun, 文本型
.参数 参_qq, 文本型
.参数 参_ck, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 局_bkn, 文本型
局_bkn ＝ 计算gtk (网页_取单条Cookie (参_ck, “skey”, 真))
局_网址 ＝ “
局_方式 ＝ 1
局_提交数据 ＝ “gc=” ＋ 参_qun ＋ “&ul=” ＋ 参_qq ＋ “&bkn=” ＋ 局_bkn
局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, 参_ck, , 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)
.子程序 _按钮5_被单击
.局部变量 a, 整数型, , "0"
.如果真 (取数组成员数 (QQ群) ＝ 0)
    _按钮2_被单击 ()
.如果真结束
.如果 (数组_寻找数组 (QQ群, 编辑框1.内容, a) ＝ 0)
    信息框 (“验证失败”, 0, , )
.否则
    信息框 (“验证通过”, 0, , )
.如果结束