Ich weiß nicht, ob Sie mit MSXML2.xmlhttp sehr vertraut sind, aber seine Funktionen können als extrem bezeichnet werden. Sie können es verwenden, um die Websites anderer Leute zurückzuziehen, haha, prahlen !!
Heute werde ich es verwenden, um eine QQ -Nummer Avatar von der Tencent -Website zu erhalten. Die Online -Situation (ich kann es nicht tun, wenn jemand unsichtbar ist). Natürlich können Sie auch den QQ -Spitznamen, den Standort usw. erhalten. Die spezifische Implementierungsmethode lautet wie folgt:
Erstellen Sie zuerst zwei Funktionen, um eine URL zu verarbeiten
Die Codekopie lautet wie folgt:
<%
FUNKTIONSETHTTTPPAGE (URL)
Dimhttp
settThttp = createObject ("msxml2.xmlhttp"))
Http.open "get", url, falsch
Http.send ()
IFHTTP.REYYSTATE <> 4Then
Ausgangsfunktion
Endif
getttppage = bytes2bstr (http.responsebody)
settThttp = nichts
ifer.number <> 0Thenerr.clear
Endfunktion
'' '' '' 'Die folgenden Verarbeitungszeichen
FunctionBytes2bstr (vin)
Dimstrreturn
Dimi, thischarCode, NextCharCode
Streturn = ""
Fei = 1tolenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
Anders
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
i = i+1
Endif
Nächste
bytes2bstr = Streturn
Endfunktion
%>
Sie können diese beiden Funktionen sammeln, die von großem Nutzen sind.
Sie können sich zuerst diese Adresse ansehen
(QQ ist mein eigener. Ich bin jeden Tag sehr beschäftigt. Bitte seien Sie bei Bewusstsein. Haha, ich bin sehr willkommen, Probleme zu besprechen)
Im Folgenden erhalten wir Informationen über Tencents Freundesuche.
<%
FunktionQQQED (QQ)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & qq
Content = Gethttppage (URL)
Iflen (Inhalt)> 6360Then'if qq ist ungültig, machen Sie eine Verarbeitung durch, um Fehler zu vermeiden.
content = ersetzen (Mid (Inhalt, Instrument (Inhalt, "http://img.tencent.com"), 38), "", "")
qqhead = "<ahref = 'http: //friend.qq.com/cgi-ner/friend/user_show_info?
anders
qqhead = ""
Endif
Endfunktion
„OK, der Job ist erledigt. Jetzt müssen es nur alle nennen.
Antwort.WriteQQqhead (5292816)
Wenn der QQ -Avatar gefärbt ist, bedeutet dies, dass der Freund online ist und der graue nicht online ist.
%>
Sie können zu http://www.okwest.net/books gehen, um den Effekt anzuzeigen. Haha.