Маска сети

[Sirik]

Как узнать какая маска сети установленна на компе? (обычно 255.255.255.0 - но бывают же исключения )

[tyomitch]

GetIpAddrTable

Пример писать?

[Sirik]

Обязательно

[tyomitch]

Ничего, что поздно?

Код: Выделить всё

Option Explicit

Private Const ANY_SIZE = 16             ' сколько ожидается IP-адресов в системе
Private Type MIB_IPADDRROW
  dwAddr(0 To 3) As Byte                ' IP address
  dwIndex As Long                       ' interface index
  dwMask(0 To 3) As Byte                ' subnet mask
  dwBCastAddr(0 To 3) As Byte           ' broadcast address
  dwReasmSize As Long                   ' rassembly size
  unused As Long                        ' not currently used
End Type
Private Type MIB_IPADDRTABLE
  dwNumEntries As Long                  ' number of entries in the table
  Table(1 To ANY_SIZE) As MIB_IPADDRROW ' array of IP address entries
End Type
Private Declare Function GetIpAddrTable Lib "iphlpapi" (pIpAddrTable As MIB_IPADDRTABLE, pdwSize As Long, ByVal bOrder As Long) As Long

Sub Main()
Dim Table As MIB_IPADDRTABLE, i As Long
If GetIpAddrTable(Table, Len(Table), 0) = 0 Then
With Table
    For i = 1 To .dwNumEntries
    With .Table(i)
        Debug.Print "IP: " & .dwAddr(0) & "." & .dwAddr(1) & "." & .dwAddr(2) & "." & .dwAddr(3)
        Debug.Print "Interface #: " & .dwIndex
        Debug.Print "Subnet mask: " & .dwMask(0) & "." & .dwMask(1) & "." & .dwMask(2) & "." & .dwMask(3)
        Debug.Print "Broadcast: " & .dwBCastAddr(0) & "." & .dwBCastAddr(1) & "." & .dwBCastAddr(2) & "." & .dwBCastAddr(3)
        Debug.Print
    End With
    Next
End With
End If
End Sub


[Sirik]

Нет, не поздно. Спасибо очень помогло.
Но только вопрос: почему у меня два IP?

Насколько я знаю адресс 127.0.0.1 - назначается когда комп отлючается от локальной сети ?!

[GSerg]

127.0.0.1 - это всегда ты. В любой сети

[tyomitch]

У тебя всегда два IP, просто тот, который соответствует реальной сетевухе, стоит как "по умолчанию", и весь тот трафик, про который явно не указано, что он должен идти через 127.0.0.1, идёт через него.
127.0.0.1 соответствует "виртуальной" сетевухе и всегда доступен, даже когда на компьютере нет сети.

[Konst_One]

ну допустим и не всегда, нужно чтобы сетевая поддержка в ОС стояла

[tyomitch]

А её можно и убрать? 8-|
А как? И главное, зачем?

[Sirik]

Ну вот, началось!
Я уже помошь получил, так нет умничать начинают (Konst_One)

[Konst_One]

например в w95 сетевой интерфейс ставиться опционально.

[Konst_One]

ладно уж я просто уточнил на всякий случай. просто как-то раз уже была проблемка у одного клиента с прогой - он под w95 без сети ее пытался к инету подключить