繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs xmldom初次实战获取QQ签名的代码
- VBScript
- 查看SQL状态的vbs
- vbs 字符统计功能模块
- 重新安装ie的一个vbs
- 中文姓名笔画计算（VBS脚本版）
- VBS 数字转英文代码
- 清除垃圾的VBS文件 自动查找多个盘
- math.vbs 自然数n的n次方的的和或积的级数
- encrypt.vbs 内容加密vbs实现代码
- 一段病毒常用的VBS代码
- VBS相册生成脚本[
- VBS教程：运算符-连接运算符 (&)
- 黑客必须要知道的几个vbs文件代码
- 用vbs实现虚拟主机和域名查循的脚本
- reg2vbs.vbs 将Reg文件转换为VBS文件保存 IT学习网修正版本
- vbscript语句中“&H”专用于16进制数表示
- 按键精灵 脚本-学习VBS的一个不错的教程
- reg2vbs.vbs 将Reg文件转换为VBS文件保存修正版本
- 一个可以删除指定天数文件的vbs脚本
- CreateWeb.vbs 代码
- N年前的两个脚本%5c暴库
VBScript 中的 vbs xmldom初次实战获取QQ签名的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 66 ::
收藏到网摘: n/a
'/*=========================================================================
' * 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
评论 (0) All
