|
|

楼主 |
发表于 2017-5-7 20:53:02
|
显示全部楼层
江西省景德镇市
.版本 2
.支持库 spec
.支持库 iext
.子程序 获取好友列表
.局部变量 返回文本, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 循环数, 整数型
.局部变量 qq_uin, 文本型
.局部变量 索引, 整数型
.局部变量 js, 脚本类
js.执行 (#hash_js加密)
hash = js.运行 (“getHash”, uin, ptwebqq) ' http://0.web.qstatic.com/webqqpic/pubapps/0/50/eqq.all.js
返回文本 = 网页访问u (“http://s.web2.qq.com/api/get_user_friends2”, 1, “r=%7B%22vfwebqq%22%3A%22” + vfwebqq + “%22%2C%22hash%22%3A%22” + hash + “%22%7D”, Cookies)
置剪辑板文本 (返回文本)
返回文本 = 文本_取出中间文本 (返回文本, #引号 + “info” + #引号 + “:[{”, “}]}”)
数组 = 分割文本 (返回文本, “},{”, )
.计次循环首 (取数组成员数 (数组), 循环数)
调试输出 (数组 [循环数])
qq_uin = 文本_取右边 (数组 [循环数], #引号 + “uin” + #引号 + “:”)
调试输出 (qq_uin)
索引 = 协yi功能界面.超级列表框1.插入表项 (, , , , , )
协yi功能界面.超级列表框1.置标题 (索引, 1, 到文本 (循环数))
协yi功能界面.超级列表框1.置标题 (索引, 2, Uin转QQ (qq_uin))
协yi功能界面.超级列表框1.置标题 (索引, 3, 取参数2 (数组 [循环数], “nick”))
协yi功能界面.超级列表框1.置标题 (索引, 4, Uin取签名 (qq_uin))
协yi功能界面.超级列表框1.置标题 (索引, 5, qq_uin)
处理事件 ()
.计次循环尾 ()
js里面是
function getHash(b,j){for(var a=[],i=0;i<j.length;i++)a[i%4]^=j.charCodeAt(i);var w=["EC","OK"],d=[];d[0]=b>>24&255^w[0].charCodeAt(0);
d[1]=b>>16&255^w[0].charCodeAt(1);d[2]=b>>8&255^w[1].charCodeAt(0);d[3]=b&255^w[1].charCodeAt(1);w=[];for(i=0;i<8;i++)w=i%2==0?a[i>>1]:d[i>>1];a=["0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"];d="";for(i=0;i<w.length;i++)d+=a[w>>4&15],d+=a[w&15];return d}
|
|