判断oicq是否在线的php小程序

<?
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
function get_status($uin)
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
$fp = @fsockopen ("infocenter.tencent.com", 80, &$errno, &$errstr, 30);
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
if(!$fp)
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
return '出错';
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
else
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
fputs($fp, "GET /$uin/l/00/0/ HTTP/1.0 ");
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
$do = 'yes';
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
while(!feof($fp))
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
$line = fgets ($fp,128);
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
$do = ($do == 'yes')?'yes':(eregi("^GIF89", $line))?'yes':'no';
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
if($do == 'yes')
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
if(ereg("Online", $line))
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
return '在线';
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
elseif(ereg("Offline", $line))
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
{
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
return '没在线';
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9

中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
fclose($fp);
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
return '未知';
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
}
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
$uin='1697313'; //我自己的
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
echo get_status($uin);
中国IT动力YRwfoa13q6z0tvZK4FAz7P6G9
?>
php爱好者站 http://www.phpfans.net 文章|教程|下载|源码|论坛.