IP feststellen

winduff · Beitrag von **winduff** » 09.11.2006 21:30

Kaeru Gaman hat geschrieben:
winduff hat geschrieben:(und bei sehr intimen tests schneller)
....klingt irgendwie nach G-Punkt-Suche...

...klingt nach bullenkagga...

Damit habe ich gemeint dass - im gegensatz zum anderen script - kein HTML durchsucht / wenig runtergeladen werden muss.

rolaf · Beitrag von **rolaf** » 09.11.2006 21:30

winduff hat geschrieben:dann wird es wohl zu mir umziehen müssen

Aber nicht das Du dich beim Umzug an den 34 Bytes verhebst.

Ich trag es Dir schonmal bis hierher.

Code: Alles auswählen

<? echo $_SERVER['REMOTE_ADDR'] ?>

Uff

ts-soft · Beitrag von **ts-soft** » 09.11.2006 21:35

@Falo
Wie biste auf meinen Server gekommen

winduff · Beitrag von **winduff** » 09.11.2006 21:36

> Ich trag es Dir schonmal bis hierher.

Puhhh soviel arbeit. Ich danke dir

http://www.eimex.de/ip.php

Code: Alles auswählen

Procedure.s GetMyInternetIP() 
  ; TempPfad ermitteln 
  Buffer.s = Space(#MAX_PATH) 
  GetTempPath_(#MAX_PATH, @Buffer) 
  ; IP-File downloaden 
  Buffer + "ip.txt" 
  If URLDownloadToFile_(0, @"http://www.eimex.de/ip.php", @Buffer, 0, 0) = 0 
    ; IP-File einlesen 
    File = OpenFile(#PB_Any, Buffer) 
    If File 
      IpString.s = ReadString(File)
      CloseFile(File) 
      DeleteFile(Buffer) 
    EndIf 
  EndIf 
  If IpString > "" 
    ProcedureReturn IpString
  EndIf 
  ProcedureReturn "0.0.0.0" 
EndProcedure 

Debug  GetMyInternetIP()

rolaf · Beitrag von **rolaf** » 09.11.2006 21:39

ts-soft hat geschrieben:@Falo
Wie biste auf meinen Server gekommen

Mit einem/dem Dietrich! Der schlimme Finger hat mir den Zugang verschafft!

Bin ich jetzt verhaftet?

ts-soft · Beitrag von **ts-soft** » 09.11.2006 21:40

Code: Alles auswählen

 ; TempPfad ermitteln
  Buffer.s = Space(#MAX_PATH)
  GetTempPath_(#MAX_PATH, @Buffer)
  ; IP-File downloaden
  Buffer + "ip.txt"

Ich nutze lieber PB 4

Code: Alles auswählen

Buffer.s = GetTemporaryDirectory() + "ip.txt"

ts-soft · Beitrag von **ts-soft** » 09.11.2006 21:42

>> Bin ich jetzt verhaftet?

Erst mal sehen, ob ich den Dietrich erwisch. wie heißt der weiter?

rolaf · Beitrag von **rolaf** » 09.11.2006 21:47

ts-soft hat geschrieben:>> Bin ich jetzt verhaftet?
Erst mal sehen, ob ich den Dietrich erwisch. wie heißt der weiter?

Dietrich Drahtbieger-Böse

winduff · Beitrag von **winduff** » 09.11.2006 21:48

> Ich nutze lieber PB 4

Ich auch hatte deinen Code geklaut

ts-soft · Beitrag von **ts-soft** » 09.11.2006 21:51

winduff hat geschrieben:> Ich nutze lieber PB 4

Ich auch hatte deinen Code geklaut

Das wahr ein Gemeinschaftsprojekt. Wenn man sonen ollen Code klaut, passt
man es gleich an die aktuelle PB-Version an, damit es auch meinen
estethischen Ansprüchen genügt