关注！！！在网页中显示QQ用户头像及在线状态的方法，无任何限制！！！！

[ayusay]

将以下代码另存为html，并将5913004换为你要显示的QQ号即可

<script language=vbscript>
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
End With
Set Retrieval = Nothing
End Function
</script>

小图标：
<script language=vbscript>
Dim T,Start,Length,PicURL
T=GetURL("http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no=5913004")
Start=Instr(1,T,"ShowResult("+chr(34))
Start=Instr(Start,T,"http://")
Length=Instr(Start,T,chr(34)+","+chr(34))-Start
PicURL=Mid(T,Start,Length)
'document.write "<img src='"&PicURL&"'>"
document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=5913004 target=_blank title=QQ:5913004><img src="&PicURL&" width=16 height=16 border=0></a>"
</script>


<br>
大图标：
<script language=vbscript>
Dim T,Start,Length,PicURL
T=GetURL("http://search.tencent.com/cgi-bin/friend/user_show_info?ln=5913004")
Start=Instr(1,T,"img height=32")
Start=Instr(Start,T,"http://")
Length=Instr(Start,T,chr(34)+" width=32")-Start
PicURL=Mid(T,Start,Length)
'document.write "<img src='"&PicURL&"'>"
document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=5913004 target=_blank title=QQ:5913004><img src="&PicURL&" width=32 height=32 border=0></a>"
</script>

[julyclyde]

抄我的。我最先在www.tencent.com/bbs发的。精华区
http://bbs.tencent.com/cgi-bin/bbs/bbs_jh_show_content?club=&from=t&groupid=10054&messageid=194&bbegnum=0&path=/*4/*58/11/&st=0&sc=

[ayusay]

0

[yw_ly]

不管是谁的，都不好使。[e-mail]

[ayusay]

julyclyde(foreverkok.yeah.net) ：

老兄，不好意思了，我并淌有说是我发的呀 ：）

我贴这个贴子也只是为了大家都能用上而已，因为这个功能是我找了好久才找到的。

谢谢了 ：）