msxml2.xmlhttpに非常に精通しているかどうかはわかりませんが、その機能は極端にあると言えます。それを使用して、他の人のウェブサイト、ハハ、自慢して「戻る」ことができます!!
今日は、Tencent WebサイトからQQ番号アバターを取得するために使用します。オンラインの状況（誰かが見えない場合はできません）。もちろん、QQニックネーム、場所などを取得することもできます。特定の実装方法は次のとおりです。
最初に2つの関数を作成して、URLを処理します
コードコピーは次のとおりです。
<％
functiongethttppage（url）
dimhttp
setthttp = createObject（ "msxml2.xmlhttp"）
http.open "get"、url、false
http.send（）
ifhttp.ReadyState <> 4then
exitFunction
endif
gethttppage = bytes2bstr（http.responsebody）
setthttp =何もない
iferr.number <> 0thenerr.clear
エンド機能
'' '' '' ''次の処理文字
functionbytes2bstr（vin）
dimstrreturn
Dimi、このCharcode、Next Charcode
strreturn = ""
fori = 1tolenb（vin）
thischarcode = ascb（midb（vin、i、1））
ifthischarcode <＆h80then
strreturn = strreturn＆chr（thischarcode）
それ以外
NextCharcode = ascb（midb（vin、i+1,1））
strreturn = strreturn＆chr（clng（thischarcode）*＆h100+cint（nextcharcode）））
i = i+1
endif
次
bytes2bstr = strreturn
エンド機能
％>
これらの2つの機能を収集できますが、これは非常に有用です。
最初にこのアドレスをチェックしてくださいhttp://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
（QQは私自身のものです。私は毎日とても忙しいです。意識してください。
以下に、Tencentの友人検索を通じて情報を取得します。
<％
functionqqhead（qq）
url = "http://friend.qc.com/cgi-bin/friend/oicq_find?oicq_no="＆qq
content = gethttppage（url）
iflen（content）> 6360then'if qqは無効です。エラーを回避するために処理を行います。
content = fack（mid（content、strun）（content、 "http://img.tencent.com"）、38）、 "" "、" "）
qqhead = "<ahref = 'http：//friend.qq.com/cgi-bin/friend/user_show_info？ln ="＆qq＆ "'ターゲット= '_ blank'> <imgsrc = '"＆ "' title = 'qq："＆qq＆ "' border = '0
それ以外
qqhead = ""
endif
エンド機能
「わかりました、仕事は終わりました。今、誰もがそれを呼ぶ必要があります。
respons.writeqqhead（5292816）
QQアバターが着色されている場合、友人がオンラインであり、灰色のアバターがオンラインではないことを意味します。
％>
http://www.okwest.net/booksにアクセスして、効果を確認できます。ハハ。