MSXML2(초보자용)_javascript 기술을 통해 QQ 개인 아바타 및 온라인 상태 자동 획득

MSXML2에 대해 잘 아시는지 모르겠습니다. Tencent 웹사이트에서 QQ 번호의 아바타와 온라인 상태를 가져옵니다(그 사람이 보이지 않아도 어쩔 수 없습니다). 닉네임, 위치 등 구체적인 구현 방법은 다음과 같습니다.
먼저 두 가지 기능을 생성하고 URL을 처리하려면

코드 복사를 사용합니다. 코드는 다음과 같습니다.

function getHTTPPage (url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate< ;>4 then >end function
'''''''다음 문자가 처리됩니다.
함수 bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB( vIn,i,1))
If ThisCharCode 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는 저의 것입니다. 저는 매일 바빠요. 조심하세요. 헤헤. 문제에 대한 토론은 매우 환영합니다.)
다음은 Tencent 친구 검색을 통해 정보를 얻습니다.

코드 복사


코드는 다음과 같습니다.

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가 유효하지 않은 경우, 오류를 방지하려면 몇 가지 처리를 수행하세요.

content=replace(mid(content,instr(content,"http://img.tencent.com"),38 ),"""","")

qqhead =""
else
qqhead=""
end if
함수 종료

'OK 이제 모두 호출하기만 하면 됩니다.
response.write qqhead(5292816)
QQ 아바타가 색상으로 되어 있으면 친구가 온라인 상태가 아니라는 의미입니다.
%>

http://www.okwest.net/books에 가시면 효과를 보실 수 있습니다.