易语言创建QQ群例子，增加被TX隐藏的功能

易语言创建QQ群例子，增加被TX隐藏的功能

@派单外发

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

setgroup (“群名”, 0, 1, 1, 真, 假)

.子程序 计算G_tk, 文本型, 公开
.参数 skey, 文本型
.局部变量 基值, 整数型
.局部变量 计数, 整数型
.局部变量 长度, 整数型
.局部变量 结果, 整数型

基值 ＝ 5381
计数 ＝ 0
长度 ＝ 取文本长度 (skey)
.判断循环首 (计数 ＜ 长度)
    基值 ＝ 基值 ＋ 左移 (基值, 5) ＋ 取代码 (skey, 计数 ＋ 1)
    计数 ＝ 计数 ＋ 1
.判断循环尾 ()
结果 ＝ 位与 (基值, 2147483647)
返回 (到文本 (结果))

.子程序 setgroup, 逻辑型, 公开
.参数 群名, 文本型
.参数 群分类, 整数型, , 1=游戏  2=品牌 3=粉丝
.参数 加群验证, 整数型, , 1=允许任何人 2=需要身份验证 3=不允许任何人
.参数 建群人数, 整数型, , 1=200  2=500  3=1000  4=2000
.参数 允许游客访问该群, 逻辑型, , 真=允许  假=不允许
.参数 允许游客发言, 逻辑型, , 真=允许  假=不允许
.局部变量 url, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 skey, 文本型

skey ＝ “”  ' skey 自己获取
url ＝ “https://admin.qun.qq.com/cgi-bin/qun_admin/create_group”
局_方式 ＝ 1
ADD_数据包.添加 (“gn”, 编码_URL编码 (群名, 真, 真), )
ADD_数据包.添加 (“memo”, “”, )
ADD_数据包.添加 (“rmemo”, “”, )
ADD_数据包.添加 (“gCls”, 到文本 (群分类), )
ADD_数据包.添加 (“gClsTxt”, “”, )
.判断开始 (建群人数 ＝ 1)
    ADD_数据包.添加 (“t”, “1”, )
.判断 (建群人数 ＝ 2)
    ADD_数据包.添加 (“t”, “2”, )
.判断 (建群人数 ＝ 3)
    ADD_数据包.添加 (“t”, “3”, )
.判断 (建群人数 ＝ 4)
    ADD_数据包.添加 (“t”, “4”, )
.默认

.判断结束

ADD_数据包.添加 (“flag”, “0”, )
.判断开始 (加群验证 ＝ 1)
    ADD_数据包.添加 (“v”, “1”, )
.判断 (加群验证 ＝ 2)
    ADD_数据包.添加 (“v”, “2”, )
.判断 (加群验证 ＝ 3)
    ADD_数据包.添加 (“v”, “3”, )
.默认

.判断结束
.如果 (允许游客发言)
    ADD_数据包.添加 (“open”, “1”, )
.否则
    ADD_数据包.添加 (“open”, “0”, )
.如果结束
.如果 (允许游客访问该群)
    ADD_数据包.添加 (“speak”, “1”, )
.否则
    ADD_数据包.添加 (“speak”, “0”, )
.如果结束
ADD_数据包.添加 (“ct”, “1”, )
ADD_数据包.添加 (“s”, “0”, )
ADD_数据包.添加 (“mn”, “0”, )
ADD_数据包.添加 (“m”, “”, )
ADD_数据包.添加 (“bkn”, 计算G_tk (skey), )
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
局_提交cookie ＝ “uin=; skey=; p_uin=; p_skey=;”  ' 这里的值自己获取
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (url, 局_方式, 局_提交数据, 局_提交cookie, , 局_提交协议头, , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
.如果 (寻找文本 (局_返回, “999”, , 假) ≠ -1)
    返回 (假)
.否则
    返回 (真)
.如果结束