Die Community zu .NET und Classic VB.
Menü

VB.NET-Tipp 0078: IP-Addressen ermitteln (auch die eigene)

 von 

Beschreibung

Dieser Tipp zeigt, wie mittels Net.Dns.GetHostAddresses Domain-Namen zu IP-Adressen aufgelöst werden, wobei einer Domain mehrere IP-Addressen zugeordnet sein können.

Wird der eigene Computername an GetHostAddresses übergeben, so erhält man die eigene IP-Adresse.

Suchen Sie diesen Tipp für eine frühere .NET-Framework Version? Dann empfehlen wir einen Blick auf Die IP-Adresse des eigenen Rechners ermitteln [Tipp 0016]!

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Framework-Version(en):

.NET Framework 2.0, .NET Framework 3.0, .NET Framework 3.5

.NET-Version(en):

Visual Basic 2005, Visual Basic 2008

Download:

Download des Beispielprojektes [6,28 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!

' Projektversion:   Visual Studio 2005
' Option Strict:    Aus
' Option Explicit:  An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.Drawing
'  - System.Windows.Forms
'  - System.Xml
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Data
'  - System.Diagnostics
'  - System.Drawing
'  - System.Windows.Forms
'

' ##############################################################################
' ################################# Form1.vb ###################################
' ##############################################################################
Public Class Form1
    Private Sub ToolStripMenuItem_Click( _
        ByVal sender As Object, _
        ByVal e As EventArgs) Handles EigeneToolStripMenuItem.Click, _
            ActiveVbToolStripMenuItem.Click, _
            GoogleToolStripMenuItem.Click

        Select Case True
            Case sender Is EigeneToolStripMenuItem
                DisplayIPs(SystemInformation.ComputerName)

            Case sender Is ActiveVbToolStripMenuItem
                DisplayIPs("www.activevb.de")

            Case sender Is GoogleToolStripMenuItem
                DisplayIPs("www.google.com")

        End Select
    End Sub

    Private Sub DisplayIPs(ByVal Domain As String)
        With Me.RichTextBox1
            .AppendText(Domain & ":" & ControlChars.Lf)
            .SelectionBullet = True
            For Each Adr As Net.IPAddress In Net.Dns.GetHostAddresses(Domain)
                .AppendText(Adr.ToString & ControlChars.Lf)
            Next
            .SelectionBullet = False
            .AppendText(ControlChars.Lf)
        End With
    End Sub
End Class

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.