4 / 4 / 0
Регистрация: 10.07.2011
Сообщений: 115
|
|
Программа для смены IP10.07.2011, 18:11. Показов 2863. Ответов 13
Метки нет (Все метки)
0
|
|
(| 10.07.2011, 18:11 | |
|
Ответы с готовыми решениями:
13
Программа для смены IP Программа для смены ip Программа для смены тональности |
 
7176 / 3234 / 82
Регистрация: 17.06.2009
Сообщений: 14,164
|
|
| 11.07.2011, 16:21 | |
|
Нефиг менять IP
0
|
|
|
4 / 4 / 0
Регистрация: 10.07.2011
Сообщений: 115
|
|
| 11.07.2011, 16:55 [ТС] | |
|
Вопрос: подскажите с чего начать? Каким образом мне написать программу?
0
|
|
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
|
||
| 12.07.2011, 09:02 | ||
Не по теме: Стало быть VB уже установлен? Запускай!!
0
|
||
|
4 / 4 / 0
Регистрация: 10.07.2011
Сообщений: 115
|
|
| 12.07.2011, 16:52 [ТС] | |
|
Поставим вопрос по другому. Можно ли написать данную программу на VB 6.0? и если можно, то как это сделать? я пока напиал код кнопки, которая меняет ip сетевой карты. А вот как сделать так, чтобы код с этой кнопки сам активировался, когда появляется системное сообщение id 4199 "Конфликт IP"?
0
|
|
|
0 / 0 / 0
Регистрация: 29.01.2011
Сообщений: 13
|
|
| 12.07.2011, 17:33 | |
|
Alex77755, типичный ответ присущий только русским форумам
0
|
|
|
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
|
|
| 12.07.2011, 22:43 | |
|
meletljan,
Даже модератор сделал ударение, что вопроса-то не существуеет в сообщении!! Так что мой ответ имеет право на существование. Надо просто задавать вопрос, на который хочешь получить ответ. Возможно так: Возможно ли с помощью программы на VB6 отловить системное сообщение "конфликт IP-адреса" И обработать его: изменить ip адресс сетевой карты на другой.
0
|
|
|
4 / 4 / 0
Регистрация: 10.07.2011
Сообщений: 115
|
|
| 13.07.2011, 00:58 [ТС] | |
|
Да, я согласен с Alex'ом. Ну так как можно ли отловить системное сообщение "конфликт ip" в Windows? И если можно, то какой должен быть код программы?
0
|
|
|
программист С++
860 / 600 / 147
Регистрация: 19.12.2010
Сообщений: 2,014
|
|||
| 20.07.2011, 13:50 | |||
1
|
|||
Сообщение от Mad_Marine
147 / 147 / 41
Регистрация: 01.12.2009
Сообщений: 275
|
||
| 20.07.2011, 19:55 | ||
0
|
||
|
4 / 4 / 0
Регистрация: 10.07.2011
Сообщений: 115
|
|
| 22.07.2011, 13:19 [ТС] | |
 да. Я пока просто не знаю в каком направлении двигаться. Уже начал изучать Visual Basic.NETДобавлено через 2 минуты да. Я пока просто не знаю в каком направлении двигаться. Уже начал изучать Visual Basic.NET. На VB.NET можно написатьДобавлено через 4 минуты Вот код кнопки Private Sub cmd2_Click() Shell "cmd /x /c netsh interface ip set address " + txtName.Text + " static " + txtIPAddress.Text + " " + txtMask.Text + " " + txtGateway.Text + " 1" End Sub Private Sub cmd3_Click() Shell "cmd /x /c netsh interface ip set dns " + txtName.Text + " static " + txtSecondaryDNS.Text End Sub Private Sub cmd4_Click() Shell "cmd /x /c netsh interface ip add dns " + txtName.Text + " " + txtPrimaryDNS.Text + " 1" End Sub Private Sub Command1_Click() 'Shell "Cmd /x/c netsh interface ip set address " + Text1.Text + " static " + Text2.Text + " " + Text3.Text, vbHide End Sub Private Sub cmd1_Click() 'Основной код Shell "cmd /x /c netsh interface ip set address " + txtName.Text + " static " + txtIPAddress.Text + " " + txtMask.Text + " " + txtGateway.Text + " 1" Wait (3) Shell "cmd /x /c netsh interface ip set dns " + txtName.Text + " static " + txtSecondaryDNS.Text Wait (3) Shell "cmd /x /c netsh interface ip add dns " + txtName.Text + " " + txtPrimaryDNS.Text + " 1" End Sub Private Sub cmd6_Click() 'Выключение подключения пока не работает Shell "Cmd /x/c netsh interface set interface " + txtName.Text + " DISABLED" End Sub Private Sub cmd7_Click() 'Код для второй конопки Shell "cmd /x /c netsh interface ip set address " + txtName2.Text + " static " + txtIPAddress2.Text + " " + txtMask2.Text + " " + txtGateway2.Text + " 1" Wait (3) Shell "cmd /x /c netsh interface ip set dns " + txtName2.Text + " static " + txtSecondaryDNS2.Text Wait (3) Shell "cmd /x /c netsh interface ip add dns " + txtName2.Text + " " + txtPrimaryDNS2.Text + " 1" End Sub Private Sub cmd8_Click() 'Установка Автоматического IP адреса Shell "cmd /x /c netsh interface ip set address " + txtName.Text + " DHCP" Wait (3) Shell "cmd /x /c netsh interface ip set dns " + txtName.Text + " DHCP" End Sub Public Sub Wait(seconds) ' включение таймера Timer1.Enabled = True 'установка интервала для таймера Me.Timer1.Interval = 1000 * seconds While Me.Timer1.Interval > 0 DoEvents Wend ' выключение таймера Timer1.Enabled = False End Sub Private Sub Form_Load() End Sub Private Sub Timer1_Timer() Timer1.Interval = 0 End Sub
1
|
|
|
1712 / 579 / 76
Регистрация: 10.04.2009
Сообщений: 9,330
|
|
| 22.07.2011, 16:52 | |
|
что-то попросили код 1 кнопки, выложили много больше
где он?? или выложите проект пжл
0
|
|
|
4 / 4 / 0
Регистрация: 10.07.2011
Сообщений: 115
|
|
| 23.07.2011, 17:12 [ТС] | |
|
Это код кнопок
0
|
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 23.07.2011, 17:12 | |
|
Помогаю со студенческими работами здесь
14
Программа для динамической смены IP адреса Программа для ввода/смены пароля Нужна программа для смены кодировки шрифта Программа для смены изображений рабочего стола на Windows 7 Starter Программа не запускается после смены Windows Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . .
а удачный момент так и не приходит.
|
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица.
Задача: зафиксировать три левых колонки в отчете.
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
/ / . . .
|
Настройки VS Code
Loafer 13.04.2026
{
"cmake. configureOnOpen": false,
"diffEditor. ignoreTrimWhitespace": true,
"editor. guides. bracketPairs": "active",
"extensions. ignoreRecommendations": true,
. . .
|
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2.
Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива.
Было так:. . .
|
|
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2.
Задача: реализовать контроль корректности заполнения дат назначения. . .
|
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html
Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
|
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2.
Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
|
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях.
Задача: при копировании документа очищать определенные реквизиты и табличную. . .
|
Наверх