Добро пожаловать к нам в гости! Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
Сделал для некоторых пользователей прогу, необходимо протестить при открытии проги нажмите кнопку "route print", появится консоль... В первой строчке, где адрес и маска равны 0.0.0.0 следующий адрес идет адрес шлюза, он должен совпадать со шлюзом в программе, так ли это?! на скрине я отметил ключевые места...
В проге используется функция NetworkAdapterConfiguration установите ее.
Функция возвращает: ИМЯ: [NAC_Caption] ОПИСАНИЕ: [NAC_Description] IP-АДРЕС: [NAC_IPAddress] ШЛЮЗ: [NAC_DefaultIPGateway] СЕРВЕР: [NAC_DHCPServer] ДОМЕН: [NAC_DNSDomain] MAC-АДРЕС: [NAC_MACAddress] MTU: [NAC_MTU] SID: [NAC_SID] Использовался класс Win32_NetworkAdapterConfiguration
экзешник спасибо за помощь! PS Не нажимайте кнопки Назначить и Удалить, я их "обезвредил", но предупредить стоит
адрес шлюза и интерфейс совпадают как в окне так и в программе (и между собой они тоже равны, не так как у тебя, и равны моему внутрисетевому ip (сижу под vpn, и внешний ip совсем другой) Как задавать вопросы
он вряд ли будет null т.к. выборка элементов только с IPEnabled=TRUE, хотя хз... эти условия можно выкинуть и попробовать без них, у меня пашет
On Error Resume Next Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=TRUE",,48) For Each objItem in colItems NbSetVar "[NAC_DefaultIPGateway]",Join(objItem.DefaultIPGateway, ",") NbSetVar "[NAC_IPAddress]",Join(objItem.IPAddress, ",") NbSetVar "[NAC_Caption]",objItem.Caption NbSetVar "[NAC_Description]",objItem.Description NbSetVar "[NAC_DHCPServer]",objItem.DHCPServer NbSetVar "[NAC_DNSDomain]",objItem.DNSDomain NbSetVar "[NAC_MACAddress]",objItem.MACAddress NbSetVar "[NAC_MTU]",objItem.MTU NbSetVar "[NAC_SID]",objItem.SettingID Next
перед запуском ф-ции лучше очистить переменные на всяк. случай Как задавать вопросы
я просто еще не тестил на компах, где настройки осуществляются через роутер. Как там себя поведет, пока незнаю.
Эти маршруты, по идеи, в роуторе настраиваются, но как узнать, роутер это или нет. Вся замарочка в том, что в старых сетях этого провайдера, такой же ип шлюза, как и в роутере(192.168.0.1). Пока не рыл в этом направлении, но думаю делать запрос на какую нить страницу в роутер, типа (192.168.0.1/about) или как то так.
Quote (DEMBEL)
перед запуском ф-ции лучше очистить переменные
ты имеешь ввиду в функции или с проге?!
Сообщение отредактировано Сергей - Сб, 25 Июня 2011, 15:47
