==== Класс CWinInetConnection ==== Данный класс представляет собой набор WINAPI функций для установления и разрыва соединения с Интрнетом. Также класс позволяет определять каким образом в данный момент компьютер подключён к Интернету (напрямую, через прокси или через модем). Класс позволяет контролировать в каком состоянии в данный момент находится подключение (онлайн или оффлайн) [[http://www.sources.ru/vb/wininet_connection.zip|Скачать CWinInetConnection пример проекта (wininet_connection.zip, 11,6 Kb)]] | Таблица 1. методы класса CWinInetConnection | ^ Методы ^ Описание ^ | SetGlobalOnline | Переключает систему в состояние Online | | SetGlobalOffline | Переключает систему в состояние Offline | | GoOnline | Показывает Пользователю диалог для коннекта и позволяет выбрать нужное соединение | | AutoDial | Показывает Диалог установления связи по умолчанию | | Dial | Показывает Диалог связи с определённым "удалённым соединением" | | AutoDialHangUp | разрывает связь, установленную AutoDial методом | | HangUp | разрывает связь, установленную Dial методом | | Refresh | обновляет все свойства класса | {{http://www.sources.ru/vb/wininet_connection.gif}} | Таблица 2. CWinInetConnection свойства | ^Свойства ^Описание ^ |IsConnected |Возвращает True если связь с интернетом установлена | |ConnectionName |Возвращает строку с именем активного соединения | |IsConnectionConfigured |Возвращает True если система произвела корректировки при коннекте в интернет | |IsOffline |Возвращает True если система в режиме Offline | |IsRasInstalled |Возвращает True если Remote Access Service (RAS) установлен в системе | |UseProxy |Возвращает True если интернет настроен через прокси сервер | |UseLAN |Возвращает True интернет настроен через локальную сеть | |UseModem |Возвращает True система использует для интернета только модем| Перед вызовом функции InternetGetConnectedStateEx её параметры инициализируются следующим образом: 'Резервируем буфер для имени соединения strConnectionName = Space(256) 'инициализируем переменную lNameLen - длина буфера lNameLen = 256 'получаем указатель на пароль и логин 'to the function InternetGetConnectedStateEx lPtr = StrPtr(strConnectionName) lNameLenPtr = VarPtr(lNameLen) 'вызываем функцию InternetGetConnectedStateEx. 'ВНИМАНИЕ: в функции 2 параметра ByVal lRetVal = InternetGetConnectedStateEx(lConnectionFlags, _ ByVal lPtr, ByVal lNameLen, 0&) 'Проверяем биты lConnectionFlags 'и инициализируем свойства класса CWinInetConnection mvarUseModem = lConnectionFlags And INTERNET_CONNECTION_MODEM mvarUseLAN = lConnectionFlags And INTERNET_CONNECTION_LAN mvarUseProxy = lConnectionFlags And INTERNET_CONNECTION_PROXY mvarIsRasInstalled = lConnectionFlags And INTERNET_RAS_INSTALLED mvarIsOffline = lConnectionFlags And INTERNET_CONNECTION_OFFLINE mvarIsConnectionConfigured = lConnectionFlags And _ INTERNET_CONNECTION_CONFIGURED 'получаем имя текущего соединения mvarConnectionName = StringFromPointer(lPtr)