How to get QQ signature by xmldom in vbs

This article mainly shows you "xmldom in vbs how to get QQ signature", the content is easy to understand, clear, hope to help you solve your doubts, the following let the editor lead you to study and learn "how to get QQ signature in vbs xmldom" this article.

'/ * =

'* Intro uses XMLDOM to analyze QQ signature documents

'* 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 "total" & node.text & "signature message"

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

The name of the Wscript.Echo "XML root node is:" & 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

The above is all the contents of the article "how to get QQ signatures from xmldom in vbs". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!