Vbs xmldom obtains the QQ signature code for the first time

'/* =================================================== ==========================================
'* Using XMLDOM to analyze QQ signature documents
'* FileName QQ_QianMing.vbs
'* Author yongfa365
'* Version v2.0
'* Email yongfa365 [at] qq.com

'* MadeTime 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.doc umentElement
Set node = root. childNodes. nextNode ()
Wscript. Echo "Total" & node. text & "signature information"

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.doc umentElement
Wscript. Echo "the XML root node name 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