Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0377: Dynamische Internet-IP lesen II

 von 

Beschreibung 

Programmtechnisch die wohl kürzeste Lösung. Jonas Panten hat zur Ermittlung der jeweiligen Internet-IP eigens ein kleines Script eingerichtet. Dieses kann mit der Winsock kontaktiert und anhand der Rückantwort ausgweret werden.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [2,11 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente ' (MSINET.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Internetsteuerelement "Inet1"
' Steuerelement: Schaltfläche "Command1"


'Autor: Jonas Panten
'E-Mail: jonas@panten.org

'Wer die Möglichkeit hat, kann folgendes kurzes php-Script auf
'den Server legen und damit dieses direkt ansprechen:

'  <?php
'  Print $REMOTE_ADDR;
'  ?>

Option Explicit

Private Sub Command1_Click()
    Dim IP As String
    
    MousePointer = vbHourglass
    Inet1.RemoteHost = "http://www.panten.org"
    Inet1.RemotePort = 80
    IP = Inet1.OpenURL("http://www.panten.org/ip.php3")
    MousePointer = vbDefault
    
    Call MsgBox("Ihre IP lautet: " & IP)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 19 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von ZimTis am 05.06.2009 um 16:22

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

das wars auch schon, klein aber fein ^^

Kommentar von B. Honk am 05.06.2009 um 12:47

Hi ZimTis !

Klappt gut mit Deiner IP.PHP...
Aber ich würde gerne die IP.PHP auf meinen eigenen Webspace laden und nutzen. Kannst Du mir den Quellcode mal eben hier posten ???

DANKE !

Kommentar von B. Honk am 05.06.2009 um 12:47

Hi ZimTis !

Klappt gut mit Deiner IP.PHP...
Aber ich würde gerne die IP.PHP auf meinen eigenen Webspace laden und nutzen. Kannst Du mir den Quellcode mal eben hier posten ???

DANKE !

Kommentar von ZimTis am 17.03.2009 um 16:49

habe ein php Script auf meine Page geschoben.

ersetzt mal das
http://www.panten.org/ip.php3
durch
http://www.rc-offroad-fun.de/Page_sachen/ip.php
und
http://www.panten.org
durch
http://www.rc-offroad-fun.de

mfg

ZimTis

Kommentar von Norman am 08.06.2006 um 01:57

gibbet den Code auch für Visual Basic 2005 ?

Kommentar von Tremor am 02.05.2005 um 22:30

Nur zur Aktualisierung. Das php-Script muss mittlerweile so lauten:

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

... dann klappts auch wieder mit der IP ;)

Kommentar von André Roth am 25.04.2005 um 08:46

Hallo Herr Panten,

seit einiger Zeit verwende ich Ihr Script zur Abfrage der Router IP. Leider stelle ich heute fest, dass diese Abfrage nicht mehr funktioniert.

Bitte teilen Sie mir mit, ob dies von Ihrer Seite gewollt ist, oder ob die Bereitstellung in Kürze wieder erfolgt.

Mit freundlichen Grüßen

Andre Roth

Kommentar von Christoph Friedrich am 15.03.2005 um 12:43

@Rainer
Kannste PHP Scripte auf deinem Server ausführen lassen?
Wenn ja: check doch mal die Rechte für das Script (sollten auf 755 Unix stehen)
Wenn nein: dann gehts net

Kommentar von Rainer am 13.03.2004 um 08:44

Was mache ich falsch ? Habe eine Datei "IP.php3", die nur Dein 3 zeiliges Script enthält, auf den Homepage Server mit ftp hochgeladen. Beim Aufruf mit VB erhalte ich immer Fehler 501 rückgemeldet. Von Deiner Homepage dagegen läufts.

Kommentar von spinne am 31.01.2004 um 20:44

Bei mir kommt immer
keine Lizenzinformationen enthalten
liegt das daran das ich nur die einsteiger edition hab ???

Kommentar von psyK am 05.11.2003 um 23:52

Also des is ja mal richtig geil!

ich sitz hinter am lan mit firewall und hab scho tausend veruche gmacht mei online ip rauszufinden...und immer nur mei lan-ip oder die ip von meim bluetoothmodem bekommen.

Aber die idee is so einfach wie genial.... fett respect!!

Kommentar von Nobbi am 21.04.2003 um 17:39

Das Beenden von VB dauert nach abgelaufener Routine sehr lange, ansonsten eine knuffige Lösung.

Kommentar von Mathias am 16.02.2003 um 02:11

<<Die Komponente MSINET.OCX wird benötigt.>>

Bin Neuling in VB und würde gerne wissen wie ich diese Datei einbinden muss, damit das Beispiel funktioniert.

Danke

Kommentar von Micha am 04.02.2003 um 23:18

Klappt so nicht ganz. Wenn ich das so ausführe, bekomme ich gar nichts zurück. Ich muss erst Inet1.Proxy = "www-proxy.dtag.de" angeben. Dann funktioniert das auch.

Kommentar von Sleipnir_18 am 24.11.2002 um 19:23

hööööööööööööö das ist doch mein source? den hatte ich mal im forum preisgegeben und jetzt isser hier unter nem anderen namen :( darf das den sein?

Kommentar von Goetz Reinecke am 07.06.2002 um 12:23

@B: Funktioniert leider nicht, wenn der Rechner ans Netzwerk angeschlossen ist.

Kommentar von B am 07.06.2002 um 12:17

Private Sub FORM_Load()
MsgBox ("Ihre IP lautet: " & Winsock1.LocalIp)
End Sub

Kommentar von Markus Neubauer am 06.05.2002 um 14:59

Die Frage is hier wohl a bissl Falsch !

Kommentar von stefanie am 28.02.2002 um 17:58

wie löse ich quadratische Gleichungen auf?