易语言取QQ空间qzonetoken例子源码

发现原本的取qzonetoken接口失效了，很多人不知道这个值现在是怎么获取的，于是乎自己更新了下，有了这个qzonetoken的值，可以用cookie，操作一系列空间只提供接口思路，

@派单外发

.版本 2
.支持库 spec

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

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



.子程序 _按钮1_被单击
.局部变量 skey, 文本型
.局部变量 bkn, 文本型
.局部变量 局_网址, 文本型
.局部变量 QQ号, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交cookie, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_提交协议头, 文本型
.局部变量 局_返回, 文本型

skey ＝ “”  ' 这里自己获取
bkn ＝ 计算G_tk (skey)
局_网址 ＝ “https://h5.qzone.qq.com/feeds/inpcqq?uin=” ＋ QQ号 ＋ “&qqver=5749&timestamp=” ＋ 时间_到时间戳 (, , )
局_方式 ＝ 0
局_提交cookie ＝ “”  ' uin= ;skey=  ;p_skey=   一共三个值，自己获取
局_提交协议头 ＝ “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , 局_提交cookie, , 局_提交协议头, , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
局_返回 ＝ 文本_取出中间文本 (局_返回, #qzonetoken前, #qzonetoken后, , )
调试输出 (局_返回)

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

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