|
.版本 2
.支持库 spec
.支持库 HtmlView
.程序集 窗口程序集_启动窗口
.程序集变量 cookie, 文本型
.程序集变量 验证的群号码, 文本型
.程序集变量 验证通过, 逻辑型
.子程序 _超文本浏览框1_即将跳转, 逻辑型
.局部变量 返回值, 文本型
cookie = 网页_取Cookie (“qun.qq.com/member.html”, )
调试输出 (“CK : ” + cookie)
返回值 = 文本_取出中间文本 (cookie, “; skey=”, “; tgw_l7_route=”, , )
调试输出 (返回值)
bkn = QQ一skey转bkn (返回值)
调试输出 (bkn + “KEY”)
.如果真 (取文本长度 (bkn) > 8)
验证群号码 ()
.如果真结束
.子程序 验证群号码
.局部变量 返回值, 文本型
.局部变量 群号码, 文本型, , "0"
.局部变量 x, 整数型
返回值 = 编码_usc2到ansi (编码_Utf8到Ansi (网页_访问 (“https://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” + bkn, , , , , , , )))
调试输出 (返回值 + “233333”)
文本_取中间_批量 (返回值, #引号 + “gc” + #引号 + “:”, “,” + #引号 + “gn” + #引号 + “:”, 群号码, , , , , , , )
验证通过 = 假
.计次循环首 (取数组成员数 (群号码), x)
.如果真 (群号码 [x] = 验证的群号码)
验证通过 = 真
跳出循环 ()
.如果真结束
.计次循环尾 ()
.判断开始 (验证通过 = 真)
信息框 (“验证通过”, 0, , )
超文本浏览框1.可视 = 假
载入 (_启动窗口1, , 真)
.默认
_启动窗口.可视 = 假
信息框 (“验证失败,请先加群”, #错误图标, , )
' 打开指定网址 (“”)
|
|