Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
IP ermitteln
zurück: Base64 weiter: Video in Userform abspielen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Lukas Mosimann
Formeln gut, VBA sehr gut


Verfasst am:
15. Dez 2007, 12:45
Rufname: Lukas
Wohnort: CH-Pfaffnau

IP ermitteln - IP ermitteln

Nach oben
       Version: (keine Angabe möglich)

Hallo zusammen
Wie ermittelt man die IP einer Internetseite? Oder vielleicht auch die IP von sich selbst? Die Lösung folgt:
Code:
Private Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersionRequired As Integer, ByRef lpWSAData As WSADATA) As Long
Private Declare Function WSACleanup Lib "wsock32.dll" () As Long
Private Declare Function gethostbyname Lib "wsock32.dll" (ByVal name As String) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
 
Private Type WSADATA
   wVersion As Integer
   wHighVersion As Integer
   szDescription As String * 257
   szSystemStatus As String * 129
   iMaxSockets As Long
   iMaxUdpDg As Long
   lpVendorInfo As Long
End Type
 
Private Type HOSTENT
   hname As Long
   haliases As Long
   haddrtype As Integer
   hlength As Integer
   haddrlist As Long
End Type
 
Function GetIP(Addresse As String)
Dim Result As Long, PointerAddr As Long, AddrInfo As HOSTENT
Dim PointerIP As Long, IP As String, x As Long, HostName As String
Dim IPAddress() As Byte, DatenWSA As WSADATA
 
Result = WSAStartup(&H202, DatenWSA)
If Result <> 0 Then Exit Function
 
PointerAddr = gethostbyname(Addresse)
If PointerAddr = 0 Then
    MsgBox "Error"
    Exit Function
End If
MoveMemory AddrInfo, ByVal PointerAddr, Len(AddrInfo)
 
HostName = Space(255)
lstrcpy HostName, AddrInfo.hname
 
 
Redim IPAddress(AddrInfo.hlength - 1)
MoveMemory PointerIP, ByVal AddrInfo.haddrlist, 4
MoveMemory IPAddress(0), ByVal PointerIP, AddrInfo.hlength
 
For x = Lbound(IPAddress) To Ubound(IPAddress)
    IP = IP & CStr(IPAddress(x)) & "."
Next
GetIP = Left$(IP, Len(IP) - 1)
Ende:
WSACleanup
End Function


Wie man es verwendet, sollte klar sein, ist nicht so schwierig:
Code:
strIP=getip  ("www.office-loesung.de")

Ihr fragt euch jetzt wohl, für was soll man die IP wissen? Eine berechtigte Frage, aber man braucht sie, sobald man mit API-Funktionen irgendwas im Internet erreichen will. Also ist wohl eher für Fortgeschrittene gedacht ;) Ich habe es z.B. gebraucht, um FTP-Dateien im Internet herunterzuladen und E-Mails abzurufen.

Freundliche Grüsse
Lukas

_________________
Der Optimist sieht in jedem Problem eine Aufgabe.
Der Pessimist sieht in jeder Aufgabe ein Problem.
Lukas Mosimann
Formeln gut, VBA sehr gut


Verfasst am:
15. Dez 2007, 12:46
Rufname: Lukas
Wohnort: CH-Pfaffnau


AW: IP ermitteln - AW: IP ermitteln

Nach oben
       Version: (keine Angabe möglich)

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Eine bestimmten Wert ermitteln 9 Frage 586 07. Dez 2007, 23:04
Frage Eine bestimmten Wert ermitteln
Keine neuen Beiträge Excel Formeln: Zwei Datums vergleichen und Tage ermitteln 4 Schlumpfi 985 19. Nov 2007, 12:26
Schlumpfi Zwei Datums vergleichen und Tage ermitteln
Keine neuen Beiträge Excel Formeln: Mögliche Varianten ermitteln 2 JörgW 1103 14. Nov 2007, 22:08
JörgW Mögliche Varianten ermitteln
Keine neuen Beiträge Excel Formeln: sinus ermitteln 1 gekko888 1181 16. Okt 2007, 20:34
fridgenep sinus ermitteln
Keine neuen Beiträge Excel Formeln: Telefonnr. & Faxnr. vergleichen, Durchwahl ermitteln 3 otherlucy76 576 21. Sep 2007, 07:09
< Peter > Telefonnr. & Faxnr. vergleichen, Durchwahl ermitteln
Keine neuen Beiträge Excel Formeln: Verweis auf Excel-Mappen, Namen dynamisch ermitteln 4 cs11 5555 06. Aug 2007, 09:58
cs11 Verweis auf Excel-Mappen, Namen dynamisch ermitteln
Keine neuen Beiträge Excel Formeln: Anzahl bestimmter Tage pro Monat ermitteln 1 wmv57 1494 17. Apr 2007, 09:06
McAdder Anzahl bestimmter Tage pro Monat ermitteln
Keine neuen Beiträge Excel Formeln: Durchschnittsalter aus Geburtsdaten ermitteln 2 thias 8999 21. Feb 2007, 09:54
Gast Durchschnittsalter aus Geburtsdaten ermitteln
Keine neuen Beiträge Excel Formeln: Wochentag ermitteln 2 sigi.hs 690 22. Jan 2007, 17:55
Gast Wochentag ermitteln
Keine neuen Beiträge Excel Formeln: Fehlende Werte ermitteln 2 schubertd 994 22. Jan 2007, 10:43
schubertd Fehlende Werte ermitteln
Keine neuen Beiträge Excel Formeln: Letztes Datum des Vorjahres aus Liste ermitteln 7 CaBe 982 13. Jan 2007, 16:08
fridgenep Letztes Datum des Vorjahres aus Liste ermitteln
Keine neuen Beiträge Excel Formeln: Stunden Ermitteln 4 Gast 1093 25. Jun 2006, 09:42
Azzuro Stunden Ermitteln
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps