判断ICQ是否在线的代码

领测软件测试网 //判断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   

文章来源于领测软件测试网 https://www.ltesting.net/