InetOpen

Синтаксис

Function InetOpen(ByRef szUserAgent As String = "FB", byval iType As Integer = INTERNET_OPEN_TYPE_DIRECT, ByRef szProxyName As String = "", ByRef szProxyBypass As String="", byval iFlags As Integer = 0) As HINTERNET

Описание

Инициализирует использование интернет функций. Возвращает хендл в случае успеха. Данный хендл используется некоторыми другими интернет функциями(например OpenUrl). Если произошла ошибка возвращает 0

Параметры

szUserAgent - строка символов, которая передается серверу и идентифицирует программное обеспечение, пославшее запрос.

iType - задает необходимые параметры доступа. Принимает следующие значения:
    INTERNET_OPEN_TYPE_DIRECT – обрабатывает все имена хостов локально.
    INTERNET_OPEN_TYPE_PRECONFIG – берет установки из реестра.
    INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY - берет установки из реестра и предотвращает запуск Jscript или Internet Setup (INS) файлов.
    INTERNET_OPEN_TYPE_PROXY – использование прокси-сервера. В случае неудачи использует INTERNET_OPEN_TYPE_DIRECT.

szProxyName - адрес прокси-сервера. Игнорируется только если параметр iType отличается от INTERNET_OPEN_TYPE_PROXY

szProxyBypass - список имен или IP - адресов, соединяться с которыми нужно в обход прокси-сервера. В списке допускаются шаблоны. Так же, как и предыдущий параметр, не может содержать пустой строки. Если iType отличен от INTERNET_OPEN_TYPE_PROXY, то значения игнорируются, и параметр можно установить в null

iFlags - задает параметры, влияющие на поведение Internet - функций . Возможно применение комбинации из следующих разрешенных значений:
    INTERNET_FLAG_ASYNC - Выполняет только асинхронные запросы
    INTERNET_FLAG_FROM_CACHE - Не делает сетевые запросы. Все объекты возвращаются из кэша. Если объект не может быть взят из кеша , то возвращает ERROR_FILE_NOT_FOUND
    INTERNET_FLAG_OFFLINE - единтично INTERNET_FLAG_FROM_CACHE

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HINTERNET hOpen,hUrl
hOpen = InetOpen
hUrl = OpenUrl(hOpen,"http://users.freebasic-portal.de/freebasicru/user-files/Window9L.zip")
MessBox("Интернет" , "Размер архива = " & GetContentSize(hUrl) & " байт")
InetFreeHandle(hOpen)
InetFreeHandle(hUrl)

Created with the Personal Edition of HelpNDoc: Full featured EPub generator