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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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