Avatar billede [tpl]foxy Nybegynder
15. august 2002 - 09:32 Der er 4 kommentarer og
1 løsning

ICQ Status..

Hey..
jeg har fundet dette script, som dog er i php.

<?
$uin="96386644";
$arr = @file("http://wwp.icq.com/scripts/online.dll?icq=$uin&img=1");
$len = strlen($arr[0]);
if ($len == "") echo "Min ICQ status: <span style='color:707070'>Lokal server/span>";
if ($len == 69) echo "Min ICQ status: <span style='color:009000'>Online</span>";
if ($len == 236) echo "Min ICQ status: <span style='color:b00000'>Offline</span>";
if ($len == 421) echo "Min ICQ status: <span style='color:000080'>Funktion sat ud af spil</span>";
?>

Nogen der kan hjælpe mig med hvordan man laver det i ASP ?

På forhånd mange tak.
DuNAi..
Avatar billede Slettet bruger
15. august 2002 - 10:21 #1
Det kan du gøre sådan her:

<%
Function ICQStatus(UIN)
    If UIN >= 10000 And UIN =< 2147483646 Then
        Dim XML, bytLength
        Set XML = Server.CreateObject("Microsoft.XMLHTTP")
        XML.Open "GET", "http://web.icq.com/whitepages/online?icq="& UIN &"&img=1", False
        XML.Send
        bytLength = LenB(XML.ResponseBody)
        Set XML = Nothing
        Select Case bytLength
        Case 446
            ICQStatus = "<font color=Green><b>Online</b></font>"
        Case 475
            ICQStatus = "<font color=""#DD1429""><b>Offline</b></font>"
        Case 1278
            ICQStatus = "<font color=Blue><b>Disabled</b></font>"
        Case Else
            ICQStatus = "<font color=Black><b>Unknown</b></font>"
        End Select
    Else
        ICQStatus = "Ugyldigt ICQ-nummer"
    End If
End Function
%>

Du kan så kalde funktionen sådan her:

Response.Write(ICQStatus("96386644"))

Der er dog et problem, og det er at ICQ's online-indikatorer ikke virker pt., så derfor vil funktionen sikkert heller ikke virke. Vi må bare håbe at de får styr på det igen  :)

/Martin Sommer
www.magik.dk
Avatar billede andersj Nybegynder
15. august 2002 - 13:21 #2
Html:

<a href="http://wwp.mirabilis.com/scripts/search.dll?to=105667533"><img lowsrc="http://mfp.eej.dk/privat/icqloading.gif" src="http://wwp.icq.com/scripts/online.dll?icq=105667533&img=5" width="18" height="18" border="0" align="absmiddle" alt="ICQ #105667533 - Click to add to your icq list"></a>
Avatar billede cyberkox Nybegynder
15. august 2002 - 17:22 #3
Lytter med...
Avatar billede Slettet bruger
16. september 2002 - 19:07 #4
Har du fundet frem til en løsning?
Avatar billede riversen Nybegynder
21. april 2003 - 08:33 #5
lukketid!!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester