| Вопрос: Как программно задать IP своего ПК? | Добавлено: 04.12.06 11:11 |
Автор вопроса:  Albert | ICQ: 334-970-670 |
| Т.е. в окне свойства сетевого подключения задать IP, Mask, gatewey, DNS1, DNS2 (своего компьютера) с помощью программы на VB6????? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 04.12.06 12:38 |
| HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces | ||
|
Номер ответа: 2 Автор ответа: Albert ICQ: 334-970-670 Вопросов: 14 Ответов: 20 |
Профиль | | #2 | Добавлено: 04.12.06 12:49 |
|
В этой папке (Interface) еще куча подпапок с именами типа:
{6A2FF638-809E-4531-B462-AC22AF90D7A4} {9C59A5F7-5596-468A-9496-343B562CE703} ... Как понять значения из какой из этих папок менять??? Как сделать так чтобы программа была универсальна для всех машин (я так понимаю, что на другой машине эти папки могут по другому называться)??? И можно увидеть готовый рабочий примерчик, как сие работает??? Скажем IPAddress=192.168.0.222 (ну или как том это значение присваивается) |
||
|
Номер ответа: 3 Автор ответа: avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #3 | Добавлено: 04.12.06 13:45 |
|
Скажем IPAddress=192.168.0.222 (ну или как том это значение присваивается)
Dim МоеЖелание As Мысли
Dim ГотоваяПрограмма As New Программа МоеЖелание = ГотоваяПрограмма.Сделать() )))))))))))))))))))))))))))))))))))))))))))))))) |
||
|
Номер ответа: 4 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | | #4 | Добавлено: 04.12.06 14:38 |
|
аффтар, пеши исчо!! )))) респект, улыбнуло!
Предлагаю еще передавать 2 дополнительных параметра 
МоеЖелание = ГотоваяПрограмма.Сделать(ByVal НаХаляву As WMZ, ByVal Побыстрее As Время)
|
||
|
Номер ответа: 5 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #5 | Добавлено: 04.12.06 16:09 |
|
Ну тогда в догонку:
Dim МоеЖелание As Мысли
Dim ГотоваяПрограмма As New Программа Dim ДляКомпа As Система.Железо НаХаляву = 0 Побыстрее.ОченьСильноБыстроГорит = True ДляКомпа = Система.constЖелезо.386Pen Форточки = Система.Виндовз.OS.Текущая МоеЖелание = ГотоваяПрограмма.Сделать(ByVal НаХаляву As WMZ, ByVal Побыстрее As Время, ByVal ДляКомпа As Система.Железо, ByVal Форточки As Система.Виндовз.OS) |
||
|
Номер ответа: 6 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #6 | Добавлено: 04.12.06 16:57 |
|
Если развивать мысль дальше, то вопрос на форуме должен задаваться на специальной форме с обязательными к заполнению полями..
1. Стоимость (ComboBox, по умолчанию стоит 20 WMZ или любая другая ед. измерения.) 2. Сам вопрос ( в подробностях ) 3. Участок кода, в котором произошла ошибка 4. Текстовое описание ошибки ... ну и т.д, пока еще не придумал... |
||
|
Номер ответа: 7 Автор ответа:  JMPВопросов: 6 Ответов: 171 |
Профиль | | #7 | Добавлено: 04.12.06 19:05 |
|
Через WMI легко делается
http://www.developersdex.com/asp/message.asp?p=1825&ID=%3CcKM9h.1137%24Hp3.617%40clgrps13%3E |
||
|
Номер ответа: 8 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #8 | Добавлено: 04.12.06 20:58 |
|
2 EROS, avdey: молодца! респект вам! нада тему развивать, запостить новый топик! )
|
||
Страница: 1 |