.版本 2
.支持库 EThread
Sta = “http://qun.qzone.qq.com/cgi-bin/ ... roupPortal&uin=” + Username + “&g_tk=” + G_tk (skey) + “&ua=Mozilla%2F5.0%20(compatible%3B%20MSIE%2010.0%3B%20Windows%20NT%206.2%3B%20Trident%2F6.0)”
POST.Initialization (真)
POST.Open (Sta)
POST.SetRequestHeader (“Cookie”, cookie)
POST.Send ()
Ret = 编码_URL解码 (到文本 (POST.ResponseBody ()), 真)
文本_取中间_批量 (Ret, “groupid” + #引号 + “:”, “,”, QQ群号)
文本_取中间_批量 (Ret, “groupname” + #引号 + “:” + #引号, #引号, QQ群名称)
.计次循环首 (取数组成员数 (QQ群号), qqq)
Sta = “http://qiandao.qun.qq.com/cgi-bin/sign”
POST.Initialization (真)
POST.Open (Sta, 真)
POST.SetRequestHeader (“Connection”, “keep-alive”)
POST.SetRequestHeader (“Accept-Language”, “zh-CN”)
' POST.SetRequestHeader (“Content-Type”, “application/xml”)
POST.SetRequestHeader (“Origin”, “http://qiandao.qun.qq.com”)
POST.SetRequestHeader (“Referer”, “http://qiandao.qun.qq.com/index.html?groupUin=” + QQ群号 [qqq] + “&appID=100729587”)
POST.SetRequestHeader (“User-Agent”, “Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.59 QQ/8.6.18804.201 Safari/537.36”)
POST.SetRequestHeader (“Accept-Language”, “en-us,en”)
POST.SetRequestHeader (“Cookie”, “confirmuin=0; ” + cookie)
POST.Send (到字节集 (“&gc=” + QQ群号 [qqq] + “&is_sign=1&bkn=” + bkn加密 (skey) + “&poi=”))
Ret = 到文本 (POST.ResponseBody ())
签到返回 = 文本_取出中间文本 (Ret, “is_sign” + #引号 + “:”, “,”)
.如果真 (签到返回 = “0” 或 签到返回 = “”)
Sta = “http://qiandao.qun.qq.com/cgi-bin/sign”
POST.Initialization (真)
POST.Open (Sta, 真)
POST.SetRequestHeader (“Referer”, “http://qiandao.qun.qq.com/index.html?groupUin=” + QQ群号 [qqq] + “&appID=100729587”)
POST.SetRequestHeader (“Cookie”, cookie)
POST.Send (到字节集 (“gc=” + QQ群号 [qqq] + “&is_sign=0&from=1&bkn=” + bkn加密 (skey)))
Ret = 到文本 (POST.ResponseBody ())
Sta = 文本_取出中间文本 (Ret, “is_sign” + #引号 + “:”, “,”)
进入许可区 (许可证)
.如果真 (Sta = “1”)
超编框加文本 (4, “[” + Username + “]【QQ群签到:” + QQ群名称 [qqq] + “】签到成功!”)
.如果真结束
.如果真 (Sta = “0” 或 Sta = “”)
超编框加文本 (1, “[” + Username + “]【QQ群签到:” + QQ群名称 [qqq] + “】签到失败!”)
.如果真结束
退出许可区 (许可证)
.如果真结束
.如果真 (签到返回 = “1”)
进入许可区 (许可证)
超编框加文本 (1, “[” + Username + “]【QQ群签到:” + QQ群名称 [qqq] + “】今天签到过了!”)
退出许可区 (许可证)
.如果真结束
.计次循环尾 ()
.如果真 (取数组成员数 (QQ群号) = 0)
进入许可区 (许可证)
超编框加文本 (1, “[” + Username + “]【QQ群签到】你还没有加入任何群!”)
退出许可区 (许可证)