.版本 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) 返回 (假) .否则 返回 (真) .如果结束