VPF::LAN Connected State - Форум программистов

Веталька

Дата 2.1.2009, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

Нужно програмно узнать подключен ли компютер к LAN, для интернета, знаю, есть InternetGetConnectedState,
которая возвращает тру или фолс, а ничего такого нет для лана?

--------------------

Ради зачета студент идет на все, даже на лекции........................

Alca

Дата 8.1.2009, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 1
Всего: 50

Код


'Для соединения с интернетом используется LAN.
Public Const INTERNET_CONNECTION_LAN As Long = &H2

'Следующие функции содержат в себе вызов InternetGetConnectedState
Public Function IsNetConnectViaLAN() As Boolean

   Dim dwflags As Long
   
  'передаём пустую переменную в функцию, чтобы
  'получить состояние флагов, отвечающих за соединение
   Call InternetGetConnectedState(dwflags, 0&)

  'возвращаем True если флаги указывают на соединение по LAN
   IsNetConnectViaLAN = dwflags And INTERNET_CONNECTION_LAN
     
End Function

Это?

Это сообщение отредактировал(а) Alca - 8.1.2009, 14:38

--------------------

C++ cross-platform library

Веталька

Дата 8.1.2009, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

вроде ДА
Спасибо большое, я уже весь гугл облазил ничего ненашел, уже думал что никто не подскажет, СПАСИБО

--------------------

Ради зачета студент идет на все, даже на лекции........................

Веталька

Дата 8.1.2009, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

Цитата

Код

'Для соединения с интернетом используется LAN.
Public Const INTERNET_CONNECTION_LAN As Long = &H2

'Следующие функции содержат в себе вызов InternetGetConnectedState
Public Function IsNetConnectViaLAN() As Boolean

   Dim dwflags As Long

  'передаём пустую переменную в функцию, чтобы
  'получить состояние флагов, отвечающих за соединение
   Call InternetGetConnectedState(dwflags, 0&)

  'возвращаем True если флаги указывают на соединение по LAN
   IsNetConnectViaLAN = dwflags And INTERNET_CONNECTION_LAN

End Function

Это?

Ето че ВБ???

--------------------

Ради зачета студент идет на все, даже на лекции........................

Alca

Дата 8.1.2009, 22:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 1
Всего: 50

Win32 API

--------------------

C++ cross-platform library

Веталька

Дата 8.1.2009, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

то что ето апи понятно, пример вызова написан на ВБ

Добавлено через 5 минут и 16 секунд
докажи что не win32x smile

--------------------

Ради зачета студент идет на все, даже на лекции........................

kolobok0

Дата 19.1.2009, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 24.12.2008

Репутация: нет
Всего: 2

Цитата(Веталька @ 2.1.2009, 21:50)

Нужно програмно узнать подключен ли компютер к LAN,... а ничего такого нет для лана?

если чиссо направления - то..
1) WMI - глючно, не на всех осях однозначен и не всегда дышит..
2) NDIS - не все оси, не всегда однозначен в среде гостевых осей.
3) через реестр + анализ таблиц - не всегда однозначно. на висте не совсем гуд...
4) NDIS+анализ таблиц - единственный способ (лично мне известный) от NT и выше...

удачи Вам
(круглый)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Сети \| Следующая тема »