Die eigene IP ermitteln

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
Falko
Admin
Beiträge: 3535
Registriert: 29.08.2004 11:27
Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit),
Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.11b1
HP255G8 Notebook @AMD Ryzen 5 5500U with Radeon Graphics 2.10 GHz 3.4GHz, 32GB_RAM, 3TB_SSD (Win11 Pro 64-Bit)
Kontaktdaten:

Beitrag von Falko »

Sorry, aber das ist nicht mein Code. Da steht
'ganz oben' hat geschrieben:Autoren: Falko, Nicolaus und TS-Soft
Den haben wir drei zusammengekaut :lol:

Aber trotzdem Danke für den Tip und die Änderung :allright:

MfG Falko
Bild
Win11 Pro 64-Bit, PB_6.11b1
Benutzeravatar
Nalfein
Beiträge: 29
Registriert: 22.08.2005 13:14

.... schonwieder geändert

Beitrag von Nalfein »

die von WhatsMyIP haben das Format der Seite schon wieder geändert!

Jetzt läuft mein mit 3.94 compilierter Webserver nicht mehr (der brauchte die IP um die Anfragen an meine IP umzuleiten, dafür mußte er sie erstmal rauskriegen...).
Und dank 4.0 ist das Programm nicht mehr so ohne weiteres zu korrigieren... *sigh*

Ich hab die Proc für's IP ermitteln jetzt unter PB4 auf "displaycopy('" reagieren lassen, das scheint in jeder Version drin zu sein. Der Text wird ja regelmäßig geändert...

so in der Art

temp_pos_beforeIP = Findstring(LCase(IPString),"displaycopy('")

und 4 Zeilen drunter dann auch immer auf Len("displaycopy('") (2x) geändert...
Hinter dem 2ten muß eine -2. (wegen der 2 zusätzlichen Trennzeichen, die nicht zur IP gehören, nämlich ' und )
Das findstring("<") muß gegen ein findstring(";") ausgetauscht werden.
If OSVersion() <> #PB_OS_Windows_ME : End : EndIf !!!
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Warum packste nicht einfach ein simples php-script auf Deine Website, dann kennste doch das Format :wink:
so wie hier: http://www.ts-soft.eu/getip.php
:mrgreen:
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Jilocasin
Beiträge: 665
Registriert: 13.05.2006 16:04
Kontaktdaten:

Beitrag von Jilocasin »

@ts_soft
deine php-seite benutze ich schon die ganze zeit =) :oops:
Bild
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Jilocasin hat geschrieben:@ts_soft
deine php-seite benutze ich schon die ganze zeit =) :oops:
Dann werde ich Dir mal die Rechnung per Mail schicken, und ich wundere
mich über den Traffic :mrgreen:
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
Nalfein
Beiträge: 29
Registriert: 22.08.2005 13:14

kein php

Beitrag von Nalfein »

Weil meine "für lau"-Seite kein php kann!

(ist ja auch nicht so, daß ich einen Kumpel mit php-Seite schon seit .... ewig drauf anspreche von wegen "ein bißchen space für'n client" und "so'n skript hier, kostet dich ja nichma was...", aber NEIN....)

Daher auch der "umständliche" Weg :)

Mir wär nen skript auf der Seite, dessen Addresse/Filename man einfach angibt zum "anmelden" eines Servers, der dann mit ner anderen Addresse/Filename im "Client"-Modus des Programms ausgelesen werden kann, auch lieber....
(gut, das war jetzt für Spiele- und nicht Webserver, aber trotzdem)
If OSVersion() <> #PB_OS_Windows_ME : End : EndIf !!!
Jilocasin
Beiträge: 665
Registriert: 13.05.2006 16:04
Kontaktdaten:

Beitrag von Jilocasin »

@ts-soft:
Traffic.. aber dann nich von mir :lol:
ich ruf die seite nur einmal automatisch auf wenn mein pc angeht :allright:
Bild
Antworten