不用编程，得到一个用户QQ在线状态

把下面代码另存为一个.htm文件就行了。

<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=1924192")

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=1924192 target=_blank title=qq:1924192><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=1924192")

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=1924192 target=_blank title=qq:1924192><img src="&picurl&" width=32 height=32 border=0></a>"

</script>