Язык программирования FreeBasic |
InetOpen
InetOpen([szUserAgent = "FB"], [iType = INTERNET_OPEN_TYPE_DIRECT] , [szProxyName = ""] ,[szProxyBypass =""], [iFlags = 0])
Инициализирует использование интернет функций. Возвращает хендл в случае успеха. Данный хендл используется некоторыми другими интернет функциями(например OpenUrl). Если произошла ошибка возвращает 0.
szUserAgent - строка символов, которая передается серверу и идентифицирует программное обеспечение, пославшее запрос.
iType - задает необходимые параметры доступа. Принимает следующие значения:
szProxyName - адрес прокси-сервера. Игнорируется только если параметр iType отличается от INTERNET_OPEN_TYPE_PROXY.
szProxyBypass - список имен или IP - адресов, соединяться с которыми нужно в обход прокси-сервера. В списке допускаются шаблоны. Так же, как и предыдущий параметр, не может содержать пустой строки. Если iType отличен от INTERNET_OPEN_TYPE_PROXY, то значения игнорируются, и параметр можно установить в null.
iFlags - задает параметры, влияющие на поведение Internet - функций . Возможно применение комбинации из следующих разрешенных значений:
Пример:
#Include "window9.bi"
Dim As HINTERNET hOpen,hUrl
hOpen = InetOpen
hUrl = OpenUrl(hOpen,"http://free-basic.ru/user-files/Window9L.zip")
MessBox("Интернет" , "Размер архива = " & GetContentSize(hUrl) & " байт")
InetFreeHandle(hOpen)
InetFreeHandle(hUrl)

Created with the Personal Edition of HelpNDoc: Easily create Help documents