Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как узнать IP компьютера? 
:(
    Опции темы
HellMasterHaiL
Дата 7.9.2006, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
сабж...
PM MAIL ICQ   Вверх
ivashkanet
Дата 7.9.2006, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 5
Всего: 149
HellMasterHaiL, какого? 
На котором работает прога? Или еще како-го нить  smile 



--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
HellMasterHaiL
Дата 7.9.2006, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
ivashkanet, да, на котором работает приложение!

оффтоп, ты прям сенсей мой, так сказать, и заранее тебе 512 раз спасибо \=-)
PM MAIL ICQ   Вверх
Wanderer2019
Дата 7.9.2006, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: 1
Всего: 17
Код

System.Net.IPAddress[] ip=System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName());


Добавлено @ 12:57 
ой... забыл что VB:
Код

        Dim ip() As System.Net.IPAddress
        ip = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName())
        Dim myIp As String
        myIp = ip(0).ToString()
PM ICQ MSN   Вверх
HellMasterHaiL
Дата 7.9.2006, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
Wanderer2019, 
Код

ip = System.Net.Dns.GetHostByAddress(System.Net.Dns.GetHostName)

кричит:
невозможно преобразовать значение типа "System.Net.IPHostEntry" в "1-мерный массив из System.Net.IPAdress"
GetHostByAddress потому, что GetHostAddresses не явл. членом System.Net.Dns

в чем ошибка то?
PM MAIL ICQ   Вверх
ivashkanet
Дата 7.9.2006, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 5
Всего: 149
Код

ip = System.Net.Dns.GetHostByAddress(System.Net.Dns.GetHostName).AddressList(0)

AdressList --- список IP ассоциированных с данным хостом. smile


--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
HellMasterHaiL
Дата 7.9.2006, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
ivashkanet, тоже самое, всеравно не может преобразовать в этот долбанный массив !(
 smile 
PM MAIL ICQ   Вверх
Wanderer2019
Дата 7.9.2006, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: 1
Всего: 17
HellMasterHaiL, 
приведенный мной пример работает...
изучи его...

GetHostByAddress возвращает не один ip, а массив...
поэтому и объявлена переменная как массив
Код

Dim ip() As System.Net.IPAddress
PM ICQ MSN   Вверх
HellMasterHaiL
Дата 7.9.2006, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
Wanderer2019, код я изучил, внимательно...
но у мя не работает ни
Код

ip = System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName)
ни
Код

ip = System.Net.Dns.GetHostByAddress(System.Net.Dns.GetHostName).AddressList(0)

пишет лдно и тоже...

!!! студия 2003 года рождения!!!
PM MAIL ICQ   Вверх
Wanderer2019
Дата 7.9.2006, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: 1
Всего: 17
нутк.. так бы сразу и сказал что 2003...

тогда тебе так:
Код

 Dim IPs As System.Net.IPHostEntry
        IPs = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
        'IPs.AddressList(0).ToString()        


А если по делу, то так 
Код

Dim IPs As System.Net.IPHostEntry
        IPs = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
        Dim indexer As IEnumerator
        indexer = IPs.AddressList.GetEnumerator()
        Dim ip As System.Net.IPAddress
        ip = Nothing
        While (indexer.MoveNext())
            ip = indexer.Current
            'ip.ToString()
        End While


Это сообщение отредактировал(а) Wanderer2019 - 7.9.2006, 14:28
PM ICQ MSN   Вверх
HellMasterHaiL
Дата 7.9.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
Wanderer2019, а преобразовать переменную ip можно в стринг?
просто банальным 
myip = ip.ToSing ()
не получается...(
а как и почему мне из переменной ip сделать строку то?
PM MAIL ICQ   Вверх
Wanderer2019
Дата 7.9.2006, 17:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 937
Регистрация: 3.12.2004
Где: Санкт-Петербург/П рага

Репутация: 1
Всего: 17
я честно говоря понятия не имею почему тебе из нее не сделать строчку...
так работает:
Код

        Dim IPs As System.Net.IPHostEntry
        IPs = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
        Dim indexer As IEnumerator
        indexer = IPs.AddressList.GetEnumerator()
        Dim ip As System.Net.IPAddress
        ip = Nothing
        Dim a As String
        While (indexer.MoveNext())
            ip = indexer.Current
            a = ip.ToString()
        End While
PM ICQ MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.4779 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.