Internet IP???

Übersicht

BlitzBasic

Allgemein

	Dante Betreff: Internet IP???	So, Nov 28, 2004 11:58 Antworten mit Zitat
Hallo^^ ich hab ein prob mit der Internet ip, wie bekomme ich es hin,dass er die ip aus dieser php datei liest?? http://badrat.ba.funpic.de/ip.php Php-code:Code: [AUSKLAPPEN] [EINKLAPPEN] <?php echo $_SERVER['REMOTE_ADDR']; ?> Bitte helft mir cya

Dante

Betreff: Internet IP???

So, Nov 28, 2004 11:58
Antworten mit Zitat

Hallo^^

ich hab ein prob mit der Internet ip,
wie bekomme ich es hin,dass er die ip aus dieser php datei liest??
http://badrat.ba.funpic.de/ip.php

Php-code:Code: [AUSKLAPPEN]

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

Bitte helft mir Wink

cya

	Hubsi	So, Nov 28, 2004 12:08 Antworten mit Zitat
Kuck Dir mal Iscore an (von bruZard): http://www.makegame.de/downloads/iscore.zipDa kannst Du dir abkucken wie man mit einem Internetserver kommuniziert.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Nov 28, 2004 12:08
Antworten mit Zitat

Kuck Dir mal Iscore an (von bruZard): http://www.makegame.de/downloads/iscore.zipDa kannst Du dir abkucken wie man mit einem Internetserver kommuniziert.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Dante	So, Nov 28, 2004 12:20 Antworten mit Zitat
naja,erstmal danke für die antwort^^ Aber ich versteh das nicht ganz !! Gibt es da nix einfacheres??

Dante

So, Nov 28, 2004 12:20
Antworten mit Zitat

naja,erstmal danke für die antwort^^

Aber ich versteh das nicht ganz Embarassed

!!

Gibt es da nix einfacheres??

	Hubsi	So, Nov 28, 2004 12:52 Antworten mit Zitat
Ich kenn zumindest nix einfacheres Ich hab das jetzt mal zerlegt und versucht zum Server zu verbinden, bekomme aber stets ein 400 Bad Request zurück:Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 ip$=MyIp$("http://www.badrat.ba.funpic.de","ip.php",80) If ip$<>"false" Print "Deine IP: "+ip$ Else Print "Verbindung fehlgeschlagen!" EndIf Print Print "Viel Spaß damit :D" WaitKey() End Function MyIp$(url$,script$,par$,port) is_online=OpenTCPStream(url$,port) If is_online req$=script$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" ; Daten empfangen Repeat ; Jetzt wird der Header überlesen trash$=Trim(ReadLine(is_online)) Print trash$ ; Ausgeben des Headers Until Left(trash$,7)="[BEGIN]" Or Eof(is_online) ; IP lesen ip$=Trim(ReadLine(is_online)) CloseTCPStream is_online Return ip$ Else Return "false" EndIf End Function Vielleicht kann sich das einer der Netzwerkexperten hier (oder bruZard selbst vielleicht ) mal ansehen.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Nov 28, 2004 12:52
Antworten mit Zitat

Ich kenn zumindest nix einfacheres Very Happy

Ich hab das jetzt mal zerlegt und versucht zum Server zu verbinden, bekomme aber stets ein 400 Bad Request zurück:Code: [AUSKLAPPEN]

Graphics 640,480,16,2

ip$=MyIp$("http://www.badrat.ba.funpic.de","ip.php",80)
If ip$<>"false"
Print "Deine IP: "+ip$
Else
Print "Verbindung fehlgeschlagen!"
EndIf
Print
Print "Viel Spaß damit :D"
WaitKey()
End

Function MyIp$(url$,script$,par$,port)
is_online=OpenTCPStream(url$,port)
If is_online
   req$=script$
   ; Request an das Serverscript schicken
   WriteLine is_online,"GET /"+req$+" HTTP/1.1"
   WriteLine is_online,"Host: "+url$
   WriteLine is_online,"User-Agent: score"
   WriteLine is_online,"Accept: */*"
   WriteLine is_online,""
   ; Daten empfangen
   Repeat
      ; Jetzt wird der Header überlesen
      trash$=Trim(ReadLine(is_online))
      Print trash$ ; Ausgeben des Headers
   Until Left(trash$,7)="[BEGIN]" Or Eof(is_online)
   ; IP lesen
   ip$=Trim(ReadLine(is_online))
   CloseTCPStream is_online
   Return ip$
Else
   Return "false"
EndIf
End Function

Vielleicht kann sich das einer der Netzwerkexperten hier (oder bruZard selbst vielleicht Wink

) mal ansehen.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Dante	So, Nov 28, 2004 13:13 Antworten mit Zitat
ok^^danke nochmal. Aber wenn ich die BB gestratet hab,kommt dann son kram wie serer:apache usw.und dann kommt deine ip: und mehr nicht . Also Ip wird leider nicht angezeigt^^ [Edit]http://bad-rat.dyndns.org/screen.gif[/Edit] Aber trotzdem danke

Dante

So, Nov 28, 2004 13:13
Antworten mit Zitat

ok^^danke nochmal.

Aber wenn ich die BB gestratet hab,kommt dann son kram wie serer:apache usw.und dann kommt deine ip:
und mehr nicht Crying or Very sad

.

Also Ip wird leider nicht angezeigt^^
[Edit]http://bad-rat.dyndns.org/screen.gif[/Edit]

Aber trotzdem danke

	Hubsi	So, Nov 28, 2004 13:47 Antworten mit Zitat
Ja, ich weiß. Darum wärs schön wenn sich das einer der Netzwerkexperten hier ankucken würde. Mit Blitz-Serverkommunikation hab ich kaum Erfahrung. Das Kauderwelsch bekommst Du weg, wenn Du die Zeile "Print trash$ ; Ausgeben des Headers" einfach rauslöscht. Hab mir das nur zwecks Fehlermeldungen ausgeben lassen
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Nov 28, 2004 13:47
Antworten mit Zitat

Ja, ich weiß. Darum wärs schön wenn sich das einer der Netzwerkexperten hier ankucken würde. Mit Blitz-Serverkommunikation hab ich kaum Erfahrung. Das Kauderwelsch bekommst Du weg, wenn Du die Zeile "Print trash$ ; Ausgeben des Headers" einfach rauslöscht. Hab mir das nur zwecks Fehlermeldungen ausgeben lassen Wink

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	noir	So, Nov 28, 2004 13:52 Antworten mit Zitat
hi, eigentlich nur ein kleiner Fehler: lass das http://www. weg!!!!!!!!!!!!! bei funpic fehlt das www. sowiso weg!! und bei dem server request: WriteLine is_online,"GET /"+req$+" HTTP/1.1" <- hier darf nicht noch ein http stehn!!!!!!! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,16,2 ip$=MyIp$("badrat.ba.funpic.de","ip.php",80) Print "Deine IP: "+ip$ WaitKey() End Function MyIp$(url$,script$,port) is_online=OpenTCPStream(url$,port) If is_online req$=script$ ; Request an das Serverscript schicken WriteLine is_online,"GET /"+req$+" HTTP/1.1" WriteLine is_online,"Host: "+url$ WriteLine is_online,"User-Agent: score" WriteLine is_online,"Accept: /" WriteLine is_online,"" For i = 1 To 8 trash$=Trim(ReadLine(is_online)) Next ; IP lesen ip$=Trim(ReadLine(is_online)) CloseTCPStream is_online Return ip$ Else Print "Verbindung fehlgeschlagen!" EndIf End Function hab den code noch ein bisschen umgestellt die zeiler mit den for...next hab ich nur eingebaut, da ich nicht weiß ob du in deinem php script auch "Beginn" ausgibst, sonst ist die until trash = "Beginn" natürlich besser. und du musst bei der function: par$ löschen, da du ja kein parameter übergeben willst ich hoff jetzt klappts

noir

So, Nov 28, 2004 13:52
Antworten mit Zitat

hi,

eigentlich nur ein kleiner Fehler:

lass das http://www. weg!!!!!!!!!!!!!

bei funpic fehlt das www. sowiso weg!! und bei dem server request:

WriteLine is_online,"GET /"+req$+" HTTP/1.1" <- hier darf nicht noch ein http stehn!!!!!!!

Code: [AUSKLAPPEN]

Graphics 640,480,16,2

ip$=MyIp$("badrat.ba.funpic.de","ip.php",80)

Print "Deine IP: "+ip$

WaitKey()
End

Function MyIp$(url$,script$,port)
is_online=OpenTCPStream(url$,port)
If is_online
req$=script$
; Request an das Serverscript schicken
WriteLine is_online,"GET /"+req$+" HTTP/1.1"
WriteLine is_online,"Host: "+url$
WriteLine is_online,"User-Agent: score"
WriteLine is_online,"Accept: */*"
WriteLine is_online,""

   For i = 1 To 8
   trash$=Trim(ReadLine(is_online))
   Next

; IP lesen
ip$=Trim(ReadLine(is_online))
CloseTCPStream is_online
Return ip$
Else
Print "Verbindung fehlgeschlagen!"
EndIf
End Function

hab den code noch ein bisschen umgestellt

die zeiler mit den for...next hab ich nur eingebaut, da ich nicht weiß ob du in deinem php script auch "Beginn" ausgibst, sonst ist die until trash = "Beginn" natürlich besser.

und du musst bei der function: par$ löschen, da du ja kein parameter übergeben willst

ich hoff jetzt klappts

Zuletzt bearbeitet von noir am So, Nov 28, 2004 13:53, insgesamt einmal bearbeitet

	Dante	So, Nov 28, 2004 13:53 Antworten mit Zitat
naja,ok,dann hoff ich einfach einer der "Experten" guckt sich das mal an^^ das mit print trash$ ist mir schon klar^^ Aber danke für deine hilfe

Dante

So, Nov 28, 2004 13:53
Antworten mit Zitat

naja,ok,dann hoff ich einfach einer der "Experten" guckt sich das mal an^^
das mit print trash$ ist mir schon klar^^

Aber danke für deine hilfe Wink

	noir	So, Nov 28, 2004 14:04 Antworten mit Zitat
tja da haben wir woll gleichzeitig geschrieben

noir

So, Nov 28, 2004 14:04
Antworten mit Zitat

tja da haben wir woll gleichzeitig geschrieben Wink

	Dante	So, Nov 28, 2004 14:14 Antworten mit Zitat
jo stimmt^^ ok vielen dank,klappt jetzt alles^^ schönen tag noch^^(auch an Hubsi ) cya

Dante

So, Nov 28, 2004 14:14
Antworten mit Zitat

jo stimmt^^

ok vielen dank,klappt jetzt alles^^

schönen tag noch^^(auch an Hubsi Wink

)

cya

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Internet IP???

Betreff: Internet IP???