MSXML2(초보자용)_javascript 기술을 통해 QQ 개인 아바타 및 온라인 상태 자동 획득-JS 튜토리얼-php.cn

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

WBOY

풀어 주다： 2016-05-16 19:20:28

원래의

1430명이 탐색했습니다.

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 < &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는 저의 것입니다. 저는 매일 바빠요. 조심하세요. 헤헤. 문제에 대한 토론은 매우 환영합니다.) 
다음은 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에 가시면 효과를 보실 수 있습니다.