通過MSXML2自動獲取QQ個人頭像及在線情況(給初學(xué)者)
更新時間：2007年01月22日 00:00:00 作者：
不知道大家對MSXML2.XMLHTTP是不是很熟悉,不過它的功能可以說是達(dá)到了極點.你可以通過它把別人的網(wǎng)站都"搬回來",呵呵,吹牛啦!!
今天我就用它從騰訊網(wǎng)站獲取一個QQ號碼的頭像,在線情況(人家隱身了我也沒辦法).當(dāng)然大家也可以獲取QQ的昵稱,所在地等.具體實現(xiàn)方法如下:
先建立兩個函數(shù),用來處理一個URL
<%
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
'''''''以下處理字符
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
這兩個函數(shù)你可以收藏起來,用處大得不得了.
大家可以先看看這個地址http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ是本人的,我每天都很忙,請大家自覺,呵呵,討論問題非常歡迎)
以下我們就通過騰訊的好友查找來獲取信息,
<%
function qqhead(qq)
url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qq
content=getHTTPPage(url)
if len(content)>6360 then '如果QQ無效,做一些處理,避免錯誤發(fā)生.
content=replace(mid(content,instr(content,"http://img.tencent.com"),38),"""","")
qqhead="<a
else
qqhead=""
end if
end function
'OK了,大功告成了.現(xiàn)在大家只要調(diào)用就行了.
response.write qqhead(5292816)
如果QQ頭像是彩色的,說明好友在線,灰的就是不在線.
%>
大家可以到http://www.okwest.net/books看看效果.呵呵.
今天我就用它從騰訊網(wǎng)站獲取一個QQ號碼的頭像,在線情況(人家隱身了我也沒辦法).當(dāng)然大家也可以獲取QQ的昵稱,所在地等.具體實現(xiàn)方法如下:
先建立兩個函數(shù),用來處理一個URL
復(fù)制代碼 代碼如下:
<%
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
'''''''以下處理字符
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
大家可以先看看這個地址http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ是本人的,我每天都很忙,請大家自覺,呵呵,討論問題非常歡迎)
以下我們就通過騰訊的好友查找來獲取信息,
復(fù)制代碼 代碼如下:
<%
function qqhead(qq)
url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qq
content=getHTTPPage(url)
if len(content)>6360 then '如果QQ無效,做一些處理,避免錯誤發(fā)生.
content=replace(mid(content,instr(content,"http://img.tencent.com"),38),"""","")
qqhead="<a
else
qqhead=""
end if
end function
response.write qqhead(5292816)
如果QQ頭像是彩色的,說明好友在線,灰的就是不在線.
%>
大家可以到http://www.okwest.net/books看看效果.呵呵.
相關(guān)文章
這篇文章主要為大家詳細(xì)介紹了JavaScript實現(xiàn)更換背景圖片,文中示例代碼介紹的非常詳細(xì)，具有一定的參考價值，感興趣的小伙伴們可以參考一下2019-10-10
這篇文章主要介紹了JS實現(xiàn)六位字符密碼輸入器功能,非常不錯，具有參考借鑒價值，需要的朋友可以參考下2016-08-08
這篇文章主要介紹了JS+CSS實現(xiàn)簡易實用的滑動門菜單效果,涉及JavaScript鼠標(biāo)事件及頁面元素遍歷的相關(guān)技巧,具有一定參考借鑒價值,需要的朋友可以參考下2015-09-09
JavaScript?onclick點擊事件-點擊切換圖片且自動播放
這篇文章主要介紹了JavaScript?onclick點擊事件-點擊切換圖片且自動播放，在頁面中放圖片并設(shè)置四個button，可以通過點擊上一張下一張來切換圖片，下面來看看具體的實現(xiàn)過程吧2022-01-01
這篇文章主要為大家詳細(xì)介紹了JavaScript實現(xiàn)動態(tài)表格效果，文中示例代碼介紹的非常詳細(xì)，具有一定的參考價值，感興趣的小伙伴們可以參考一下2021-06-06
JavaScript 上傳文件(psd,壓縮包等),圖片,視頻的實現(xiàn)方法
本文通過實例代碼給大家介紹了JavaScript 上傳文件(psd,壓縮包等),圖片,視頻功能,需要的朋友可以參考下2017-06-06
這篇文章主要為大家詳細(xì)介紹了原生JS實現(xiàn)加載進(jìn)度條，文中示例代碼介紹的非常詳細(xì)，具有一定的參考價值，感興趣的小伙伴們可以參考一下2021-10-10
本篇文章主要介紹了js浮點數(shù)精確計算(加、減、乘、除) 需要的朋友可以過來參考下，希望對大家有所幫助2013-12-12
layer.open組件獲取彈出層頁面變量、函數(shù)的實例
今天小編就為大家分享一篇layer.open組件獲取彈出層頁面變量、函數(shù)的實例，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2019-09-09
越來越多的網(wǎng)站進(jìn)行數(shù)據(jù)傳輸時不使用明文傳輸,本文主要介紹了JS逆向之加密參數(shù)定位,文中通過示例代碼介紹的非常詳細(xì),對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2024-01-01