Icq online script

Du kan finde et ASP script inde på www.activeserverpages.dk:

http://activedeveloper.dk/aspdigital/2001120701.asp

jeg har set den, men kan ikke få den til at virke:(

Den kræver vistnok MDAC 2.7 til XML delen.

www.microsoft.com/data

Har du installeret komponenten ???

<font size=1><font face="Tahoma"><font size=2><font face="Verdana"><?php

function icqstatus ($uin) {
    // 
    // 
    //

    $fh = fsockopen("web.icq.com", 80, $errno, $errstr, 30);
    if ($fh) {
        fputs($fh, "GET /whitepages/online?icq=".$uin."&img=1 HTTP/1.0\r\n\r\n");
        $out = fread($fh, 512);
        fclose ($fh);
        preg_match("/Location: (.*)\n/i", $out, $matches);
        $status = array(363 => 1, 382 => 0, 403 => 0);
        return $status[floor(eregi_replace("(/lib/image/0,,4|,00\.gif)", "", $matches[1]))];
    } else {
        return FALSE;
    }
}

if (icqstatus(108635660)) {
    print 'Jeg er Online nu';
} else {
    print 'Jeg er Offline nu';
}
print '<br>';

?>