通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
2018-09-06 10:59
不知道大家对MSXML2.XMLHTTP是不是很熟悉,不过它的功能可以说是达到了极点.你可以通过它把别人的网站都搬回来,呵呵,吹牛啦!!
今天我就用它从腾讯网站获取一个QQ号码的头像,在线情况(人家隐身了我也没办法).当然大家也可以获取QQ的昵称,所在地等.具体实现方法如下:
先建立两个函数,用来处理一个URL
复制代码 代码如下:
<%
functiongetHTTPPage(url)
dimhttp
sethttp=createobject(MSXML2.XMLHTTP)
Http.openGET,url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytes2BSTR(Http.responseBody)
sethttp=nothing
iferr.number<>0thenerr.Clear
endfunction
以下处理字符
Functionbytes2BSTR(vIn)
dimstrReturn
dimi,ThisCharCode,NextCharCode
strReturn=
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
%>
这两个函数你可以收藏起来,用处大得不得了.
大家可以先看看这个地址
(QQ是本人的,我每天都很忙,请大家自觉,呵呵,讨论问题非常欢迎)
以下我们就通过腾讯的好友查找来获取信息,
<%
functionqqhead(qq)
url=
content=getHTTPPage(url)
iflen(content)>6360then如果QQ无效,做一些处理,避免错误发生.
content=replace(mid(content,instr(content,
qqhead=<ahref=
else
qqhead=
endif
endfunction
OK了,大功告成了.现在大家只要调用就行了.
response.writeqqhead(5292816)
如果QQ头像是彩色的,说明好友在线,灰的就是不在线.
%>
大家可以到看看效果.呵呵.
文章标题：通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
文章链接：http://soscw.com/essay/8922.html