vbs xmldom初次實(shí)戰(zhàn)獲取QQ簽名的代碼

2020-07-26 11:56:24

字體：大中小

供稿：網(wǎng)友

'/*=========================================================================
' * 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根結(jié)點(diǎn)名字是：" & 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破壞性應(yīng)用代碼

下一篇：VBS腳本使用WMI操作注冊表的代碼第1/2頁