自动检测QQ是否在线js脚本，每隔10秒钟检测一次，自定义时间。
以下是程序代码&!DOCTYPE html PUBLIC &-//W3C//DTD XHTML 1.0 Transitional//EN& &http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&&
&html xmlns=&http://www.w3.org/1999/xhtml&&
&meta http-equiv=&content-type& content=&text/charset=gb2312&&
&meta name=&keywords& content=&站长,网页特效,网页特效代码,js特效,js脚本,脚本,广告代码,zzjs,zzjs.net,www.zzjs.net,站长特效 网& /&
&meta name=&description& content=&www.zzjs.net,站长特效网，站长必备js特效及广告代码。大量高质量js特效，提供高质量广告代码下载,尽在站长特效网& /&
&title&网页特效 检测QQ是否在线js代码 站长特效网欢迎您。&/title&
&style type=&text/css& media=&screen&&
.www_zzjs_net { list-style: }
.www_zzjs_net li { float: margin-right: 10 }
.www_zzjs_net a { display: height: 34 width: 34 background: url('/img/QQStatus.gif') no- }
/* QQ不在线(默认)状态CSS */
.www_zzjs_net a.qq2 { background-position: -35px 0; }
.www_zzjs_net a.qq3 { background-position: -69px 0; }
.www_zzjs_net a.qq4 { background-position: -103px 0; }
/* QQ在线状态CSS */
.www_zzjs_net .online a.qq1 { background-position: 0 -34 }
.www_zzjs_net .online a.qq2 { background-position: -35px -34 }
.www_zzjs_net .online a.qq3 { background-position: -69px -34 }
.www_zzjs_net .online a.qq4 { background-position: -103px -35 }
/* QQ在线状态鼠标移入时CSS */
.www_zzjs_net .online a.qq1:hover { background-position: 0 }
.www_zzjs_net .online a.qq2:hover { background-position: -35 }
.www_zzjs_net .online a.qq3:hover { background-position: -69 }
.www_zzjs_net .online a.qq4:hover { background-position: -103 }
&a href=&http://www.zzjs.net/&&站长特效网&/a&,站长必备的高质量网页特效和广告代码。zzjs.net，站长js特效。&hr&
&!--欢迎来到站长特效网，我们网站收集大量高质量js特效，提供许多广告代码下载，网址：www.zzjs.net，,用.net打造靓站--&
&ul class=&www_zzjs_net& id=&www_zzjs_net&&
&li&&a href=&#& class=&qq1&&&/a&&/li&
&li&&a href=&#& class=&qq2&&&/a&&/li&
&li&&a href=&#& class=&qq3&&&/a&&/li&
&li&&a href=&#& class=&qq4&&&/a&&/li&
&script type=&text/javascript&&
//&![CDATA[
var online = [];
function www_zzjs_net(id, data){
if((this.id = this.get(id)) == null)
this.url = '/getonline?Type=1&';
this.header = document.getElementsByTagName('head');
this.items = this.id.childN
= this.items.
this.index = 0;
this.start();
}//欢 迎来到站长特效网，我们的网址是www.zzjs.net，很好记，zz站长，js就是js特效，本站收集大量高质量js代码，还有许多广告代码下载。
www_zzjs_net.prototype = {
get: function(id){return document.getElementById(id);},
start: function(){
if(this.index &= this.lens)return this.running=
this.running =
var script
= document.createElement('script');
script.type = 'text/javascript';
script.src
= this.url + this.data[this.index] +':&'+(+new Date());
this.header[0].appendChild(script);
script.onload = script.onreadystatechange = (function(script){
var _this =
return (function(){
if(script.readyState){
if(script.readyState.match(/loaded|complete/i)){
_this.show(script)
_this = script =
_this.show()
_this = script =
}).call(this, script);
show: function(s){
this.items[this.index].className = '';
this.items[this.index].title = '我不在线，有事请留言。';
if(online[0] == 1){
this.items[this.index].className = 'online';
this.items[this.index].title = '我在线，有事您说话。';
this.items[this.index].firstChild.href = 'tencent://message/?uin='+this.data[this.index++]+'&Site=站长特效网&Menu=yes';
this.start();
reload: function(){
if(this.running)
this.index = 0;
this.start();
}//欢迎来到站长特效网，我们的网址是www.zzjs.net，很好记，zz站长，js就是js特效，本站收集大量高质量js代码，还有许多广告代码下载。
var QQOnline = new www_zzjs_net('www_zzjs_net', [591041]);
setInterval(function(){//每隔10秒检测一次在线状态
QQOnline.reload();
}, 10000);
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
( 11:20:13)
( 10:26:22)
( 10:19:39)
( 09:45:57)
( 09:45:12)
( 15:23:20)
( 15:41:43)
( 11:06:58)
相关排行总榜仲夏夜--js特效--检测QQ在线状况
****************
**********
***********
************
*************
**************
***************
****************
检测QQ在线状况
效果显示区
脚本说明：
把如下代码加入区域中
&&script language=vbscript&
Function GetURL(url)
Set Retrieval = CreateObject(&Microsoft.XMLHTTP&)
With Retrieval
.Open &GET&, url, False, &&, &&
GetURL = .ResponseText
Set Retrieval = Nothing
End Function
&script language=vbscript&
Dim T,Start,Length,PicURL
T=GetURL(&/cgi-bin/friend/oicq_find?oicq_no=5073937&)
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=/cgi-bin/friend/user_show_info?ln= target=_blank title=QQ:&&img src=&&PicURL&& width=16 height=16 border=0&&/a&&
&script language=vbscript&
Dim T,Start,Length,PicURL
T=GetURL(&/cgi-bin/friend/user_show_info?ln=&)
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=/cgi-bin/friend/user_show_info?ln=5073937 target=_blank title=QQ:5073937&&img src=&&PicURL&& width=32 height=32 border=0&&/a&&网站做QQ联合登陆js获取qq昵称的疑问
[问题点数：20分，结帖人wangyi_feiyang]
网站做QQ联合登陆js获取qq昵称的疑问
[问题点数：20分，结帖人wangyi_feiyang]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关推荐：
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。}