Imports system.net.Sockets
Public Class Form1
'获取本机机器名和IP地址
Dim IPAdress As System.Net.IPAddress
Dim hostname As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.Length
TextBox4.Text = System.Net.Dns.GetHostName()
TextBox2.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
TextBox2.Text = ""
TextBox3.Text = ""
For i = 0 To TextBox1.Text.Trim - 1
If System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList(i).IsIPv6LinkLocal = False Then 'IPV4地址
IPAdress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(i)
TextBox2.Text = TextBox2.Text & i & "：" & IPAdress.ToString & vbCrLf
Else
IPAdress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(i)
TextBox3.Text = TextBox3.Text & i & "：" & IPAdress.ToString & vbCrLf
End If
Next
End Sub
End Class
