'/*=========================================================================

'*Intro用XMLDOM分析QQ签名文档

'*FileNameQQ_QianMing.vbs

'*Authoryongfa365

'*Versionv2.0

'*Emailyongfa365[at]qq.com

'*MadeTime2008-01-2220:55:25

'*LastModify2008-02-2220:55:25

'*==========================================================================*/

SetDoc=CreateObject("Microsoft.XMLDOM")

Doc.async=False

Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexcount.cgi?uin=64049027")

Setroot=Doc.documentElement

Setnode=root.childNodes.nextNode()

Wscript.Echo"共"&node.text&"条签名信息"

SetDoc=CreateObject("Microsoft.XMLDOM")

Doc.async=False

Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=64049027&emotionarchive=-1")

Setroot=Doc.documentElement

Wscript.Echo"XML根结点名字是："&root.nodeName

Setnode=root.childNodes.nextNode()

Fornodei=0Tonode.childNodes.Length-1

SetNowNode=node.childNodes(nodei)

msg=msg&vbCrLf&"id"&":"&NowNode.Attributes.getNamedItem("id").text

'msg=msg&vbCrLf&"id"&":"&NowNode.getAttribute("id")

msg=msg&vbCrLf&"title"&":"&NowNode.selectSingleNode("title").text

msg=msg&vbCrLf&"pubDate"&":"&NowNode.selectSingleNode("pubDate").text

'msg=msg&vbCrLf&NowNode.childNodes(0).nodeName&":"&NowNode.childNodes(0).text

'msg=msg&vbCrLf&NowNode.childNodes(1).nodeName&":"&NowNode.childNodes(1).text

Next

Wscript.Echomsg