Dynamische zugewiesene IP Adresse ermitteln

Dynamische zugewiesene IP Adresse ermitteln via Winsock, LocalIP
'Auf dem Formular muss zunächst ein Microsoft Winsock Steuerelement abgelegt werden.
'Außerdem wird eine offene Internet-Verbindung benötigt.
Sub Form_Load()
Dim DynIp As String
With Winsock1
.Protocol = sckTCPProtocol
.Connect
DynIp = .LocalIP
.Close
End With
MsgBox "IP: " & DynIp, vbInformation, "IP Adresse"
End Sub

Mehr Tipps: Sinusförmige Ausgabe eines Textes

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt