Узнать свой IP

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
begrusse
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 56
Зарегистрирован: 26.02.2008 (Вт) 8:24

Узнать свой IP

Сообщение begrusse » 29.04.2008 (Вт) 6:43

Есть функция WinSock для определения локального IP например Winsock1.LocalIP а как определить "внешний" IP тот который показывается такими сервисами как 2IP.RU

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 29.04.2008 (Вт) 7:42

В общем случае, ты не можешь его знать.
Lasciate ogni speranza, voi ch'entrate.

begrusse
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 56
Зарегистрирован: 26.02.2008 (Вт) 8:24

Сообщение begrusse » 29.04.2008 (Вт) 8:00

alibek писал(а):В общем случае, ты не можешь его знать.

то есть? со всем никак нельзя узнать IP программно?

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 29.04.2008 (Вт) 8:04

Ты думаешь, от того, что переспросишь, появится способ?
Лучший способ понять что-то самому — объяснить это другому.

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 29.04.2008 (Вт) 8:15

Сделай программно запрос к тому же 2ip, вот тебе и решение. Между прочим все так и делают. Создают модуль индусского кода, обзывают его красиво, например TrueLocate и впаривают партнерам.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

begrusse
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 56
Зарегистрирован: 26.02.2008 (Вт) 8:24

Сообщение begrusse » 29.04.2008 (Вт) 8:27

Antonariy писал(а):Ты думаешь, от того, что переспросишь, появится способ?

Я думаю что неможет быть такого, что бы это нельзя было реализовать :)

Денис писал(а):Сделай программно запрос к тому же 2ip, вот тебе и решение. Между прочим все так и делают. Создают модуль индусского кода, обзывают его красиво, например TrueLocate и впаривают партнерам.

А как сделать запрос например к 2ip.ru :oops:

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 29.04.2008 (Вт) 8:34

begrusse
О, эт не ко мне - не работал с этим. Но на форуме есть спецы по веб-приложениям. Там какой-то HttpRequest или что-то в этом роде. В общем, девайте немного подождем, сейчас знающие подтянутся.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

Sur
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 91
Зарегистрирован: 14.07.2003 (Пн) 20:54
Откуда: C2H5OH

Сообщение Sur » 29.04.2008 (Вт) 15:34

Способ ненадежен. Сервис лучше найти "попроще", но вот для этого...
Вложения
getIP.rar
узнаем внешний IP с помощью стороннего сервиса.
(1.83 Кб) Скачиваний: 130
Пить или не пить? - да не вопрос!

begrusse
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 56
Зарегистрирован: 26.02.2008 (Вт) 8:24

Сообщение begrusse » 30.04.2008 (Ср) 3:50

Спасибо! :wink:

bashobn
Начинающий
Начинающий
 
Сообщения: 16
Зарегистрирован: 25.05.2008 (Вс) 10:37

Re: Узнать свой IP

Сообщение bashobn » 29.04.2009 (Ср) 6:12

Исправляем код:
Код: Выделить всё
sp = InStr(1, sBuffer, s) + Len(s) + 1

на
Код: Выделить всё
sp = InStr(1, sBuffer, s) + Len(s)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 44

    TopList