取QQ名称

Cramps · 发表于 2014-4-4 19:44:40

最新的取QQ名称.

[e]
.版本 2
.支持库 internet

.子程序取QQ名称, 文本型, 公开
.参数 QQ号, 文本型
.局部变量文本, 文本型
.局部变量分割, 文本型, , "0"

文本＝到文本 (HTTP读文件 (“ http://base.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=” ＋ QQ号))
分割＝分割文本 (文本, #引号, )
分割＝分割文本 (分割 [取数组成员数 (分割) － 1], “？” ＋ #引号＋ “,0]})” ＋ #右引号, )
.如果真 (取数组成员数 (分割) ＝ 0)
返回 (“未知？？？”)
.如果真结束
返回 (分割 [1])

[/e]

上面这个用不了了,谁有最新的代码呢?

痛恨一生 · 发表于 2014-4-4 19:44:41

免登录，取昵称，

[e]
.版本 2
.支持库 internet
.支持库 iconv
.支持库 RegEx

.程序集窗口程序集1
.程序集变量 QQ号码, 文本型

.子程序 _按钮1_被单击

QQ号码＝ “787209100”
信息框 (取昵称 (), 0, )

.子程序取昵称, 文本型
.局部变量网页源码1, 字节集
.局部变量网页源码2, 文本型
.局部变量昵称, 文本型

网页源码1 ＝ HTTP读文件 (“http://qq.ico.la/qq” ＋ QQ号码＋ “.html”)
网页源码2 ＝到文本 (编码转换 (网页源码1, #编码_UTF_8, #编码_GB2312, ))
昵称＝正则取文本 (网页源码2, #前文本, #后文本)
返回 (昵称)

.子程序正则取文本, 文本型, , 取两个文本中间的文本
.参数文本, 文本型
.参数前标, 文本型
.参数后标, 文本型
.局部变量正则表达式, 正则表达式
.局部变量搜索结果, 搜索结果, , "0"
.局部变量返回文本, 文本型
.局部变量 temp, 文本型

' 正则表达式，你懂的
正则表达式.创建 (前标＋ “(.*?)” ＋后标, )
搜索结果＝正则表达式.搜索全部 (文本)
temp ＝搜索结果 [1].取匹配文本 (文本, )
返回文本＝取文本中间 (temp, 取文本长度 (前标) ＋ 1, 取文本长度 (temp) －取文本长度 (前标) －取文本长度 (后标))
返回 (返回文本)
[/e]