Online-IP herausfinden

Übersicht

BlitzBasic

Codearchiv

	BadDeath Betreff: Online-IP herausfinden	So, Jun 15, 2008 17:03 Antworten mit Zitat
So, ein kleiner Code von mir, ein großer Nutzen für euch - hoffentlich xD Dieser kleine Code lässt euch eure aktuelle OnlineIP herausfinden, wie sie z.B. bei Mehrspielerpielen nützlich sein kann. Code: [AUSKLAPPEN] [EINKLAPPEN] Print "Die eigene IP ist " + GetIP$() WaitKey Function GetIP$() TCP= OpenTCPStream("http://ipnr.rehbein.net", 80) If Not TCP Then End WriteLine TCP, "GET http://ipnr.rehbein.net/" WriteLine TCP, Chr(10) While Not Eof (TCP) In$ = ReadLine$(TCP) Wend In$ = Right$(In$, Len(In$) - Instr(In$," ")) In$ = Right$(In$, Len(In$) - Instr(In$," ")) In$ = Left$ (In$, Instr(In$," ")-1) CloseTCPStream TCP Return IN$ End Function Ich musste über eine externe Seite gehen, da mein PHP-Skript mir immer was anderes zurückgab, nur nicht meine richtige IP. Der Aufruf über Mozilla geht aber.... Hier der PHP-Code, vllt geht der bei einem anderen: Code: [AUSKLAPPEN] [EINKLAPPEN] <?php echo $_SERVER['REMOTE_ADDR']; ?>

BadDeath

Betreff: Online-IP herausfinden

So, Jun 15, 2008 17:03
Antworten mit Zitat

So, ein kleiner Code von mir, ein großer Nutzen für euch - hoffentlich xD

Dieser kleine Code lässt euch eure aktuelle OnlineIP herausfinden, wie sie z.B. bei Mehrspielerpielen nützlich sein kann.

Code: [AUSKLAPPEN]

Print "Die eigene IP ist " + GetIP$()
WaitKey

Function GetIP$()
TCP= OpenTCPStream("http://ipnr.rehbein.net", 80)
   If Not TCP Then End

   WriteLine TCP, "GET http://ipnr.rehbein.net/"
   WriteLine TCP, Chr(10)

   While Not Eof (TCP)
      In$ = ReadLine$(TCP)
   Wend

   In$ = Right$(In$, Len(In$) - Instr(In$," "))
   In$ = Right$(In$, Len(In$) - Instr(In$," "))
   In$ = Left$ (In$, Instr(In$," ")-1)

CloseTCPStream TCP
Return IN$
End Function

Ich musste über eine externe Seite gehen, da mein PHP-Skript mir immer was anderes zurückgab, nur nicht meine richtige IP. Der Aufruf über Mozilla geht aber....

Hier der PHP-Code, vllt geht der bei einem anderen:

Code: [AUSKLAPPEN]

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

Zuletzt bearbeitet von BadDeath am So, Jun 15, 2008 19:34, insgesamt einmal bearbeitet

	Xaymar ehemals "Cgamer"	So, Jun 15, 2008 19:01 Antworten mit Zitat
Wenn ich mich nicht irre gibst doch auch ne möglichkeit ohne PHP-Script oder? Code: [AUSKLAPPEN] [EINKLAPPEN] count_ips = CountHostIPs("") For i = 1 To count_ips Print "IP : "+" "+ DottedIP$( HostIP(i) ) Next ich weiß bloß nicht mehr was ich bei CountHostIPs() angeben musste. Trotzdem ne nette Idee;) MfG CGamer
Warbseite

Xaymar

ehemals "Cgamer"

So, Jun 15, 2008 19:01
Antworten mit Zitat

Wenn ich mich nicht irre gibst doch auch ne möglichkeit ohne PHP-Script oder?
Code: [AUSKLAPPEN]

count_ips = CountHostIPs("")

For i = 1 To count_ips
Print "IP : "+" "+ DottedIP$( HostIP(i) )
Next

ich weiß bloß nicht mehr was ich bei CountHostIPs() angeben musste.

Trotzdem ne nette Idee;)

MfG CGamer

Warbseite

	#Reaper Newsposter	So, Jun 15, 2008 19:03 Antworten mit Zitat
@Cgamer: Nein, damit erhälst du nur die IP-Adresse(n) von deinem eigenen PC, bzw. anderem im Netzwerk oder im Internet. Aber nicht die, welche dein Router vom Provider zugewiesen bekommen hat.
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!) Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

#Reaper

Newsposter

So, Jun 15, 2008 19:03
Antworten mit Zitat

@Cgamer: Nein, damit erhälst du nur die IP-Adresse(n) von deinem eigenen PC, bzw. anderem im Netzwerk oder im Internet. Aber nicht die, welche dein Router vom Provider zugewiesen bekommen hat.

AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

	BadDeath	So, Jun 15, 2008 19:33 Antworten mit Zitat
Genau, deswegen heißt das Thema hier ja auch "Online-IP herausfinden"

BadDeath

So, Jun 15, 2008 19:33
Antworten mit Zitat

Genau, deswegen heißt das Thema hier ja auch "Online-IP herausfinden" Very Happy

	Thorsten	So, Jun 15, 2008 19:51 Antworten mit Zitat
Funktioniert bei mir nicht, wobei es das übrigens schon einige Male gab. TCP Stream wird nicht geöffnet bin auf vista, keine firewall mfG, Thorsten

Thorsten

So, Jun 15, 2008 19:51
Antworten mit Zitat

Funktioniert bei mir nicht, wobei es das übrigens schon einige Male gab.
TCP Stream wird nicht geöffnet

bin auf vista, keine firewall

mfG,

Thorsten

	mabox	So, Jun 15, 2008 20:02 Antworten mit Zitat
was muss ich mit dem PHP Code machen damit es geht? oder muss ich nur den Blitz Code in Blitzbasic starten?
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate www.mausoft.de.tl Dönerfresser Homepage

mabox

So, Jun 15, 2008 20:02
Antworten mit Zitat

was muss ich mit dem PHP Code machen damit es geht?

oder muss ich nur den Blitz Code in Blitzbasic starten?

Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

	DAK	So, Jun 15, 2008 20:09 Antworten mit Zitat
Nur den Blitzcode starten... Funktioniert einwandfrei... ein wenig langsam is es, aber wenns nur ein mal am Start ausgeführt wird, sollte das kaum ins Gewicht fallen...
Gewinner der 6. und der 68. BlitzCodeCompo

DAK

So, Jun 15, 2008 20:09
Antworten mit Zitat

Nur den Blitzcode starten... Funktioniert einwandfrei... ein wenig langsam is es, aber wenns nur ein mal am Start ausgeführt wird, sollte das kaum ins Gewicht fallen...

Gewinner der 6. und der 68. BlitzCodeCompo

	BadDeath	So, Jun 15, 2008 20:12 Antworten mit Zitat
@ Thorsten: Keine Ahnung, warum es bei dir nicht klappt, bei mir geht es. @ Mabox: Eigentlich sollte der PHP-Skript auf nem Server sein und das Programm baut dort hin die Verbindung auf. Allerdings kamen bei mit immer falsche IP-Adressen an. An sich reicht es, wenn du den Code so ausführst.

BadDeath

So, Jun 15, 2008 20:12
Antworten mit Zitat

@ Thorsten: Keine Ahnung, warum es bei dir nicht klappt, bei mir geht es.

@ Mabox: Eigentlich sollte der PHP-Skript auf nem Server sein und das Programm baut dort hin die Verbindung auf. Allerdings kamen bei mit immer falsche IP-Adressen an. An sich reicht es, wenn du den Code so ausführst.

	mabox	So, Jun 15, 2008 21:34 Antworten mit Zitat
Bei mir klappts auch nicht, wenn ich den Code ausführe öffnet sich ein Fenster welches sich dann gleich wieder schließt.
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate www.mausoft.de.tl Dönerfresser Homepage

mabox

So, Jun 15, 2008 21:34
Antworten mit Zitat

Bei mir klappts auch nicht, wenn ich den Code ausführe öffnet sich ein Fenster welches sich dann gleich wieder schließt.

Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

	DAK	So, Jun 15, 2008 22:02 Antworten mit Zitat
dann während dem testen nicht so viel auf den tasten rum haun...
Gewinner der 6. und der 68. BlitzCodeCompo

DAK

So, Jun 15, 2008 22:02
Antworten mit Zitat

dann während dem testen nicht so viel auf den tasten rum haun...

Gewinner der 6. und der 68. BlitzCodeCompo

	Thorsten	So, Jun 15, 2008 22:08 Antworten mit Zitat
Eben das ist das Problem : anstatt eine Fehlermeldung auszugeben wenn der Stream nicht geöffnet werden kann, wird einfach beendet. mfG, Thorsten

Thorsten

So, Jun 15, 2008 22:08
Antworten mit Zitat

Eben das ist das Problem : anstatt eine Fehlermeldung auszugeben wenn der Stream nicht geöffnet werden kann, wird einfach beendet.

mfG,

Thorsten

	BadDeath	So, Jun 15, 2008 22:46 Antworten mit Zitat
Das kann man ja ändern..... Ich mach das morgen, hab jetzt keine Zeit für.

BadDeath

So, Jun 15, 2008 22:46
Antworten mit Zitat

Das kann man ja ändern..... Ich mach das morgen, hab jetzt keine Zeit für.

	Thorsten	Mo, Jun 16, 2008 13:02 Antworten mit Zitat
BadDeath hat Folgendes geschrieben: Das kann man ja ändern..... Ich mach das morgen, hab jetzt keine Zeit für. Das ist nicht der eigentliche Punkt; es kann ja keine Verbindung aufgebaut werden, oberes gilt ja nur zur Fehlerdiagnose. mfG, Thorsten

Thorsten

Mo, Jun 16, 2008 13:02
Antworten mit Zitat

BadDeath hat Folgendes geschrieben:

Das kann man ja ändern..... Ich mach das morgen, hab jetzt keine Zeit für.

Das ist nicht der eigentliche Punkt; es kann ja keine Verbindung aufgebaut werden, oberes gilt ja nur zur Fehlerdiagnose.

mfG,

Thorsten

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Online-IP herausfinden

Betreff: Online-IP herausfinden