powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Смена IP
7 сообщений из 7, страница 1 из 1
Смена IP
    #35162018
Haus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ помогите исходником прожки для смены IP адреса,очень надо.
...
Рейтинг: 0 / 0
Смена IP
    #35162425
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
/topic/389069&hl=
Из командной строки это делается без всяких проблем:
(Читайте описание Windows)
Соединиться
shell("rasdial Имя_соединения Login Password")
Разъединиться
shell("rasdial /D")
Это если у тебя динамический ip.

Ну а чтобы понять какой ip получился можешь через webbrowser прочитать напр.содержимое странички www.myip.ru

Ну, способов то много. Я напр., научился своим D-link роутером через web-интерфейс программно управлять, в частности менять IP. disconnect-connect
...
Рейтинг: 0 / 0
Смена IP
    #35162502
Haus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне необходимо изменить IP имено при помощи Visual Basic.
...
Рейтинг: 0 / 0
Смена IP
    #35162746
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: Haus
> Мне необходимо изменить IP имено при помощи Visual Basic.

5 минут поиска ;-) , дали такую функцию:
EnableStatic Method in Class Win32_NetworkAdapterConfiguration
которая
The EnableStatic WMI class method enables static TCP/IP addressing for the
target network adapter. As a result, DHCP for this network adapter is
disabled.
[Visual Basic]
NetworkAdapterConfiguration.EnableStatic( _
IPAddress As String, _
SubnetMask As String _
) As Integer


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Смена IP
    #35163598
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
HausМне необходимо изменить IP имено при помощи Visual Basic.
А shell это вам не vb что ли?
...
Рейтинг: 0 / 0
Смена IP
    #35164699
Haus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я только учусь и не могу врубится про што идет реч.
...
Рейтинг: 0 / 0
Смена IP
    #35164732
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
msdn
Shell Function
Runs an executable program and returns a Variant (Double) representing the program's task ID if successful, otherwise it returns zero.

Syntax

Shell(pathname[,windowstyle])

The Shell function syntax has these named arguments:

Part Description
pathname Required; Variant (String). Name of the program to execute and any required arguments or command-line switches; may include directory or folder and drive.
windowstyle Optional. Variant (Integer) corresponding to the style of the window in which the program is to be run. If windowstyle is omitted, the program is started minimized with focus.


The windowstyle named argument has these values:

Constant Value Description
vbHide 0 Window is hidden and focus is passed to the hidden window.
vbNormalFocus 1 Window has focus and is restored to its original size and position.
vbMinimizedFocus 2 Window is displayed as an icon with focus.
vbMaximizedFocus 3 Window is maximized with focus.
vbNormalNoFocus 4 Window is restored to its most recent size and position. The currently active window remains active.
vbMinimizedNoFocus 6 Window is displayed as an icon. The currently active window remains active


Для понимания rasdial вам надо почитать help (поиск!) в вашем Windows.

Eсли вы учитесь, то конечно закопаться во всевозможные API интересней и познавательней, но если вам надо быстро решить ту задачу, что вы обозначили, предложенный мною вариант достаточно думаю хорош. Если очень надо, могу дать ф-цию ShellAndContinue, кот. использует Shell, но при этом ждет завершения внешнего процесса.

В принципе, согласен VB здесь даже не обязателен, можно все в Dos-овский bat-файл запихнуть.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Смена IP
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]