vbs中xmldom如何获取QQ签名

这篇文章主要为大家展示了“vbs中xmldom如何获取QQ签名”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“vbs中xmldom如何获取QQ签名”这篇文章吧。

'/*=========================================================================   
' * Intro       用XMLDOM分析QQ签名文档   
' * FileName    QQ_QianMing.vbs   
' * Author      yongfa365   
' * Version     v2.0   
' * Email       yongfa365[at]qq.com    

' * MadeTime    2008-01-22 20:55:25   
' * LastModify  2008-02-22 20:55:25   
' *==========================================================================*/   

Set Doc = CreateObject("Microsoft.XMLDOM")   
Doc.async = False  
Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexcount.cgi?uin=64049027")   
Set root = Doc.documentElement   
Set node = root.childNodes.nextNode()   
Wscript.Echo "共" & node.text & "条签名信息"  

Set Doc = CreateObject("Microsoft.XMLDOM")   
Doc.async = False  
Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=64049027&emotionarchive=-1")   
Set root = Doc.documentElement   
Wscript.Echo "XML根结点名字是：" & root.nodeName   
Set node = root.childNodes.nextNode()   

For nodei = 0 To node.childNodes.Length -1   
    Set NowNode = 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.Echo msg 

以上是“vbs中xmldom如何获取QQ签名”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注亿速云行业资讯频道！