vbs xmldom初次实战获取QQ签名的代码

1. '/*=========================================================================     
2. ' * Intro       用XMLDOM分析QQ签名文档     
3. ' * FileName    QQ_QianMing.vbs     
4. ' * Author      yongfa365     
5. ' * Version     v2.0     
6. ' * Email       yongfa365[at]qq.com     
7.  
8. ' * MadeTime    2008-01-22 20:55:25     
9. ' * LastModify  2008-02-22 20:55:25     
10. ' *==========================================================================*/     
11.  
12. Set Doc = CreateObject("Microsoft.XMLDOM")     
13. Doc.async = False    
14. Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexcount.cgi?uin=64049027")     
15. Set root = Doc.documentElement     
16. Set node = root.childNodes.nextNode()     
17. Wscript.Echo "共" & node.text & "条签名信息"    
18.  
19. Set Doc = CreateObject("Microsoft.XMLDOM")     
20. Doc.async = False    
21. Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=64049027&emotionarchive=-1")     
22. Set root = Doc.documentElement     
23. Wscript.Echo "XML根结点名字是：" & root.nodeName     
24. Set node = root.childNodes.nextNode()     
25.  
26. For nodei = 0 To node.childNodes.Length -1     
27.     Set NowNode = node.childNodes(nodei)     
28.     msg = msg & vbCrLf & "id" & ":" & NowNode.Attributes.getNamedItem("id").text     
29.     '    msg = msg & vbCrLf & "id" & ":" & NowNode.getAttribute("id")     
30.     msg = msg & vbCrLf & "title" & ":" & NowNode.selectSingleNode("title").text     
31.     msg = msg & vbCrLf & "pubDate" & ":" & NowNode.selectSingleNode("pubDate").text     
32.     '    msg = msg & vbCrLf &  NowNode.childNodes(0).nodeName & ":" & NowNode.childNodes(0).text     
33.     '    msg = msg & vbCrLf &  NowNode.childNodes(1).nodeName & ":" & NowNode.childNodes(1).text     
34. Next    
35. Wscript.Echo msg