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



相关阅读:
CSS网页中的相对定位与绝对定位
透彻掌握ASP分页技术很详细的分析
在GridView中超链接的应用(带参数)
CSS教程之css选择器 、属性、值
源码学习:一个简单的日历控件(2)
Windows XP操作系统忘记密码怎么办?
用JSP下载word文件(不会直接用IE打开)
JavaScript 读取图片实例代码
SQLServer 2005数据库连接字符串 连接sql2005必备资料
Linux驱动Invalid module format错误解决
JS教程:thickbox弹出框效果
用IIS+ASP建网站的安全性分析
php5新改动之短标记启用方法
HTML 相对路径和绝对路径区别分析
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 幽香飘溢 四季·夏 让你“脱光”的光棍节短信 《祝你生日快乐》 成长的烦恼作文850字 元旦节日记作文100字 人社局“三严三实”专题民主生活会情况通报 该如何救赎我们濒危的文明 建筑装修合同样本 兴趣自助餐作文500字 XX小学关于创建“平安校园”的实施意见 Ourcountry作文100字 纪念姑姑 高中高考作文750字:我和别人一样吗? 请给我十分钟 纪念伟大的爱国诗人 小学生现代诗歌:池塘水涟漪 伸展反义词_伸展反义词是什么_伸展造句 此亦课堂作文700字 归鸟 经典语录:人生有那么长,未知的东西那么多 四年级有趣的事作文 小学六年级作文550字:风雨中的女孩 党委书记个人述职 检察系统行政检察科优秀科长事迹材料 有些事随着时间悄悄流逝了 初中初一作文750字:出淤泥而不染 “自强励志之星”候选人事迹事迹材料 地狱与天堂 静坐阳光 放“被死”者一条生路吧… 四年级学生优秀作文大全 浅析人口发展与经济增长过程中的就业问题 其实一个人也可以活得漂亮 腾讯的层级人生观 对我国公共体育场馆经营出路的分析 2014年3月党员工作总结 豆腐桥,古代民间故事 因为我们是一家人 非主流伤感爱情日志 变奏 同学们 炸薯片 快乐劳动的一天1000字 遥远的远作文1100字 小说是对是错一百一十四 思念,是一种幸福,也是一种痛 他在等你说谢谢 写给班主任老师的感谢信 《地雷战》观后感精选3篇

Copyright © 2016 phpStudy |