Seite 2 von 4
Verfasst: 18.09.2008 16:16
von 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 ! "§
Verfasst: 18.09.2008 16:20
von 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.
Verfasst: 18.09.2008 16:27
von 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.
Verfasst: 18.09.2008 16:33
von 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
Verfasst: 18.09.2008 16:38
von 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?
Verfasst: 18.09.2008 16:44
von ts-soft
AND51 hat geschrieben:// Edit
Du blockierst deine eigenen PB-Programme?
Nein, nur die Codes aus dem PureBoard, die ich teste
Verfasst: 18.09.2008 16:47
von 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 ^^
Verfasst: 18.09.2008 16:50
von 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.
Verfasst: 18.09.2008 16:50
von ts-soft
@STARGÅTE
Debugger Ausgabe hat geschrieben:ㄯㄮ㈠〰传ോ䐊瑡㩥吠畨㠱匠灥㈠〰‸㐱㐺㨹㘲䜠呍敓癲牥›灁捡敨ⵘ潐敷敲ⵤ祂›䡐⽐⸴⸳ㄱ潃湮捥楴湯›汣獯䌊湯整瑮吭灹㩥琠硥⽴瑨汭㜷ㄮ㈳㈮㈰㈮㤳
Verfasst: 18.09.2008 16:53
von 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 ...