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

最新推荐文章于 2017-10-11 11:49:23 发布

阿豪2

最新推荐文章于 2017-10-11 11:49:23 发布

阅读量847

点赞数

文章标签： qq 编程 vbscript border function url

本文链接：https://blog.csdn.net/gzxiaohao/article/details/204982

版权

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

日期：2003年11月15日作者：mbsky 人气： <script src="../Hits.asp?ArticleID=371"></script> 161 查看:[大字体中字体小字体] <script src="../inc_script/article_ads_view_500x.js"></script>

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

小图标：
<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>