久久首页
免费软件
网络时尚
网络学堂
专题讨论
网络资源
网络游戏
网络文档
网络产品
网站导航: 首页 > 网页开发 > PHP 学堂讨论 | 推荐文章

判断ICQ是否在线的代码


2003-04-10  
 
<?  
function get_status($uin)
{  
    $fp = fsockopen ("wwp.icq.com", 80, &$errno, &$errstr, 30);  
    if(!$fp)
    {  
        echo "$errstr ($errno)<br>\n";  
    }
    else
    {
        fputs($fp, "GET /scripts/online.dll?icq=$uin&img=5 HTTP/1.0\n\n");  
        $do = 'yes';  
        while(!feof($fp))
        {
            $line = fgets ($fp,128);
            $do = ($do == 'yes')?'yes':(eregi("^GIF89", $line))?'yes':'no';
            //echo $line;
            
            if($do == 'yes')
            {
                if(ereg("@", $line))
                {
                    return 'online';  
                }
                elseif(ereg("醱", $line))
                {  
                    return 'offline';  
                }
                elseif(ereg("S", $line))
                {
                    return 'disabled';  
                }
            }
            
        }
        fclose($fp);  
    }  
    return 'unknown!';  
}


$uin="72485936";  // sonymusic 的ICQ,呵呵。
echo get_status($uin);
// offline
// HTTP/1.0 200 OK Content-type: image/gif GIF89a(幵觮R瑴螗#%醱` ?0? 靦Wb缒unknown
// online
// HTTP/1.0 200 OK Content-type: image/gif GIF89a(幵觮R 瑴螗#%?@ ?0?U靦WB鐒unknown
?>  
 
发表评论 推荐文章 关闭窗口
 相关内容
- WHOIS类的修改版 2003-04-10
- 解码 mime 的代码 2003-04-10
- 一个好用的UBB类 2003-04-10
- 在GD中输出汉字的函数的改进 2003-04-10
- PHP常用技巧四则 2003-04-10
- 通过PHP连接MYSQL的两种方法 2003-04-10
- 用PHP打造无数据库的留言本 2003-04-10
- 用PHP实现文件上传二法 2004-05-24
- PHP应用技巧二则 2004-05-25
 
 学堂分类
网络知识操作系统
网络应用网络服务
网页开发网络编程
数据存储网络设备
 文章搜索
 
网站简介 | 广告服务 | 编程支持 | 设计服务 | 诚邀合作 | 访客留言
Copyright © 1999-2004 99NET. All Rights Reserved
版权所有 久久网络工作室
Email:webmaster@99net.net