通过MSXML2自动获取QQ个人头像及在线情况(给初学者)

原创 2004年06月02日 09:59:00
不知道大家对MSXML2.XMLHTTP是不是很熟悉,不过它的功能可以说是达到了极点.你可以通过它把别人的网站都"搬回来",呵呵,吹牛啦!!
今天我就用它从腾讯网站获取一个QQ号码的头像,在线情况(人家隐身了我也没办法).当然大家也可以获取QQ的昵称,所在地等.具体实现方法如下:
先建立两个函数,用来处理一个URL
<%
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
'''''''以下处理字符
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
这两个函数你可以收藏起来,用处大得不得了.
大家可以先看看这个地址http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ是本人的,我每天都很忙,请大家自觉,呵呵,讨论问题非常欢迎)
以下我们就通过腾讯的好友查找来获取信息,
<%
function qqhead(qq)
url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qq
content=getHTTPPage(url)
if len(content)>6360 then '如果QQ无效,做一些处理,避免错误发生.
content=replace(mid(content,instr(content,"http://img.tencent.com"),38),"""","")
qqhead="<a href='http://friend.qq.com/cgi-bin/friend/user_show_info?ln="&qq&"' target='_blank'><img src='"&content&"' title='QQ:"&qq&"' border='0'></a>"
else
qqhead=""
end if
end function
'OK了,大功告成了.现在大家只要调用就行了.
response.write qqhead(5292816)
如果QQ头像是彩色的,说明好友在线,灰的就是不在线.
%>
大家可以到http://www.okwest.net/books看看效果.呵呵.

一个牛人给java初学者的建议

  给初学者之一:浅谈java及应用 学java不知不觉也已经三年了 从不知java为何物到现在一个小小的j2ee项目经理 虽说不上此道高手,大概也算有点斤两了吧 每次上网,泡bbs逛论坛,没少去ja...
  • pharaohsprince
  • pharaohsprince
  • 2007年06月24日 14:30
  • 23554

通过QQ号码获取QQ头像、昵称以及空间头像

从网上搜罗了一堆获取QQ头像的方法,基本上都是通过简单的链接即可实现,在这里做下记录和总结! QQ头像、QQ昵称、QQ空间头像...
  • lddtime
  • lddtime
  • 2017年03月21日 23:07
  • 2849

如何在自己的网站加入qq在线交谈功能

如何在自己的网站加上 qq在线交谈,离线留言功能。即点击qq个性图标,可以打开客户机端的qq客户端。实现和业主的qq聊天对话框。 如: QQ在线状态官网: http://wp...
  • kalision
  • kalision
  • 2012年02月10日 13:31
  • 20157

获取QQ头像代码

第三方:URL表 代码如下: @echo off title 获取QQ头像 :a set /p a= start http://q3.qlogo.cn/g?b=qq^&nk=%a%^&s=...
  • wengek
  • wengek
  • 2017年09月10日 08:26
  • 371

判断QQ是否在线方法(接口)

由于程序需要,需要检查QQ号码在线不,以前看道集中webqq接口都是返回在线状态图片,这个我我没用,今天百度了一下发现QQ有一个接口可以判断某个号码是否在线,而且可以批量处理很方便,居然不能识别隐身的...
  • esonbest1234
  • esonbest1234
  • 2016年02月24日 11:37
  • 1838

WebService(腾讯QQ在线状态 WEB 服务)

今天介绍一个简单有意思的小技术: 我们的目的呢就是通过输入QQ号码(String)检测QQ在线状态 我们首先打开http://www.webxml.com.cn/zh_cn/w...
  • D2587659184
  • D2587659184
  • 2017年09月04日 21:55
  • 463

c# 获取QQ聊天框信息,自动发送与回复!非Hook

用了二天的时间终于实验成果!从QQ6.6版到现在的QQ概念版。。 因为QQ使用了无句柄窗口,所以无法通过句柄来操作。从网上搜索了半天都是老版本的,从一个帖子中偶然发现了UI Automation,可...
  • u012984663
  • u012984663
  • 2015年01月08日 18:21
  • 5891

Java使用soap调用qq在线状态

折腾了好久才搞定,新手泪奔。。。。。 package com.mysoap; import java.net.MalformedURLException; import java.net....
  • zhengalways
  • zhengalways
  • 2015年06月02日 08:07
  • 314

非常激动,轻松破解QQ密码!

废话休提:第一步:打开QQ,注意,在我的好友列表里,要以小头像的方式显示.不要问我为什么,我知道的话,就没功夫呆在这里写博客啦.第二步:选中你想获取密码的好友头像,注意啊,一定要选中在线的,而且,不要...
  • chinainvent
  • chinainvent
  • 2006年08月30日 16:31
  • 5229

js 判断qq是否在线方法

工作中用到,记录一下,
  • kai161
  • kai161
  • 2014年08月22日 11:01
  • 2808
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
举报原因:
原因补充:

(最多只允许输入30个字)