我的QQ中心登录取不到正确cookies

望还想 · 发表于 2014-4-11 21:26:23

[e]
.版本 2
.支持库 spec

.子程序登录QQ, 文本型, 公开
.参数 QQ号, 文本型
.参数 QQ密码, 文本型
.参数验证码, 文本型, 可空, 验证码可不填,如果登录时返回"要验证码",才需要填
.局部变量 Data, 文本型
.局部变量 Url, 文本型

Url ＝ “http://ptlogin2.qq.com/login?u=” ＋删首尾空 (编辑框1.内容) ＋ “&verifycode=” ＋删首尾空 (编辑框3.内容) ＋ “&p=” ＋ P ＋ “&pt_rsa=0&ptredirect=1&u1=http%3A%2F%2Fid.qq.com%2Findex.html&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=” ＋到文本 (取随机数 (1, 9)) ＋ “-” ＋文本_取随机数字 (2) ＋ “-” ＋时间_取现行时间戳 () ＋ “&js_ver=10074&js_type=1&login_sig=” ＋ login_sig ＋ “&aid=1006102&daid=1&”
' 调试输出 (Url)
Data ＝编码_URL解码 (到文本 (网页_访问 (Url, , , , cookies)), 真)
提示信息 (cookies)
G_tk ＝文本_取出中间文本 (cookies, “skey=”, “; ETK=”, , 真)
G_tk ＝计算G_tk (文本_取出中间文本 (cookies, “skey=”, “; ETK=”, , 真))
调试输出 (G_tk)
Data ＝编码_URL解码 (到文本 (网页_访问 (“http://id.qq.com/cgi-bin/friends_home”, 1, “ldw=” ＋ G_tk ＋ “&ver=20100914&from=mars” ＋编辑框1.内容, , , )))
调试输出 (Data)
返回 (Data)

.子程序计算G_tk, 文本型
.参数 skey, 文本型
.局部变量 hash, 整数型
.局部变量计次, 整数型

hash ＝ 5381
.变量循环首 (1, 取文本长度 (skey), 1, 计次)
hash ＝ hash ＋ hash × 求次方 (2, 5) ＋取字节集数据 (编码_Ansi到Unicode (取文本中间 (skey, 计次, 1)), 3, )
.变量循环尾 ()
返回 (到文本 (位与 (hash, 进制_十六到十 (“7fffffff”))))

[/e]