原创--QQ空间信息查看器源码! - vbs吧

level 7

eagle846 楼主

设置所要查询的QQ号

2009年08月31日 03点08分 1

level 7

eagle846 楼主

QQ空间档案

2009年08月31日 03点08分 2

level 7

eagle846 楼主

QQ空间日志信息

2009年08月31日 03点08分 3

level 7

eagle846 楼主

签名信息

2009年08月31日 03点08分 6

level 7

eagle846 楼主

访客信息

2009年08月31日 03点08分 7

level 7

eagle846 楼主

好友信息

2009年08月31日 03点08分 8

level 7

eagle846 楼主

核心代码公开在我的QQ空间里，希望对大家有用
http://user.qzone.qq.com/369029696?ptlang=2052

2009年08月31日 03点08分 9

level 5

137Aoopen

额，不错，我更喜欢看源码！嘿嘿！

2009年08月31日 03点08分 10

level 11

次碳酸钴

直接分析RSS。。。

2009年08月31日 06点08分 11

level 7

244326867

http://user.qzone.qq.com/369029696
这样才能访问？

2009年09月09日 19点09分 12

level 7

eagle846 楼主

直接输QQ号...

2009年09月09日 23点09分 13

level 1

breakan

哈。不错。。

2009年09月10日 05点09分 14

level 11

次碳酸钴

建议用IE对象显示读到的信息。。。

2009年09月10日 08点09分 15

level 7

eagle846 楼主

我做了一个VB版的，所以VBS版没怎么搞

2009年09月11日 11点09分 16

level 7

244326867

居然打开
http://user.qzone.qq.com/369029696
还要登陆QQ
居然有人出500为了解决这个问题怎么能不登陆就进去呢？

2009年09月11日 17点09分 17

level 7

eagle846 楼主

我还是把代码发到这里来吧
核心代码：
'---------------------------------------查看档案----------------------------------------------
function qqinfo(qq)
  on error resume next
  Set Doc = CreateObject("Microsoft.XMLDOM")
  Doc.async = False
  Doc.load("http://users.cnc.qzone.qq.com/fcg-bin/cgi_access_self.fcg?uin=" & qq & chr(38) & "type=3")
  Set root = Doc.documentElement
  blo=split("A,B,AB,其它",",")
   msg= msg & vbcrlf & "QQ ： " & root.selectSingleNode("uin").text
   msg= msg & vbcrlf & "昵称： " & root.selectSingleNode("nickname").text
   msg= msg & vbcrlf & "生日： " & root.selectSingleNode("birthday").text
   msg= msg & vbcrlf & "血型： " & blo(root.selectSingleNode("bloodtype").text-1)
   msg= msg & vbcrlf & "居住： " & root.selectSingleNode("province").text & root.selectSingleNode("city").text
   msg= msg & vbcrlf & "职业： " & root.selectSingleNode("career").text
   msg= msg & vbcrlf & "空间： " & root.selectSingleNode("spacename").text
   msg= msg & vbcrlf & "爱好： " & root.selectSingleNode("interest").text
  uininfo=msg:msg=""
  msgbox uininfo,0+48,"用户信息"
end function
'--------------------------------------------------------------------------------------------------

2009年09月14日 06点09分 18

level 7

eagle846 楼主

'---------------------------------------查看日志----------------------------------------------
function rizhi(qq)
  on error resume next
  Set Doc = CreateObject("Microsoft.XMLDOM")
  Doc.async = False
  Doc.Load ("http://feeds.qzone.qq.com/cgi-bin/cgi_rss_out?uin=" & qq )
  Set root = Doc.documentElement
  Set node = root.childNodes.nextNode()
  For nodei = 0 To node.childNodes.Length - 1
  Set NowNode = node.childNodes(nodei)
    if nownode.nodeName="item" then
      msg = msg & vbCrLf & "  标题:" & NowNode.selectSingleNode("title").Text
      msg = msg & vbcrlf & "  日期:" & NowNode.selectSingleNode("pubDate").Text
      msg = msg & vbcrlf & "  分类:" & NowNode.selectSingleNode("category").Text
      msg = msg & vbcrlf & "  链接:" & NowNode.selectSingleNode("link").Text
      'msg = msg & vbcrlf & "  概要:" & NowNode.selectSingleNode("description").Text
      msg = msg & vbcrlf
    end if
  Next
  rizhiinfo=msg: msg=""
  msgbox rizhiinfo,0+48,"日志信息"
end function
'--------------------------------------------------------------------------------------------------

2009年09月14日 06点09分 19

level 7

eagle846 楼主

'---------------------------------------查看签名----------------------------------------------
function qianmin(qq)
  on error resume next
  Set Doc = CreateObject("Microsoft.XMLDOM")
  Doc.async = False
  Doc.Load ("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=" & qq & chr(38) & "emotionarchive=-1")
  Set root = Doc.documentElement
  Set node = root.childNodes.nextNode()
  For nodei = 0 To node.childNodes.Length - 1
  Set NowNode = node.childNodes(nodei)
    if nownode.nodeName="item" then
      msg = msg & vbCrLf & "  标题:" & NowNode.selectSingleNode("title").Text
      msg = msg & vbcrlf & "  日期:" & NowNode.selectSingleNode("pubDate").Text
      msg = msg & vbcrlf
    end if
  next
  qianmininfo=msg:msg=""
  msgbox qianmininfo,0+48,"签名信息"
end function
'--------------------------------------------------------------------------------------------------

2009年09月14日 06点09分 20

level 7

eagle846 楼主

'-----------------------------------查看访客和好友-----------------------------------------
function hudong(qq)
  on error resume next
  Set Doc = CreateObject("Microsoft.XMLDOM")
  Doc.async = False
  Doc.Load ("http://users.cnc.qzone.qq.com/fcg-bin/cgi_access_self.fcg?uin=" & qq & chr(38) & "type=4")
  Set root = Doc.documentElement
  Set node = root.childNodes.nextNode()
  visitor="最近访问："
  favor="空间好友："
  For nodei = 0 To root.childNodes.Length - 1
  Set NowNode = root.childNodes(nodei)
    if nownode.nodeName="visitorlist" then
      visitor = visitor & vbCrLf & "  ID  : " & NowNode.selectSingleNode("uin").Text
      visitor = visitor & vbcrlf & "  空间: " & NowNode.selectSingleNode("spacename").Text
      visitor = visitor & vbcrlf
    end if
    if nownode.nodeName="favorlist" then
      favor = favor & vbCrLf & "  ID  : " & NowNode.selectSingleNode("uin").Text
      favor = favor & vbcrlf & "  昵称: " & NowNode.selectSingleNode("nick").Text
      favor = favor & vbcrlf
    end if
  next
  msgbox visitor,0+48,"访客信息"
  msgbox favor,0+48,"好友信息"
end function
'--------------------------------------------------------------------------------------------------

2009年09月14日 06点09分 21

level 7

244326867

吧主的如果不登陆能读留言就牛了

2009年09月14日 07点09分 22