eigene ip auslesen

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Gameprogman

Betreff: eigene ip auslesen

BeitragSo, Mai 13, 2007 20:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Ist es irgendwie möglich seine eigene IP auszulesen mit BlitzBasic?
www.bandradr.de ! Awesome !

Silver_Knee

BeitragSo, Mai 13, 2007 20:56
Antworten mit Zitat
Benutzer-Profile anzeigen
geh auf wieistmeineip.de und suche im quellcode mit blitz nach
<h1 class="ip">
dann kommt die ip in form von
xxx.xxx.xxx.xxx
und direkt danach</h1>

also
<h1 class="ip">xxx.xxx.xxx.xxx</h1>

Noobody

BeitragSo, Mai 13, 2007 21:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Viel einfacher:
Zitat:
CountHostIPs("")
deine_IP = DottedIP(HostIP(1))
Man is the best computer we can put aboard a spacecraft ... and the only one that can be mass produced with unskilled labor. -- Wernher von Braun

Tankbuster

BeitragSo, Mai 13, 2007 21:44
Antworten mit Zitat
Benutzer-Profile anzeigen
@Noobody:
Net schlecht, aber das ist nur die Lokale IP!
Die Internet IP ist es nicht Wink
Twitter
Download Jewel Snake!
Windows|Android

StepTiger

BeitragSo, Mai 13, 2007 21:47
Antworten mit Zitat
Benutzer-Profile anzeigen
www.whatismyip.com

Dann liest du aus bis:
<TITLE>WhatIsMyIP.com -
und dann ist alles bis zum </TITLE> Tag deine IP.

Zum Downloaden gibt es hier diverse Codes.
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing
Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

hectic

Sieger des IS Talentwettbewerb 2006

BeitragSo, Mai 13, 2007 21:56
Antworten mit Zitat
Benutzer-Profile anzeigen
Hab ich auf meiner Platte gefunden: Code: [AUSKLAPPEN]
ip_count=CountHostIPs(GetEnv("localhost"))
For i=1 To ip_count
   Print DottedIP(HostIP(i))
Next

Function INT_IP(IP$)
   a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
   a4=Int(IP$)
   
   Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function
Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

Silver_Knee

BeitragSo, Mai 13, 2007 21:58
Antworten mit Zitat
Benutzer-Profile anzeigen
ist das nicht 1:1 das was ich geschrieben hab nur mit ner anderen website?

Tankbuster

BeitragSo, Mai 13, 2007 21:58
Antworten mit Zitat
Benutzer-Profile anzeigen
@Hectic:
Für dich gilt auch das selbe wie für Noobody! Wink
Nur du hast da noch ne ungebrauchte Funktion drinne! Das macht das ganze noch schöner Rolling Eyes
Twitter
Download Jewel Snake!
Windows|Android

hectic

Sieger des IS Talentwettbewerb 2006

BeitragSo, Mai 13, 2007 22:04
Antworten mit Zitat
Benutzer-Profile anzeigen
@Tankbuster,

zu '2.' Gebe ich dir Recht

zu '1." Nein, denn der zweite Wert ist wohl die 'Internet' IP

edit1 Es reicht also: Code: [AUSKLAPPEN]
ip_count=CountHostIPs(GetEnv("localhost"))
For i=1 To ip_count
   Print DottedIP(HostIP(i))
Next

Tankbuster

BeitragSo, Mai 13, 2007 22:13
Antworten mit Zitat
Benutzer-Profile anzeigen
0o
Und warum steht dann bei mir da "192.169.2.32" ??
Rolling Eyes Soweit Ich weiß ist das die IP im Lokalen Netzwerk!
Twitter
Download Jewel Snake!
Windows|Android

StepTiger

BeitragSo, Mai 13, 2007 22:15
Antworten mit Zitat
Benutzer-Profile anzeigen
Gibt bei mir auch nur eine, und zwar die vom Netzwerk, zurück.
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing
Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

hectic

Sieger des IS Talentwettbewerb 2006

BeitragSo, Mai 13, 2007 22:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Keine Ahnung warum es bei euch nicht funktioniert. Vielleicht sind es irgendwelche Sicherheitseinstellungen des Systems oder sowas, bei mir zumindest liefert mir der Code, folgendes Ergebnis.

user posted image
Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

D2006

Administrator

BeitragSo, Mai 13, 2007 23:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Service von:

Chaos Interactive (mir)
MakeGame (bruZard aka farbfinsternis)

Man kann davon ausgehen, dass beide Seiten noch laaaaange online sein werden.

Und jeder der selbst Webspace mit PHP hat:
Code: [AUSKLAPPEN]
<?
echo $SERVER['REMOTE_ADDR'];
?>


EDIT:
Achso... Es ist ganz klar, warum hectics Code nicht immer funktioniert. Sobald man nämlich hinter einem Router sitzt, war's das. Nichtmal Windows kennt die "externe" IP des Routers. Da geht nur die Internet Methode.
Intel Core i5 2500 | 16 GB DDR3 RAM dualchannel | ATI Radeon HD6870 (1024 MB RAM) | Windows 7 Home Premium
Intel Core 2 Duo 2.4 GHz | 2 GB DDR3 RAM dualchannel | Nvidia GeForce 9400M (256 MB shared RAM) | Mac OS X Snow Leopard
Intel Pentium Dual-Core 2.4 GHz | 3 GB DDR2 RAM dualchannel | ATI Radeon HD3850 (1024 MB RAM) | Windows 7 Home Premium
Chaos Interactive :: GoBang :: BB-Poker :: ChaosBreaker :: Hexagon :: ChaosRacer 2

Noobody

BeitragMo, Mai 14, 2007 13:57
Antworten mit Zitat
Benutzer-Profile anzeigen
@Tankbuster
Sorry, hab gemeint, er wolle nur seine interne IP wissen^^
Weil mit Blitzbasic gehts von Windows aus ja gar nicht, seine Inet-IP herauszufinden (zumindest bei mir nicht)
Man is the best computer we can put aboard a spacecraft ... and the only one that can be mass produced with unskilled labor. -- Wernher von Braun

Gameprogman

BeitragMo, Mai 14, 2007 14:00
Antworten mit Zitat
Benutzer-Profile anzeigen
Ok, thx für die Antworten...
Problem gelöst^^
www.bandradr.de ! Awesome !

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group