判断ICQ是否在线的代码

  •   2009-08-01/08:16
  • //判断ICQ是否在线的代码  

    <?   
    function get_status($uin)
    {   
        $fp = fsockopen ("wwp.icq.com", 80, &$errno, &$errstr, 30);   
        if(!$fp)
        {   
            echo "$errstr ($errno)<br> ";   
        }
        else
        {
            fputs($fp, "GET /scripts/online.dll?icq=$uin&img=5 HTTP/1.0 ");   
            $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
    ?>   

    //作者/来源:Alpha.Z   


    评论 {{userinfo.comments}}

    {{money}}

    {{question.question}}

    A {{question.A}}
    B {{question.B}}
    C {{question.C}}
    D {{question.D}}
    提交

    驱动号 更多