判斷ICQ是否在線的代碼

//判斷ICQ是否在線的代碼

function get_status($uin)
{
$fp = fsockopen ("wwp.icq.com", 80, &$errno, &$errstr, 30);
if(!$fp)
{
echo "$errstr ($errno)
";
}
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
?>