在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000090 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

QQ2000B刷屏机的源码(Delphi)
发表文章
不用编程,得到一个用户QQ在线状态

原作者:sboy     提交人:SunLine     发布时间:03-01-29     文章类型:转贴     浏览量:2565
参考链结:http://    
关键字:QQ|oicq
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000090]

把下面代码另存为一个.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>




**************************************

很搞笑。。高招哦。

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
独孤求爱        2003/5/19 10:23:00
就是啊怎么用啊
只能显示头像出来怎么知道当前QQ是否在线呢
中国我最丑        2003/3/26 22:13:00
那怎么用呀
能不能请教一下呀
中国我最丑        2003/3/26 22:11:00
那怎么呀
能不能请教一下呀
silverfox        2003/3/26 19:22:00
求助:"ShowResult("+chr(34)
"ShowResult("+chr(34)是什么意思呀?
谁能告诉我?谢谢!
silverfox        2003/3/26 18:54:00
不太好玩
看到您的标题:不用编程,得到一个<font size=8>QQ</font>在线状态,我还以为可以查出隐身QQ的状态呢,结果有点失望。。
不过,从您的代码我也学到一点东西。谢谢您的文章!
love me        2003/2/14 19:07:00
狗缆子…………
xmxoxo        2003/2/5 3:11:00
请改一下排版
一行不要太长。
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2018 Yup Studio, all rights reserved.  
136.7188