Die Community zu .NET und Classic VB.

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

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

 von Spatzenkanonier

Schwierigkeitsgrad:

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