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

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

2020-07-23 11:03VBS代码网 VBS

用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