|
全局变量表
.版本 2
.全局变量 Uin_全, 文本型
.全局变量 Cookie_全, 文本型
QQ快捷启动的代码
.版本 2
.支持库 HtmlView
.支持库 iext
.程序集 窗口程序集_快速
.子程序 _超文本浏览框1_跳转完毕
.局部变量 返回文本, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 二次分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 s, 整数型
.局部变量 Cookie, 文本型
.局部变量 Uin, 文本型
.局部变量 Skey, 文本型
.局部变量 obj_doc, 对象
obj_doc ＝ 超文本浏览框1.取文档对象 ()
Cookie_全 ＝ obj_doc.读文本属性 (“cookie”, )
Uin_全 ＝ 文本_取出中间文本 (Cookie_全, “p_uin=o”, “;”)
.判断循环首 (寻找文本 (Uin_全, “0”, , 假) ＝ 1)
Uin_全 ＝ 取文本右边 (Uin_全, 取文本长度 (Uin_全) － 1)
.判断循环尾 ()
.如果真 (Cookie_全 ≠ “” 且 Uin_全 ≠ “”)
_启动窗口.标签_QQ号码.标题 ＝ “QQ号码：” ＋ Uin_全
_启动窗口.标签_状态.标题 ＝ “状 态：登录成功”
_启动窗口.图片框1.图片 ＝ 获取QQ头像 (Uin_全)
_启动窗口.按钮_快速登录.标题 ＝ “登录成功”
_启动窗口.超级列表框1.全部删除 ()
返回文本 ＝ 获取留言列表 (Uin_全, Cookie_全)
文本分割 ＝ 分割文本 (返回文本, #换行符, )
.计次循环首 (取数组成员数 (文本分割), i)
二次分割 ＝ 分割文本 (文本分割 [i], “|”, )
s ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (s, 0, 到文本 (i))
_启动窗口.超级列表框1.置标题 (s, 1, 二次分割 [1])
_启动窗口.超级列表框1.置标题 (s, 2, 二次分割 [2])
_启动窗口.超级列表框1.置标题 (s, 3, 二次分割 [3])
_启动窗口.超级列表框1.置标题 (s, 4, 二次分割 [4])
_启动窗口.超级列表框1.置标题 (s, 5, 二次分割 [5])
_启动窗口.超级列表框1.置标题 (s, 6, “null”)
.计次循环尾 ()
窗口_快速.销毁 ()
.如果真结束
.子程序 _窗口_快速_将被销毁
窗口_快速.销毁 ()
获取和计算的代码
.版本 2
.程序集 程序集1
.子程序 获取QQ头像, 字节集, 公开
.参数 QQ号码, 文本型
.局部变量 提交地址, 文本型
.局部变量 返回字节, 字节集
提交地址 ＝ “http://q2.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋ QQ号码 ＋ “&src_uin=” ＋ QQ号码 ＋ “&fid=” ＋ QQ号码 ＋ “&spec=100&url_enc=0&referer=bu_interface&term_type=PC”
返回字节 ＝ 网页_访问 (提交地址)
返回 (返回字节)
.子程序 获取留言列表, 文本型
.参数 QQ号码, 文本型
.参数 Cookie, 文本型
.局部变量 提交地址, 文本型
.局部变量 返回文本, 文本型
.局部变量 json, 类_json
.局部变量 qzonetoken, 文本型
.局部变量 p_skey, 文本型
.局部变量 g_tk, 文本型
.局部变量 i, 整数型
.局部变量 uin, 文本型
.局部变量 nickname, 文本型
.局部变量 content, 文本型
.局部变量 id, 文本型
.局部变量 time, 文本型
.局部变量 结果, 文本型
p_skey ＝ 文本_取出中间文本 (Cookie, “p_skey=”, “;”)
g_tk ＝ 计算G_tk (p_skey)
qzonetoken ＝ 计算QzoneToken (QQ号码)
提交地址 ＝ “https://user.qzone.qq.com/proxy/domain/m.qzone.qq.com/cgi-bin/new/get_msgb?uin=” ＋ QQ号码 ＋ “&hostUin=” ＋ QQ号码 ＋ “&start=0&s=” ＋ 时间_取随机时间戳 () ＋ “&format=jsonp&num=20&inCharset=utf-8&outCharset=utf-8&g_tk=” ＋ g_tk ＋ “&qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ g_tk
返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (提交地址, , , Cookie))
返回文本 ＝ 子文本替换 (返回文本, “_Callback(”, “”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “);”, “”, , , 真)
' 调试输出 (返回文本)
json.解析 (返回文本)
_启动窗口.标签_留言数.标题 ＝ “留言数：” ＋ json.取通用属性 (“data.total”)
.计次循环首 (json.成员数 (“data.commentList”), i)
uin ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].uin”)
nickname ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].nickname”)
content ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].ubbContent”)
id ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].id”)
time ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].pubtime”)
结果 ＝ 结果 ＋ uin ＋ “|” ＋ nickname ＋ “|” ＋ content ＋ “|” ＋ id ＋ “|” ＋ time ＋ #换行符
' 调试输出 (uin, nickname, content, id, time)
.计次循环尾 ()
返回 (结果)
.子程序 PC删除留言, 文本 |
|
转播
