|
楼主 |
发表于 2023-3-22 19:44:45
|
显示全部楼层
山东省烟台市
.版本 2
.子程序 例子_邀请指定账号入群
.局部变量 uin_Arr, 文本型, , "0"
.局部变量 uin, 文本型
.局部变量 HttpKey, 文本型
.局部变量 Ck_Qun, 文本型
.局部变量 pid_Arr, 整数型, , "0"
.局部变量 pid, 整数型
.局部变量 ClientKey, 文本型
.局部变量 邀请的QQ群, 文本型
.局部变量 欲邀请的QQ, 文本型
' 通过httpkey获取cookies方式 完全通过网页方式
QQ_getClientUin_Web (uin_Arr) ' 网页方式获取本机已经登录所有QQ账号
uin = 选择 (取数组成员数 (uin_Arr) > 0, uin_Arr [1], “”) ' 只取其中一个
.如果真 (uin = “”)
输出调试文本 (“本机未登录QQ”)
返回 ()
.如果真结束
HttpKey = QQ_getHttpKey_Web (uin) ' 网页方式通过本机已登录QQ账号获取Httpkey
Ck_Qun = QQ_getCookiesByHttpKey (uin, HttpKey, #AppID_Qun, #Daid_Qun, #SUrl_Qun) ' 获取QQ群网页cookies
' 通过ClientKey方式
' QQ_getPid (pid_Arr) ' 取出本机所有QQpid
' pid = 选择 (取数组成员数 (pid_Arr) > 0, pid_Arr [1], 0) ' 取其中一个
' uin = 到文本 (QQ_getClientSelfUin (pid)) ' 内存取指定进程账号
' ClientKey = QQ_getClientKey (pid) ' 内存获取ClientKey
' Ck_Qun = QQ_getCookiesByClientKey (uin, ClientKey, 3)
' 执行入群邀请
邀请的QQ群 = “xxxxxxx” ' 我测试的范围是自已经加入的任意群
欲邀请的QQ = “xxxxxxx” ' 我测试的范围是任意QQ,或许不是自己测试 如需一次邀请多个QQ就用|符号分割QQ 一次不可邀请过多QQ入群 具体是多少自己测试把 没测试过
QQ_addGroupMember (邀请的QQ群, 欲邀请的QQ, Ck_Qun) ' 大概率短时间内重复执行多次会失败,也没测试过 自己测试吧
' QQ_addGroupMember这个命令没写返回值 可以自己在这个函数源码里面改下 请求的返回值是 {"ec":0,"errcode":0,"em":""} 即为发送邀请成功
|
|