Как в Visual Basic 6 определить свой IP адрес?

@Ethernet · Регистрация: 13.06.2010

Студворк — интернет-сервис помощи студентам

@petr-sev · 05.07.2010, 12:58

1. Вызвать меню Project/Components и в появившемся списке выбрать компонент Microsoft Winsock Control (mswinsck.ocx). На панели с элементами управления появится новый элемент Winsock (в виде двух компьютеров).
2. Добавить его на форму.
3. Прочитать его свойство LocalIP.

Возможно, что компонент Microsoft Winsock Control добавляется, но "не работает". Тогда нужно его зарегистрировать - выполнить в командной строке:
regsvr32 <windir>\system32\mswinsck.ocx

@Ethernet · 05.07.2010, 18:52 **[ТС]**

Сообщение от petr-sev

1. Вызвать меню Project/Components и в появившемся списке выбрать компонент Microsoft Winsock Control (mswinsck.ocx). На панели с элементами управления появится новый элемент Winsock (в виде двух компьютеров).
2. Добавить его на форму.
3. Прочитать его свойство LocalIP.

Возможно, что компонент Microsoft Winsock Control добавляется, но "не работает". Тогда нужно его зарегистрировать - выполнить в командной строке:
regsvr32 <windir>\system32\mswinsck.ocx

Я знаю такой способ, но WinSock мне возвращает 192.168.1.2, а мой настоящий IP адрес 92.126.... Есть ли другой способ?

@Teslenko_EA · 06.07.2010, 10:55

Здравствуйте Ethernet
просветите, что значит "..мой настоящий IP адрес 92.126..", бывают и ненастоящие?
Евгений.

@STRATEG · 06.07.2010, 12:33

Он не так выразился. Возможно petr-sev даже не пробовал метод который описывает. Winsock возвращает локальный Адрес,а ему нужен как и всем нормальным людям Внешний IP адресс.
Его можно получить путем отправки запроса через Wosket на сервер,который показыает IP.Сейчас над этим ведется работа.

@Ethernet · 06.07.2010, 18:54 **[ТС]**

Сообщение от STRATEG

Он не так выразился. Возможно petr-sev даже не пробовал метод который описывает. Winsock возвращает локальный Адрес,а ему нужен как и всем нормальным людям Внешний IP адресс.
Его можно получить путем отправки запроса через Wosket на сервер,который показыает IP.Сейчас над этим ведется работа.

а когда эти работы завершатся? сколько ждать?

@STRATEG · 06.07.2010, 21:33

Не по теме:

Все готово уже давно,просто были дела

Тебе сюда О том как узнать внешний IP

@firs94 · 06.07.2010, 23:29

А лёгче ни как вот держи
на форму Winsock и Label1

Visual Basic
1
2
3
Private Sub Form_Load()
Label1 = Winsock1.LocalIP
End Sub

@STRATEG · 06.07.2010, 23:40

firs94, очень жаль, но вместо выкрутасов ты показал что даже не понимаешь что у тебя будет в результате. посмотри именно эту статью всю полностью, и увидешь что этот вариант ушел в никуда...один совет на будующее:прежде чем что то сказать,подумай есть ли у тебя аргументы на этот счет

@firs94 · 06.07.2010, 23:42

Сообщение от STRATEG

firs94, очень жаль, но вместо выкрутасов ты показал что даже не понимаешь что у тебя будет в результате. посмотри именно эту статью всю полностью, и увидешь что этот вариант ушел в никуда...один совет на будующее:прежде чем что то сказать,подумай есть ли у тебя аргументы на этот счет

тема называется как определить свой ип я ему ответел и скажи я ищё не прав

@STRATEG · 06.07.2010, 23:48

Сам и пользуйся таким IP,В начале статьи автор пояснил какрй ему нужен адрес не локальный,этот вариант забанили,зачем делать из себя крутого, мол вы тут целые статьи пишите,а вот оно,смотрите как все просто...

@firs94 · 06.07.2010, 23:51

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

@STRATEG · 06.07.2010, 23:56

Нет проблем =) Забили. помощь эт хорошо.следующий раз просматри весь пост,просто чтобы не повторяться.возможно именно такое построение предложения несет в себе негативный оттенок. =)

@firs94 · 07.07.2010, 00:03

Сообщение от STRATEG

Нет проблем =) Забили. помощь эт хорошо.следующий раз просматри весь пост,просто чтобы не повторяться.возможно именно такое построение предложения несет в себе негативный оттенок. =)

всё ок я думая ,и на счёт совета задумаюсь, может быть ты поможешь мне с моим вопросом клик

@gaw · 07.07.2010, 20:36

STRATEG, сенк за статью
у меня при вторичном нажатии на кнопку ошибка (порт 80)
вот это, кажется, помогает

Visual Basic
1
2
3
4
Private Sub Winsock1_Close()      
    Form1.Caption = "Not Connect" 
                                               Winsock1.Close
End Sub

еще, для себя, добавил временную блокировку кнопки, и в таймере бегушку
еще раз спасибо

@STRATEG · 07.07.2010, 20:56

да gaw ,это помогает

в исходнике это есть,а в статье дописать забыл

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Ethernet 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 9

	Как в Visual Basic 6 определить свой IP адрес? 04.07.2010, 18:27. Показов 6460. Ответов 15 Метки нет (Все метки) Как в Visual Basic 6 определить свой IP адрес? 0

@petr-sev 496 / 130 / 19 Регистрация: 30.03.2010 Сообщений: 224
	05.07.2010, 12:58
	1. Вызвать меню Project/Components и в появившемся списке выбрать компонент Microsoft Winsock Control (mswinsck.ocx). На панели с элементами управления появится новый элемент Winsock (в виде двух компьютеров). 2. Добавить его на форму. 3. Прочитать его свойство LocalIP. Возможно, что компонент Microsoft Winsock Control добавляется, но "не работает". Тогда нужно его зарегистрировать - выполнить в командной строке: regsvr32 <windir>\system32\mswinsck.ocx 0

@Teslenko_EA 1181 / 632 / 39 Регистрация: 30.05.2010 Сообщений: 715
	06.07.2010, 10:55
	Здравствуйте Ethernet просветите, что значит "..мой настоящий IP адрес 92.126..", бывают и ненастоящие? Евгений. 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	06.07.2010, 12:33
	Он не так выразился. Возможно petr-sev даже не пробовал метод который описывает. Winsock возвращает локальный Адрес,а ему нужен как и всем нормальным людям Внешний IP адресс. Его можно получить путем отправки запроса через Wosket на сервер,который показыает IP.Сейчас над этим ведется работа. 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	06.07.2010, 21:33
	Не по теме: Все готово уже давно,просто были дела Тебе сюда О том как узнать внешний IP 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	06.07.2010, 23:40
	firs94, очень жаль, но вместо выкрутасов ты показал что даже не понимаешь что у тебя будет в результате. посмотри именно эту статью всю полностью, и увидешь что этот вариант ушел в никуда...один совет на будующее:прежде чем что то сказать,подумай есть ли у тебя аргументы на этот счет 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	06.07.2010, 23:48
	Сам и пользуйся таким IP,В начале статьи автор пояснил какрй ему нужен адрес не локальный,этот вариант забанили,зачем делать из себя крутого, мол вы тут целые статьи пишите,а вот оно,смотрите как все просто... 0

@firs94 0 / 0 / 0 Регистрация: 06.07.2010 Сообщений: 5
	06.07.2010, 23:51
	Во-первых я не говарил что я крутой эта твои слова во вторых я пытался помоч человеку а ни просто сказал тип оо я могу легче написать а в третих ты что збисился что я на твою тему так ответил тип можно легче если так то сори я циню труд людей 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	06.07.2010, 23:56
	Нет проблем =) Забили. помощь эт хорошо.следующий раз просматри весь пост,просто чтобы не повторяться.возможно именно такое построение предложения несет в себе негативный оттенок. =) 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	07.07.2010, 20:56
	да gaw ,это помогает в исходнике это есть,а в статье дописать забыл 1