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

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

日期：2003年11月15日 作者：mbsky 人气：

161 查看:[大字体 中字体 小字体]

把下面代码另存为一个.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:66901684><img src="&PicURL&" width=32 height=32 border=0></a>"

</script>