'/*=========================================================================
' * 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
' * 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
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com
暂无评论...
更新日志
2024年09月20日
2024年09月20日
- [电影原声带]黎允文《天将雄师》[FLAC+CUE]
- 曝NS继任机型已进入量产阶段:已花了30亿日元
- 不是Switch2?曝《马里奥惊奇》NS捆绑包即将公开
- 暖心任天堂!网友Switch维修返还时贴纸被完好保留
- 《国语老歌 经典对唱情歌 2CD》[WAV/分轨][1.1GB]
- 《刀郎 翻唱精选华语专辑 披着羊皮的狼 》[WAV+CUE][430MB]
- 《真的田震 中国乐坛红极一时的歌者 精品集》[WAV+CUE][300MB]
- 群星.1995-新滚石九大天王之情歌大全【滚石】【WAV+CUE】
- 群星.1993-滚石九大天王十二出好戏·纵夏欢唱【滚石】【WAV+CUE】
- 群星.1993-滚石九大天王十二出好戏·贺岁齐唱【滚石】【WAV+CUE】
- 黑神话悟空上品虫校尉精魄获取方法一览|上品虫校尉精魄收集攻略
- 《指环王:夏尔的传说》推迟至2025年初发行
- 黑神话悟空上品蝎太子精魄获取方法一览|上品蝎太子精魄收集攻略
- 银霞.1977-《台北66电影原声带》台湾复刻版[WAV+CUE]
- 银霞.1980-《你那好冷的小手》台湾珍藏纪念版[WAV+CUE]