获取QQ头像和q名称源码

.版本 2
.支持库 internet

.子程序 QQ_获取头像, 字节集, 公开
.参数 QQ号, 文本型

返回 (HTTP读文件 (“http://q1.qlogo.cn/g?b=qq&nk=” ＋ QQ号 ＋ “&s=100”))


.子程序 QQ_获取QQ名, 文本型, 公开
.参数 QQ, 文本型
.局部变量 ret, 文本型
.局部变量 json, 类_json

ret ＝ 网页_访问S (“<a href="https://r.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=" target="_blank">https://r.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=</a>” ＋ QQ, , , , , “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, , , , , , , , , , , , , , , )
ret ＝ 取文本左边 (ret, 取文本长度 (ret) － 1)
ret ＝ 取文本右边 (ret, 取文本长度 (ret) － 17)
json.解析 (ret, , )
返回 (json.取通用属性 (“['” ＋ QQ ＋ “'][6]”, ))

@陌云