IP

[Kiryusha]

плз поможите!!!! Как узнать IP компа???? (само собой программно )

[Sirik]

вот, интересно, юзеры хоть раз поиском пользуються?!?
сколько раз уже обсуждалось (я даже код давал!)

[GSerg]

msgbox "127.0.0.1"

[Demonx]

msgbox "127.0.0.1"

Можно через winsock.

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

Winsock1.LocalIP

[Sirik]

1. таскать с собой специально контрол для инфо IP ?
2. если IP 2 или больше?

[Amed]

2. Тогда таскать два контрола

[Sirik]

ладно, так и быть:

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

Option Explicit


Private Const ANY_SIZE = 16             ' neieuei i?eaaaony IP-aa?ania a nenoaia
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

Private Sub Form_Load()
    Main
End Sub


[SeT]

Чё-то я насчёт IP не понял. В окне браузера написано 10.61.0.90 а на сайтах пишет "Ваш IP 45.110 и тд" по какому IP можно компы в инете соединить?

[Konst_One]

Чё-то я насчёт IP не понял. В окне браузера написано 10.61.0.90 а на сайтах пишет "Ваш IP 45.110 и тд" по какому IP можно компы в инете соединить?

если, инет - это глобальная сеть, то твой IP - это внешний адрес, под которым ты выходишь в эту сеть (обычно выдается твоим провайдером доступа в сеть).

[Sirik]

2 SeT
просто соединить не получиться, надо шлюзик (чтобы один pc имел реальный ip)

[SeT]

Насчёт реального IP я тут подумал. Чтобы одна прога КУДА-то отсылала свой IP а другая прога ОТТУДА этот IP доставала и автоматом соединяла бы компьютеры. Енто не возможно?

[Sirik]

конечно! только надо pc с реальный адресом (статический адрес со стороны внешней сети)

[SeT]

йооо. ну у меня один IP всё время меняется, а другой постоянный - по нему мона связаться? В вышеописанном коде как раз он и отображается...

[Vinechka]

Если одна из тачек имеет реальный ип а другая прячется за натом - то ваши планы обламываются. В случае с диалапом, то тут как правило диалапная машина имеет реальный ип с каждым подключением, просто каждый раз разный. НО! Это не NAT. Если вы с какой-то выделенкой, спрятанные за натом, то при каждой сессии ип может быть разный. Но то что может быть это еще фигня. Если вы минуту назад из под ната на супер сервер послали пакет с порта 349 (к примеру) на порт 21 - нату на исходный порт наплевать, в пределах одной сессии он будет вам возвращать пакеты. Ответ получили? Всё. Все пакеты приходящие на какой-либо порт роутера на вашу тачку маршрутизироваться не будут. Он про вас забыл уже...

Сорри, я не трезв (гыыы), но насколько я понимаю для вас единственный метод держать соединение - туннелирование (только не надо его самостоятельно писать, VPN уже придумали). Ик.

ЗЫ: сорри еще раз, не трезв Гыы, седня с майкрософтом общался. По этому случаю напился

[alibek]

Да, туннелирование либо (в отдельных случаях) прокси (socks-прокси).

[SeT]

Люди, а по-русски можно? Я эти термины впервые читаю!

[Konst_One]

SeT
что ты хочешь узнать , конкретно

[tyomitch]

ладно, так и быть:

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

Option Explicit


Private Const ANY_SIZE = 16             ' neieuei i?eaaaony IP-aa?ania a nenoaia

...

Private Sub Form_Load()
    Main
End Sub


В целях восстановления исторической справедливости: код мой, причём криво скопипасченный
http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229
Вместо изуродованного комментария следует читать "сколько ожидается IP-адресов в системе"