Решение
dtb будет работать во многих ситуациях. Однако во многих случаях пользователи могут иметь несколько IP-адресов версии 4 в своей системе. Иногда это происходит из-за того, что у них есть «виртуальные» адаптеры (из приложений, таких как VirtualBox или VMWare), или из-за того, что к их компьютеру подключено более одного физического сетевого адаптера.
Само собой разумеется, что в этих ситуациях важно использовать правильный IP. Возможно, вы захотите спросить пользователя, какой IP-адрес подходит.
Чтобы получить список используемых IP-адресов v4, используйте код, подобный следующему:
'Получить массив, который содержит все доступные IP:
Dim IPList () As IPAddress = Net.Dns.GetHostEntry (Net.Dns.GetHostName.ToString) .AddressList
'Copy valid IPs from IPList to FinalIPList
Dim FinalIPList As New ArrayList(IPList.Length)
For Each IP As IPAddress In IPList
'We want to keep IPs only if they are IPv4 and not a 'LoopBack' device
'(an InterNetwork AddressFamily indicates a v4 IP)
If ((Not IPAddress.IsLoopback(IP)) And (IP.AddressFamily = AddressFamily.InterNetwork)) Then
FinalIPList.Add(IP)
End If
Next IP