Сменить IP программно

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сменить IP программно

Сообщение zzoom » 01.08.2003 (Пт) 23:58

Господа, задача такова. Нужно программно сменить IP адрес. Можно менять в Registry, но изменения вступают в силу только после перезагрузки, а надобно чтобы сразу и с возращением кода ошибки (типа - такой IP уже в сети)

sQx
Философ
Философ
 
Сообщения: 365
Зарегистрирован: 08.08.2002 (Чт) 19:23

Сообщение sQx » 03.08.2003 (Вс) 12:31

здесь я думаю нужен прокси, пример прокси видел на http://www.sources.ru
Высшая мудрость - знать самого себя.
Ученый человек - сосуд, мудрец - источник.
Что разумно, то действительно, и что действительно, то разумно.
Знание - сила, всезнание - слабость.
Я знаю только то, что ничего не знаю.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 04.08.2003 (Пн) 10:05

И как, интересно, прокси поможет тебе сменить свой IP, a? :?

Есть проверенное средство - WMI. В нем есть класс Win32_NetworkAdapterConfiguration.

Описание и примеры использования - MSDN.

zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сообщение zzoom » 13.08.2003 (Ср) 12:41

Нет, ну я точно дебил. НЕ ПОНИМАЮ!!!

Код: Выделить всё
Set objLAN = GetObject("WinMgmts:Win32_NetworkAdapterConfiguration")


Почему -

objLAN.IPAddress = Null

:?: :?: :?: :?:

Впрочем как и все остальный свойства... :?

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 13.08.2003 (Ср) 13:17

Потому что надо вот так:

Код: Выделить всё
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}\\COMP")
Set ObjLAN = WMI.InstancesOf("Win32_NetworkAdapterConfiguration")
for each LANBoard in objlan
msgbox lanboard.ipaddress
next lanboard
Последний раз редактировалось RayShade 13.08.2003 (Ср) 17:28, всего редактировалось 1 раз.

zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сообщение zzoom » 13.08.2003 (Ср) 13:50

Леонид Ильич писал(а): Учится, батенька, учится и еще г'аз учится...


СПАСИБО!!!! :D

zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сообщение zzoom » 13.08.2003 (Ср) 14:02

Неа, че-то вы, RayShade, гоняете таким макаром - тоже Null :?

SergS
Новичок
Новичок
 
Сообщения: 27
Зарегистрирован: 26.07.2003 (Сб) 14:37
Откуда: Moscow

Сообщение SergS » 13.08.2003 (Ср) 14:12

Почему???
Изменения в регистре вступают в силу сразу!!!
В ХР вовсяком случае... :wink:
Поиграв со мной вы поймёте ,что вы - просто мясо... :)

zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сообщение zzoom » 13.08.2003 (Ср) 17:23

SergS писал(а):Почему???
Изменения в регистре вступают в силу сразу!!!
В ХР вовсяком случае... :wink:


Простите, а в какой ветке, если не секрет? У меня наверное глючный XP... или я сам глючный...

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 13.08.2003 (Ср) 17:26

А можно узнать, в каокм месте кода он тебе ошибку пишет?

zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сообщение zzoom » 14.08.2003 (Чт) 12:55

RayShade писал(а):А можно узнать, в каокм месте кода он тебе ошибку пишет?


В твоем варианте:

msgbox lanboard.ipaddress

он - Null.

X-BOND
Реалист
Реалист
 
Сообщения: 944
Зарегистрирован: 19.08.2002 (Пн) 11:44
Откуда: Ukraine

Сообщение X-BOND » 14.08.2003 (Чт) 14:33

zzoom писал(а):
Леонид Ильич писал(а): Учится, батенька, учится и еще г'аз учится...


А с каких это пор Вождя мирового пролитариата Лёней зовут? :lol:

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 14.08.2003 (Чт) 15:48

А ты имя компа в моемм примере поменять то удосужился?

zzoom
Новичок
Новичок
 
Сообщения: 25
Зарегистрирован: 13.06.2003 (Пт) 10:29
Откуда: Рига

Сообщение zzoom » 14.08.2003 (Чт) 16:24

RayShade писал(а):А ты имя компа в моемм примере поменять то удосужился?

Приятно когда тебя совсем идиотом считают... Разумеется

X-BOND писал(а):А с каких это пор Вождя мирового пролитариата Лёней зовут? :lol:

С тех пор как мой склероз начал набирать скорость, а х** терять высоту :lol:


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

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList