MSXML 2を通じてQQのプロフィールとオンラインの情報を自動的に取得する（初心者へ）

みんなはMSXML 2.XMLHTTPに詳しいかどうかは分かりませんが、その機能は極点に達したと言えます。他の人のウェブサイトを全部「運んできます」と言ってもいいです。ほらを吹いてください。今日は騰訊サイトからQQ番号の顔写真を取得します。オンラインの状況（人が隠れていても仕方がないです。）QQのニックネーム、所在地なども取得できます。具体的な実現方法は以下の通りです。まず二つの関数を作って、一つの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  
%> 

という二つの関数を処理します。収集できます。使い道が大変です。まずこの住所を見てください。http://friend.qq.com/cgi-bin/friend/oicq_find？oicq_NO=5292816（QQは本人のものです。毎日忙しいです。自覚してください。ほほほ、討論問題は非常に歓迎されます。）以下は騰訊の友達を通じて情報を探します。 qqhead(qq)url="http://friend.qq.com/cgi-bin/friend/oicq_find？oicq_no="&qq content=getHTTPPage(url)if len(content)>6360 then 'もしQQが無効ならば、いくつか処理をして、誤りの発生を免れます。content=replace（mid）（content、instr）http://img.tencent.com")，"38"，""，"，"，")qhead="
 src=「&content&」 title='QQ:" border='0'"else qhead="end if end Function'OKです。完成しました。今はみんなで呼出しすればいいです。レスポンス.write qq head(5292816)もしQQアバターがカラーだったら、友達のオンラインを説明します。灰はオンラインではないです。http://www.okwest.net/books効果を見てください