CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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>\";
?>

Synes godt om

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 ;)

Synes godt om

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*

Synes godt om

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)
%>

Synes godt om

azs Nybegynder

27. juli 2001 - 01:59 #4

Det der kunne jeg selv lave! Og det virker jo ikk såå!

Synes godt om

jakobandersen Nybegynder

27. juli 2001 - 01:59 #5

Hov, ignorere Response.write Len(Output) den skal bare slettes.

Synes godt om

azs Nybegynder

27. juli 2001 - 02:02 #6

Hva vil Output være hvis man er offline eller disabled?

Synes godt om

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

Synes godt om

tdaugaard Nybegynder

27. juli 2001 - 02:04 #8

eflow:>

If noget Then ...

er fuldt ud gyldigt. Der mangler ingen End If\'s

Synes godt om

azs Nybegynder

27. juli 2001 - 02:04 #9

okay !

Synes godt om

jakobandersen Nybegynder

27. juli 2001 - 02:05 #10

tdaugard> Gælder dog kun hvis man holder sog på en linie (heldigvis)

Synes godt om

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 ..)

Synes godt om

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...

Synes godt om

tdaugaard Nybegynder

27. juli 2001 - 02:11 #13

*G* nemmerlig ...

Synes godt om

azs Nybegynder

27. juli 2001 - 02:12 #14

Det er så ik altid det virker med : !

Synes godt om

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....

Synes godt om

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\";
}
?>

Synes godt om

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>

Synes godt om

jakobandersen Nybegynder

28. juli 2001 - 12:25 #18

Hvordan kalder du den?

Synes godt om

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...

Synes godt om

jakobandersen Nybegynder

29. juli 2001 - 01:27 #20

Du skal jo kalde funktionen med en uin.

Synes godt om

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

Synes godt om

jakobandersen Nybegynder

29. juli 2001 - 02:37 #22

Prøv med:

print online_status(40599768);

Synes godt om

websted.net Nybegynder

29. juli 2001 - 03:04 #23

Sker stadig ikke noget

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Gyldendal A/S

Frontend-udvikler/arkitekt til digitale læremidler

Hemmersbach Denmark ApS

IT Fieldservice Tekniker med fokus på hardware

LB Forsikring

Salesforce udvikler

Arbejdernes Landsbank

Fullstack-udvikler med fokus på AI

Matas A/S

Technical Project Manager in Matas Group Digital

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling