vbs xmldom初次實(shí)戰(zhàn)獲取QQ簽名的代碼
更新時間：2008年06月23日 20:41:50 作者：
用vbs+xmldom實(shí)現(xiàn)的獲取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根結(jié)點(diǎn)名字是：" & 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根結(jié)點(diǎn)名字是：" & 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
相關(guān)文章
用vbs確定可移動驅(qū)動器的連接時間...2007-03-03
用vbs實(shí)現(xiàn)防止計(jì)算機(jī)使用 LMHosts 文件
用vbs實(shí)現(xiàn)防止計(jì)算機(jī)使用 LMHosts 文件...2007-03-03
每天沒事到百度上回答問題要先打開IE，輸入BAIDU，點(diǎn)百度知道，點(diǎn)我要回答，再輸入要回答的問題類別，很麻煩，于是寫了這樣一個百度小助手.2009-12-12
vbs腳本和windows定時任務(wù)實(shí)現(xiàn)qq消息表情包定時發(fā)送功能
這篇文章主要介紹了vbs腳本和windows定時任務(wù)實(shí)現(xiàn)qq消息表情包定時發(fā)送,整個過程不用過多的程序運(yùn)行，我們借助vbs腳本和windows定時任務(wù)去實(shí)現(xiàn)這一功能，需要的朋友可以參考下2022-01-01
關(guān)于vbs WebBrowser導(dǎo)航問題
1、如何確定打開的新窗口的URL 2、如何使新窗口不彈出而是在原來頁面中顯示2008-05-05
'以下代碼是定時關(guān)機(jī)或重啟的腳本，在windows 2000下通過2008-06-06
VBS教程：函數(shù)-StrReverse 函數(shù)
VBS教程：函數(shù)-StrReverse 函數(shù)...2006-11-11
用vbs判斷一個日期是否在指定的時段內(nèi)...2007-04-04
VBS基礎(chǔ)編程教程 (第3篇)...2007-12-12
使用VBScript 中的類組織開發(fā)...2007-03-03