Получение локального IP

@vova_king · Регистрация: 29.07.2010

Студворк — интернет-сервис помощи студентам

Доброе время суток.
Как я и предполагал, что имея код

VB.NET
1
2
3
4
        For Each address In System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList
            e_lan = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName).GetValue(1).ToString
        Next
        Return e_lan

который выводил мне 1 IPv4
Но вот для тестирования поставил еще виртуалку, которая автоматом устанавливает свой сетевой интерфейс
VMware Virtual Ethernet Adapter for VMnet1
Теперь у меня 3 сетевухи.
1- встроенная и 2 виртуальные.
При запуске программы, она теперь стала вставлять IP первой по порядку сетевой карты "VMware Virtual Ethernet Adapter for VMnet1"
Это что получается надо делать цикл что бы он переберал все мои сетевые карты и выводил все с шагом +1?

@OwenGlendower · 01.07.2015, 14:02

vova_king, т.к. сетевых карт может быть несколько, причем не только виртуальных, то да нужно выводить информацию о всех в цикле.

@vova_king · 01.07.2015, 16:47 **[ТС]**

будем пробовать

Добавлено через 1 час 16 минут
не что то как не соображу как вывести. постоянно выводится только первый IP виртуальной сетевухи!

@Замабувараев · 01.07.2015, 17:05

Как перечислить все ethernet‐адаптеры (сетевые карты).

VB.NET
1
2
3
4
5
6
'Imports System.Net.NetworkInformation
For Each adapter As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
    If adapter.NetworkInterfaceType = NetworkInterfaceType.Ethernet Then
        Console.WriteLine("{0} {1}", adapter.Description, adapter.OperationalStatus)
    End If
Next

@vova_king · 01.07.2015, 17:19 **[ТС]**

И как вывести полученные данные из этого

VB.NET
1
Console.WriteLine("{0} {1}", adapter.Description, adapter.OperationalStatus)

@Замабувараев · 01.07.2015, 17:22

vova_king, куда вывести? Console.WriteLine уже выводит на консоль.

@vova_king · 01.07.2015, 17:27 **[ТС]**

Не чего оно не вывело. даже консоль не запустило

это вывод в консоле. зачем мне консоль?

VB.NET
1
Console.WriteLine("{0} {1}", adapter.Description, adapter.OperationalStatus)

Исправил на TextBox1.Text = adapter.Description & adapter.OperationalStatus

Конечно спасибо, но я интересовался не про адапторы а про IP

@Замабувараев · 01.07.2015, 17:42

vova_king, NetworkInterface.GetIPProperties

@OwenGlendower · 01.07.2015, 17:46

vova_king, примерно так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
For Each adapter As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
    ' Игнорируем неработающие интерфейсы и loopback адаптер(ы)
    If (adapter.OperationalStatus <> OperationalStatus.Up OrElse adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback) Then Continue For
    
    Dim adapterName As String = adapter.Name
    ' TODO: Вывод названия адаптера
    For Each unicastIpInfo As UnicastIPAddressInformation In adapter.GetIPProperties().UnicastAddresses
        Dim address As String = unicastIpInfo.Address.ToString()
        ' TODO: Вывод очередного адреса текущего адаптера
    Next
Next

@vova_king · 01.07.2015, 18:09 **[ТС]**

выводит только один виртуальный IP

@OwenGlendower · 01.07.2015, 18:11

Сообщение от vova_king

выводит только один виртуальный IP

Попробую угадать. Ты выводишь адрес так:

VB.NET
1
TextBox1.Text = address

А надо так:

VB.NET
1
TextBox1.AppendLine(address)

@vova_king · 02.07.2015, 10:44 **[ТС]**

Ну да Каюсь

Вот так не работает

VB.NET
1
               TextBox1.AppendLine(address)& vbCrLf

А так заработал

VB.NET
1
                TextBox1.AppendText(address & vbCrLf)

@vova_king · 02.07.2015, 17:52 **[ТС]**

А как полученный результат

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each adapter As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
            ' Игнорируем неработающие интерфейсы и loopback адаптер(ы)
            If (adapter.OperationalStatus <> OperationalStatus.Up OrElse adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback) Then Continue For
 
            Dim adapterName As String = adapter.Name
            ' TODO: Вывод названия адаптера
            For Each unicastIpInfo As UnicastIPAddressInformation In adapter.GetIPProperties().UnicastAddresses
                Dim address As String = unicastIpInfo.Address.ToString()
                ' TODO: Вывод очередного адреса текущего адаптера
                ' TextBox1.AppendLine(address)& vbCrLf
                TextBox1.AppendText(adapterName & " IP: " & address & vbCrLf)
 
            Next
 
        Next
 
 
    End Sub

Записываю данные

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each adapter As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
            ' Игнорируем неработающие интерфейсы и loopback адаптер(ы)
            If (adapter.OperationalStatus <> OperationalStatus.Up OrElse adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback) Then Continue For
 
            Dim adapterName As String = adapter.Name
            ' TODO: Вывод названия адаптера
            For Each unicastIpInfo As UnicastIPAddressInformation In adapter.GetIPProperties().UnicastAddresses
                Dim address As String = unicastIpInfo.Address.ToString()
                ' TODO: Вывод очередного адреса текущего адаптера
                ' TextBox1.AppendLine(address)& vbCrLf
                TextBox1.AppendText(adapterName & " IP: " & address & vbCrLf)
 
                SqlCom = New OleDb.OleDbCommand("INSERT INTO [tab] ( [tit], [ip]) VALUES ('" & adapterName & "', '" & address & "')", Con)
                Con.Open()
                SqlCom.ExecuteNonQuery()
                Con.Close()
                Me.Close()
            Next
 
        Next

@edward_freedom · 02.07.2015, 18:02

vova_king, Что под ошибкой не известное имя поля "tit", тебе не понятно?

@vova_king · 02.07.2015, 18:10 **[ТС]**

Исправил
исправил и убрал закрытие формы после выполнения запроса

@edward_freedom · 02.07.2015, 18:17

vova_king, Как ты обращаешься к форме, если ты ее закрыл?

@diller · 02.07.2015, 18:21

Наверное взял откуда-то код и просто вставил, со всеми такое бывает.

@vova_king · 02.07.2015, 18:26 **[ТС]**

Да, просто не внимательно скопировал код добавления записи и вставил не посмотрел на его содержание, что есть закрытия формы.
Спасибо большое всем.
Теперь буду пробовать добавлять данный код в propertyGrid

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@OwenGlendower Администратор 18295 / 14219 / 5368 Регистрация: 17.03.2014 Сообщений: 28,896 Записей в блоге: 1
	01.07.2015, 14:02
	vova_king, т.к. сетевых карт может быть несколько, причем не только виртуальных, то да нужно выводить информацию о всех в цикле. 0

@vova_king 34 / 34 / 12 Регистрация: 29.07.2010 Сообщений: 417
	01.07.2015, 16:47 [ТС]
	будем пробовать Добавлено через 1 час 16 минут не что то как не соображу как вывести. постоянно выводится только первый IP виртуальной сетевухи! 0

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	01.07.2015, 17:22
	vova_king, куда вывести? Console.WriteLine уже выводит на консоль. 0

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	01.07.2015, 17:42
	vova_king, NetworkInterface.GetIPProperties 0

@vova_king 34 / 34 / 12 Регистрация: 29.07.2010 Сообщений: 417
	01.07.2015, 18:09 [ТС]
	выводит только один виртуальный IP Миниатюры 0

@edward_freedom 1569 / 1448 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	02.07.2015, 18:02
	vova_king, Что под ошибкой не известное имя поля "tit", тебе не понятно? 0

@vova_king 34 / 34 / 12 Регистрация: 29.07.2010 Сообщений: 417
	02.07.2015, 18:10 [ТС]
	Исправил исправил и убрал закрытие формы после выполнения запроса Миниатюры 0

@edward_freedom 1569 / 1448 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	02.07.2015, 18:17
	vova_king, Как ты обращаешься к форме, если ты ее закрыл? 2

@diller Заблокирован
	02.07.2015, 18:21
	Наверное взял откуда-то код и просто вставил, со всеми такое бывает. 2

@vova_king 34 / 34 / 12 Регистрация: 29.07.2010 Сообщений: 417
	02.07.2015, 18:26 [ТС]
	Да, просто не внимательно скопировал код добавления записи и вставил не посмотрел на его содержание, что есть закрытия формы. Спасибо большое всем. Теперь буду пробовать добавлять данный код в propertyGrid 0

Получение локального IP

Решение