一个判断oicq是否在线的小程序

<?
// 呵呵，拿Alpha兄的那个icq版改的
function get_status($uin)
{  
    $fp = @fsockopen ("infocenter.tencent.com", 80, &$errno, &$errstr, 30);  
    if(!$fp)
    {  
        return '出错';  
    }
    else
    {
        fputs($fp, "GET /$uin/l/00/0/ HTTP/1.0\n\n");  
        $do = 'yes';  
        while(!feof($fp))
        {
            $line = fgets ($fp,128);
            $do = ($do == 'yes')?'yes':(eregi("^GIF89", $line))?'yes':'no';
            if($do == 'yes')
            {
                if(ereg("Online", $line))
                {
                    return '在线';  
                }
                elseif(ereg("Offline", $line))
                {  
                    return '没在线';  
                }
            }
            
        }
        fclose($fp);  
    }  
    return '未知';  
}
$uin='1697313'; //我自己的
echo get_status($uin);
?>   

原文转自：http://www.ltesting.net