|
不用编程，得到一个用户QQ在线状态
日期：2003年11月15日 作者：mbsky 人气： 161 查看: [ 大字体 中字体 小字体 ]
|
把下面代码另存为一个.htm文件就行了。
1<script language="vbscript">
2Function GetURL(url)
3Set Retrieval = CreateObject("Microsoft.XMLHTTP")
4With Retrieval
5.Open "GET", url, False, "", ""
6.Send
7GetURL = .ResponseText
8End With
9Set Retrieval = Nothing
10End Function
11</script>
小图标：
1<script language="vbscript">
2Dim T,Start,Length,PicURL
3T=GetURL("http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no=1924192")
4Start=Instr(1,T,"ShowResult("+chr(34))
5Start=Instr(Start,T,"http://")
6Length=Instr(Start,T,chr(34)+","+chr(34))-Start
7PicURL=Mid(T,Start,Length)
8'document.write "<img src='"&PicURL&"'>"
9document.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>"
10</script>
1<br/>
大图标：
1<script language="vbscript">
2Dim T,Start,Length,PicURL
3T=GetURL("http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192")
4Start=Instr(1,T,"img height=32")
5Start=Instr(Start,T,"http://")
6Length=Instr(Start,T,chr(34)+" width=32")-Start
7PicURL=Mid(T,Start,Length)
8'document.write "<img src='"&PicURL&"'>"
9document.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>"
10</script>