---
title: "icqlib rev2"
type: "forum-thread"
url: "https://www.webforum.nu/amne/php/38276-icqlib-rev2"
topic: "PHP"
topic_url: "https://www.webforum.nu/amne/php"
author: "Lfe"
published: "2001-06-13T13:09:00.000Z"
updated: "2001-06-13T13:09:00.000Z"
replies: 0
views: 1249
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/php/38276-icqlib-rev2"
---

# icqlib rev2

## #1 — Lfe, 2001-06-13T13:09Z

det var några personer som kontaktade mig angående mitt icq script, lika bra jag lägger upp det här...

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>\<?
/\* a collection of ICQ services - code by Johan Bergström'2001 \[mt00jbe@student.bth.se\] \*/

function sendICQ($uin, $name, $email, $subject, $body)
/\* function for sending an pager message to a ICQ UIN
 \* @param:
 \* $uin = target UIN
 \* $name = sender's name
 \* $email = sender's email
 \* $subject = pager subject
 \* $body = pager content
 \*/

{
    $name = urlencode($name);
    $email = urlencode($email);
    $subject = urlencode($subject);
    $body = urlencode($body);

    $icqURL = "http://wwp.mirabilis.com/scripts/WWPMsg.dll?subject=$subject&to=$uin&from=$name&fromemail=$email&body=$body";

    if((fopen($icqURL , "r")))
    {
        return "the message was sent successfully";
    }

    else
    {
        return "an error occured.";
    }
    
    fclose($icqURL);
}

function checkICQStatus($uin, $type)
/\* gets the icq status for a ICQ UIN
 \* @param:
 \* $uin = target UIN
 \* $type = return typ, 1 = text, 2 = values &#0124; return val: \[-1 = error, 0 = offline, 1 = online, 2 = disabled\]
 \*/

{

    $arr = @file("http://wwp.icq.com/scripts/online.dll?icq=$uin&img=1");
    $len = strlen($arr\[1\]);
    
    if($type == 2)
    {
        $ret = -1;
    
        if ($len == 105) $ret = 1;
        if ($len == 18) $ret = 2;
        if ($len == 0)  $ret = 0;
    }
    
    else
    {
        $ret = "error";
        
        if ($len == 105)$ret = "online";
        if ($len == 18) $ret = "disabled";
        if ($len == 0)  $ret = "offline";
    }

    return $ret;
}

?\>

Permalänk: https://www.webforum.nu/p/38276

---

Tråden på webben: https://www.webforum.nu/amne/php/38276-icqlib-rev2