IP Adresse

[TimS.]

Mit welchem Befehl bekomm ich meine eigene IP_Adresse in VB.Net raus?

[robby45]

'---------- Anfang frmMain.vb ----------
Public Class frmMain
Inherits System.Windows.Forms.Form


Private Sub bttnRefresh_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles bttnRefresh.Click
Aktualisieren()
End Sub

Private Sub Aktualisieren()
lst.Items.Clear()
Dim IP As Net.IPAddress, _
IPList As Array = _
Net.Dns.Resolve( _
SystemInformation.ComputerName.ToString).AddressList
For Each IP In IPList
lst.Items.Add(IP.ToString)
Next
bttnCopy.Enabled = False
End Sub

Private Sub bttnCopy_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles bttnCopy.Click
If lst.SelectedItems.Count = 0 Then Exit Sub
Dim item As String, Text As String
For Each item In lst.SelectedItems
If Text <> "" Then Text &= vbNewLine
Text &= item
Next
Clipboard.SetDataObject(Text)
End Sub

Private Sub lst_SelectedIndexChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles lst.SelectedIndexChanged
If Me.lst.SelectedItems.Count = 0 Then
Me.bttnCopy.Enabled = False
Else
Me.bttnCopy.Enabled = True
End If
End Sub
End Class

'----------- Ende frmMain.vb -----------

müsste gehen viel spass dabei

[GrayGhost]

Hallo,
entweder so:

Private Sub GetIPAddress()

Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()

strIPAddress = System.Net.Dns.Resolve(strHostName).AddressList(0).ToString()

MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub

oder so:

Private Sub GetIPAddress()

Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()

strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub