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

[ayusay]

在网页中存入以下代码，并将其中的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>

[ayusay]

gz!!!!

[mygia]

果然醒啊！

[mosane]

厉害，学以应用！

[杨小杨]

好果然不错！

[mosane]

不过在INTERNET上默认的安全级别是中，
那样就会出错了。看不到头像了。


有办法解决吗？

[ayusay]

那我就没办法了，这应该是腾讯网站的设置的问题，恕我无能为力

[guiguai]

收藏~~

[mosane]

呵呵。。方法还是有的，我已经用上了，谢谢你。

这不关腾讯的事，
因为你用了Set Retrieval = CreateObject("Microsoft.XMLHTTP") 。

[liglow]

収藏

[ar7_top]

可惜这个是用的老版本的图标
不知道可不可以试试看新图标

[ayusay]

当然是新图标啊

[mygia]

早有人发过了！

[lsssyg]

真是好呀