IP адрес компьютера в Lebel

[DKbelRoma]

Вот появилась проблемма.Нужно IP компьютера показать в Label. Как можно это осуществить?
з.ы. извените, если не в том разделе тему открыл, просто, как я уже говорил, нехватает раздела "Сетевое программирование на VB" <- эт я так, напомнил!

[Viper]

зацени функции из библиотеки Ws2_32.dll, например gethostname, getnameinfo и так далее... Смотреть MSDN по этим именам. Там все не так уж и просто, но разобраться при желании можно без особых проблем.

[Antonariy]

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

Private Declare Function GetIpAddrTable Lib "iphlpapi" (pIpAddrTable As MIB_IPADDRTABLE, pdwSize As Long, ByVal Border As Long) As Long
Private Const ANY_SIZE = 16

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 Function GetIP() As String
Dim Table As MIB_IPADDRTABLE
    If GetIpAddrTable(Table, Len(Table), 0) = 0 Then GetIP = Table.Table(1).dwAddr(0) & "." & Table.Table(1).dwAddr(1) & "." & Table.Table(1).dwAddr(2) & "." & Table.Table(1).dwAddr(3)
End Function

[DKbelRoma]

Viper - спасибо. Я посмотрю. А примерчика ни у кого нет?

[DKbelRoma]

Antonariy - Вот это да.... Перед Новым Годом желания и мечти сбываются . Неуспел сказать про примерчики, как уже они у меня перед глазами. Спасибо большое. Сейчас буду изучать

[Lumen]

А можно было тупо винсок добавить и использовать его свойство LocalIP. Типа label1.caption = winsock1.localIP

[homeworld]

пробывал пример выше, вот результат: 0.0.0.0

[Lumen]

Насколько выше?)

[Хакер]

DKbelRoma
Который из IP-адресов?

[DKbelRoma]

Хакер ну мне нужно показать в Label IP адрес компьютера, Сетевой!

[DKbelRoma]

Lumen твой пример показывает интернет адрес, а мне нужен сетевой, но и за интернет спасибо!
поправка : Label показывает ваще какойто левый IP - вот
192.168.0.59, а мой инет-адрес 193.115.13.8
Странно!

[Lumen]

Это внутренний IP, который у тебя в локалке ну или через что ты там сидишь...Для внешнего IP щас посмотрю, вроде где-то видел пример.

[DKbelRoma]

Сори... Я всё проверил, у нас на сервере был что то вроде переучота (такое часто) всё работает, Label показывает IP под которым я сижу в сети 192.168.0.59
Lumen спасибо большое!

[Lumen]

А я вот нашёл как определить внешний IP. Есть несколько способов:
1. Существует такие сервисы в интернете например по адресу http://checkip.dyndns.org/ или http://www.whatismyip.com, на него можно отправить пост-запрос, а потом парсить ответ и выдирать из него твой внешний IP (правда если сидишь через прокси, то вернется IP прокси).
2. Самому в интернете разместить где-нить пхп-скрипт такого содержания:

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

<?
  echo $REMOTE_ADDR;
?>

А в программе запрашивать методом GET результаты его работы.

[DKbelRoma]

Lumen-Всё понял, Спасибо

[Хакер]

DKbelRoma
IP-адресов у компьютера может быть много. Например 10. Который тебе? (А может вообще не быть)

[DKbelRoma]

Хакер - 10??? А чё так много? Я думал 3 - 4 не больше!

[Хакер]

Да хоть 40.

[DKbelRoma]

Хакер - а зачем WINDOWS- у так много IP?

[homeworld]

Пример написанный Antonariy показывает 0.0.0.0

[DKbelRoma]

homeworld слышали уже....

[Хакер]

WINDOWS-у вообще не нужны IP-адреса. IP-адресу нужны сетевому интерфейсу. Теоретически возможно, что у компьюетера будет много сетевых адаптеров, и у каждого будет свой IP. Однако, можно дать несколько адресов одному адаптеру.

[DKbelRoma]

Хакер ммм... ясно. Но если у компьютера только выход в инет без прокси и подключение к сетевому окружению, то следовательно у компьютера 4 - 5 IP, не больше!

[Хакер]

DKbelRoma
Ты походу совершенно не понимаешь, что такое IP.

[DKbelRoma]

IP - адрес это Интернет протокол, а что?

[Хакер]

"IP-адрес" это не "Интернет протокол".

[DKbelRoma]

Хакер - а что тогда?
з.ы. Да у нас тут прям чат какойто

[Хакер]

http://ru.wikipedia.org/wiki/IP-адрес

[DKbelRoma]

Хакер ты же говорил что IP это не интернет Протокол... А это тогда что?

IP-адрес (aй-пи адрес, сокращение от англ. Internet Protocol Address) — уникальный идентификатор (адрес) устройства (обычно компьютера), подключённого к локальной сети или интернету.

[Хакер]

А ты перечитай, что я говорил. Я говорил другое. Я говорил, что "IP-адрес", это не "интернет протокол".

Тебя не настораживает несогласованность самой фразы "интернет протокол"?