getInternetIP() — Nur 14 Zeilen; crossplattform

[ts-soft]

> Geht es bei euch auch jetzt?
es geht, gibt als ergebnis aber 0.0.0.0 aus, egal ob unicode, ascii, 32 oder 64 bit

aäb cde fgh ijk lmn oöp qrsß tuü vwx yz AÄBC DEF GHI JKL MNO ÖPQ RST UÜV WXYZ ! "§

[kswb73]

Bei mir kommt die IP und auch die richige. Hab' Windows XP. Die Idee ist auf jeden Fall gut. Wenn ich mal ein Multiplayer Spiel programmiere werde ich's sicher einbauen.

[AND51]

@ TS-Soft:
Ich kann dich nur bitten, den Code Stück für Stück zu debuggen: Wird die Datei runtergeladen? Debug 1 hintersetzen. Wird die Datei gelesen? Debug 2 hintersetzen. Und so weiter.

Vielleicht kannst du mir dann ja genauer sagen, wo der Fehler bei dir liegt. Sitzt du vielleicht hinterm Proxy? Du weißt ja, PB kann keine einfachen Dinge wie Proxy-Connections. Traurig, aber wahr.

@ kswb73:
Vielen Dank für dein Feedback! Falls du den Code irgendwann mal benutzt, dann vergewisser dich, dass du eine eigene URL einsetzt, ich kann nicht garantieren, dass meine Seite für immer bestehen bleibt.

[ts-soft]

Irgendwie spinnt meine Firewall, statt mich zu fragen, läßt es pb einfach nicht durch
Ohne Firewall gehts

// edit
Bei PureBasicocmpilation0.exe hab ich wohl mal zurückweisen geklickt, kam bisher nur die 0er kompilation

[AND51]

Ah, okay
Ich krieg es manchmal auch nicht gebacken, alle PUREBASIC_COMPILATION*.EXE als Ausnahme zur Whitelist meiner Firewall hinzuzufügen...

// Edit
Du blockierst deine eigenen PB-Programme?

[ts-soft]

// Edit
Du blockierst deine eigenen PB-Programme?

Nein, nur die Codes aus dem PureBoard, die ich teste

[STARGÅTE]

also bei mir gehts inzwischen auch...

werde aber trotzdem weiterhin mein Code verwenden ^^

Code: Alles auswählen

InitNetwork()

Procedure.s InternetIP()
 Protected Event, Zeit, Buffer$ = Space(1024)
 Protected URL$ = "http://data.unionbytes.de/ip.php"
 Protected ConnectionID = OpenNetworkConnection(GetURLPart(URL$, #PB_URL_Site), 80) 
 If ConnectionID 
  SendNetworkString(ConnectionID, "GET "+URL$+" HTTP/1.0"+#LFCR$+#LFCR$) 
  Zeit = ElapsedMilliseconds()
  Repeat 
   Delay(1)
   Event = NetworkClientEvent(ConnectionID)
  Until Event Or ElapsedMilliseconds()-Zeit > 3000
  If Event = #PB_NetworkEvent_Data
   Size = ReceiveNetworkData(ConnectionID, @Buffer$, 1024) 
   ProcedureReturn Mid(Buffer$,FindString(Left(Buffer$, Size), #LFCR$, 1)+3)
  EndIf
 EndIf 
EndProcedure

Debug InternetIP()

wäre cool wenn ihr den auch mal testet, damit ich auch weiß ob es überall geht, wo wir achon mal beim testen sind ^^

[AND51]

STARGATE, kann es sein, dass du so'n bisschen noch an PB 3.30 hängst?
Dein Code funktioniert nur im ASCII-, nicht aber im Unicode-Modus.

[ts-soft]

@STARGÅTE

ㄯㄮ㈠〰传ോ䐊瑡㩥吠畨‬㠱匠灥㈠〰‸㐱㐺㨹㘲䜠呍਍敓癲牥›灁捡敨਍ⵘ潐敷敲ⵤ祂›䡐⽐⸴⸳ㄱ਍潃湮捥楴湯›汣獯൥䌊湯整瑮吭灹㩥琠硥⽴瑨汭਍਍㜷ㄮ㈳㈮㈰㈮㤳

[STARGÅTE]

>STARGATE, kann es sein, dass du so'n bisschen noch an PB 3.30 hängst?

ja ^^

>ts-soft

pech ^^

naja, bleibt es halt mein Code ...