不用编程,得到一个用户QQ在线状态
2004-12-05 02:02
501 查看
| |
日期:2003年11月15日 作者:mbsky 人气: 161 查看:[大字体 中字体 小字体] | |
<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> |
相关文章推荐
- QQ商业化,如何实现从0到1的破局?
- VC与Delphi之间动态链接库互相调用
- OpenOffice,好用的开源办公软件
- 我的应聘总结!
- javascript表单之间的数据传递!
- PHP 的 MySQL 操作类,跟手册上的函数一样用,但是更方便了。多说无益,看了就知道了。
- 参加特色教育网站评比
- 教育软件评审
- delphi中的时间操作技术(1)
- delphi中的时间操作技术(2)
- VB五子棋问题,请高手赐教
- 帮帮我好不好!!!!
- IP地址的隐藏(delphi实现 )
- 解析IP地址为主机域名
- 将某一主机域名解析为IP地址
- 紧急求救(求ADPCM播放控件或者开发接口)
- 有关TrueDBGrid的问题向各位大虾请教
- 4年程序员感悟
- 好久没来CSDN了,因为一直在忙考试....