400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > vbs xmldom初次实战获取QQ签名的代码

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=64049027emotionarchive=-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 

标签：上海 红河 沧州 河南 新疆 沈阳 长治 乐山

巨人网络通讯声明：本文标题《vbs xmldom初次实战获取QQ签名的代码》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：VBS脚本使用WMI操作注册表的代码第1/2页

    下一篇：VBS破坏性应用代码

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266