CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede azs Nybegynder
27. juli 2001 - 01:47 Der er 22 kommentarer og
1 løsning

ICQ dims!

Oversæt dette til ASP!

<?
$uin = \"40599768\"; // Dit ICQ nummer skal staa her

$arr = file(\"http://online.mirabilis.com/scripts/online.dll?icq=$uin&img=1\");
$len = strlen($arr[1]);
if ($len == 1) { $icq = \"Disabled\"; }
if ($len == 83) { $icq = \"Offline\"; }
if ($len == 96) { $icq = \"Online\"; }
echo \"ICQ Status: <font color=\\\"#FF0000\\\">\".$icq.\"</font>\";
?>
Avatar billede prof2 Nybegynder
27. juli 2001 - 01:53 #1
<%
uin = \"40599768\"

arr = file(\"http://online.mirabilis.com/scripts/online.dll?icq=\" & uin & \"&img=1\")
len1 = len(arr)

if len = 1 then icq = \"Disabled\"
if len = 83 then icq = \"Offline\"
if len = 1 then icq = \"Online\"

response.write(\"ICQ Status: <font color=\'#FF0000\'>\" & icq & \"</font>\")


Problemet er at der vist ikke er en kommando i ASP der hedder file. Men noget andet kan måske du. Resten er oversat ;)
Avatar billede eflow Nybegynder
27. juli 2001 - 01:57 #2
prof>> prøv med et par end if...det skal der til i ASP før det virker *GG*
Avatar billede jakobandersen Nybegynder
27. juli 2001 - 01:59 #3
Jeg gider ikke lige lave den vilde ICQ ting(Går i seng nu) så her er en kraftigt reduceret udgave:

<%
Function GetStatus(uin)
  set Socket = server.CreateObject(\"Socket.TCP\")
  socket.Host = \"online.mirabilis.com:80\"

  Socket.TimeOut = 8000
  Socket.Open

  Socket.SendLine(\"GET /scripts/online.dll?icq=\" & uin & \"&img=1  HTTP/1.0\" & Chr(13) & Chr(10) & \"Host: online.mirabilis.com:80\" & Chr(13) & Chr(10))

  Socket.WaitForDisconnect()

    Output = Socket.Buffer

Response.Write Len(Output)

If Len(Output) = 489 Then
    GetStatus = \"Online\"
Else
    getStatus = \"Andet\"
End If

  Socket.Close()
End Function

Response.write GetStatus(40599768)
%>
Avatar billede azs Nybegynder
27. juli 2001 - 01:59 #4
Det der kunne jeg selv lave! Og det virker jo ikk såå!
Avatar billede jakobandersen Nybegynder
27. juli 2001 - 01:59 #5
Hov, ignorere Response.write Len(Output) den skal bare slettes.
Avatar billede azs Nybegynder
27. juli 2001 - 02:02 #6
Hva vil Output være hvis man er offline eller disabled?
Avatar billede jakobandersen Nybegynder
27. juli 2001 - 02:03 #7
Ved det ikke lige jeg gad ikke lige til at lege med noget BinarySjov så jeg tog bare længden af headeren. Mener den er ca 1021
Avatar billede tdaugaard Nybegynder
27. juli 2001 - 02:04 #8
eflow:>

If noget Then ...

er fuldt ud gyldigt. Der mangler ingen End If\'s
Avatar billede azs Nybegynder
27. juli 2001 - 02:04 #9
okay !
Avatar billede jakobandersen Nybegynder
27. juli 2001 - 02:05 #10
tdaugard> Gælder dog kun hvis man holder sog på en linie (heldigvis)
Avatar billede tdaugaard Nybegynder
27. juli 2001 - 02:07 #11
moonduck:> yeps :-)

Men man kan jo altid bruge : til at lave flere kommandoer på een linie (info til de andre ..)
Avatar billede eflow Nybegynder
27. juli 2001 - 02:10 #12
ooh...damn..man lære nyt hver dag...så holder jeg mig sq bare på en linje...så slipper jeg for at skrive det ekstra...
Avatar billede tdaugaard Nybegynder
27. juli 2001 - 02:11 #13
*G* nemmerlig ...
Avatar billede azs Nybegynder
27. juli 2001 - 02:12 #14
Det er så ik altid det virker med : !
Avatar billede websted.net Nybegynder
27. juli 2001 - 02:30 #15
Den PHP kode, som er i starten, som azs har skrevet...
Den kan jeg ikke få til at virke....
Avatar billede azs Nybegynder
27. juli 2001 - 15:33 #16
websted.net -> Her er en anden PHP kode som skulle gøre det samme !

<?
function online_status($uin) {
    $arr = file( \"http://online.mirabilis.com/scripts/online.dll?icq=$uin&img=1\");
    $len = strlen($arr[1]);
    if ($len == 96) return  \"Online\";
    if ($len == 83) return  \"Offline\";
    if ($len == 1) return  \"Disabled\";
}
?>
Avatar billede websted.net Nybegynder
28. juli 2001 - 02:53 #17
Denne kode virker stadig ikke:

<html>
<?

function online_status($uin) {
    $arr = file(\"http://online.mirabilis.com/scripts/online.dll?icq=49934163&img=5\");
    $len = strlen($arr[1]);
    if ($len == 96) return  \"Online\";
    if ($len == 83) return  \"Offline\";
    if ($len == 1) return  \"Disabled\";
}
?>
</html>
Avatar billede jakobandersen Nybegynder
28. juli 2001 - 12:25 #18
Hvordan kalder du den?
Avatar billede websted.net Nybegynder
28. juli 2001 - 22:07 #19
Hvordan mener du?
Jeg har den bare som icq.php
og med den kode, som er skrevet i...
Avatar billede jakobandersen Nybegynder
29. juli 2001 - 01:27 #20
Du skal jo kalde funktionen med en uin.
Avatar billede websted.net Nybegynder
29. juli 2001 - 02:35 #21
Ja, jeg har også prøvet med:

<html>
<?
$uin = \"40599768\";
function online_status($uin) {
    $arr = file(\"http://online.mirabilis.com/scripts/online.dll?icq=$uin&img=5\");
    $len = strlen($arr[1]);
    if ($len == 96) return  \"Online\";
    if ($len == 83) return  \"Offline\";
    if ($len == 1) return  \"Disabled\";
}
?>
</html>

Men det virker heller ikke
Avatar billede jakobandersen Nybegynder
29. juli 2001 - 02:37 #22
Prøv med:

print online_status(40599768);
Avatar billede websted.net Nybegynder
29. juli 2001 - 03:04 #23
Sker stadig ikke noget
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 0 07/11/202415:34 -
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
39 min siden Korrupt CF kort Af Mozcan i Foto & video
I går 21:34 install.esd og boot.wim Af sjass i Windows
I går 18:52 Nyt tekstdokument er forsvundet. Af valby i Windows
I går 16:48 "Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
25/1219:53 CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder
Læs mere »
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan
CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Cyberangreb bliver mere kostbare: Er du forberedt?
Læs mere »
Sikkerhed uden grænser: Cisco Hypershield
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »