易语言获取网页端的好友管理页面信息导出易语言获取网页端的好友管理页面信息导出QQ好友的代码好友的代码
今天小编就为大家分享一篇关于易语言获取网页端的好友管理页面信息导出QQ好友的代码,小编觉得内容挺不
错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
全局变量表全局变量表
.版本 2
.全局变量 Cookie_Overall, 文本型
.全局变量 BKN_Overall, 文本型
QQ快捷启动的代码快捷启动的代码
.版本 2
.程序集 窗口程序集_窗口1
.子程序 _超文本浏览框1_跳转完毕
.局部变量 Cookie, 文本型
.局部变量 Uin, 文本型
.局部变量 Skey, 文本型
Cookie = 网页_取Cookie (“qun.qq.com”)
.如果真 (寻找文本 (Cookie, “p_skey”, , 假) ≠ -1)
Uin = 文本_取出中间文本 (Cookie, “p_uin=o”, “;”)
Skey = 文本_取出中间文本 (Cookie, “skey=”, “;”)
BKN_Overall = Get_BKN (Skey)
Cookie_Overall = Cookie
_启动窗口.按钮_快速登录.标题 = “已登录”
_启动窗口.标签_QQ号码.标题 = “QQ号码:” + 到文本 (到整数 (Uin))
_启动窗口.图片框1.图片 = Get_QQHEAD (Uin)
初始化 ()
销毁 ()
.如果真结束
获取代码获取代码
.版本 2
.程序集 程序集1
.子程序 Get_BKN, 文本型
.参数 Skey, 文本型
.局部变量 基值, 整数型
.局部变量 计数, 整数型
.局部变量 长度, 整数型
.局部变量 结果, 整数型
基值 = 5381
计数 = 0
长度 = 取文本长度 (Skey)
.判断循环首 (计数 < 长度)
基值 = 基值 + 左移 (基值, 5) + 取代码 (Skey, 计数 + 1)
计数 = 计数 + 1
.判断循环尾 ()
结果 = 位与 (基值, 2147483647)
返回 (到文本 (结果))
.子程序 Get_QQHEAD, 字节集
.参数 Uin, 文本型
.局部变量 Url, 文本型
Url = “http://q4.qlogo.cn/g?b=qq&nk=” + Uin + “&s=140”
返回 (网页_访问 (Url))
.子程序 Get_Friend_List, 文本型
.参数 Cookie, 文本型
.参数 BKN, 文本型
.局部变量 Url, 文本型
.局部变量 Post, 文本型
.局部变量 Ret, 文本型
Url = “http://qun.qq.com/cgi-bin/qun_mgr/get_friend_list”
Post = “bkn=” + BKN
Ret = 编码_Utf8到Ansi (网页_访问 (Url, 1, Post, Cookie))
返回 (Ret)
QQ好友导出的代码好友导出的代码
此功能需要加载精易模块5.6
.版本 2
.支持库 iext
.支持库 eExcel2000
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
图片框1.图片 = #QQ头像
.子程序 初始化