灰色表示不在线

小图标：
大图标：

代码复制区

脚本说明:
把如下代码加<body></body>区域中
<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=12556147") 
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=12556147 target=_blank title=QQ:12556147><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=12726529") 
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=12726529 target=_blank title=QQ:12726529><img src="&PicURL&" width=32 height=32 border=0></a>"
</script>