判断ICQ是否在线的代码
发表于:2007-07-01来源:作者:点击数:
标签:
//判断I CQ 是否在线的代码 ? function get_status($uin) { $fp = fsockopen (wwp.i cq .com, 80, $errno, $errstr, 30); if(!$fp) { echo $errstr ($errno)br ; } else { fputs($fp, GET /scripts/online.dll?icq=$uinimg=5 HTTP/1.0 ); $do = @#yes@#; whi
//判断I
CQ是否在线的代码
<?
function get_status($uin)
{
$fp = fsockopen ("wwp.i
cq.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
原文转自:http://www.ltesting.net