WebBrowser через прокси

[Ducis]

Тема эта уже, кажись, была. Просто надо очень срочно, долго искать - нет времени.
Как загружать страницы в WebBrowser через прокси?
Заранее спасибо.

[goro]

Если в настройках Интернет ЕХплорера установлено использование прокси то и твой контрол будет использовать прокси.

[Cyrax]

продолжая goro...
потому как IE сам основан на WebBrowser Control

[Ducis]

Я не совсем корректно задал вопрос.
Формулирую по другому:
"Как на VB поменять прокси для WebBrowser Control, а следовательно для IE?"
Знаю, что можно, может API какая?

[Sebas]

реестр

[Ducis]

Нет не реестр.
Подключить WebBrowser Control через прокси можно с помощью функции UrlMkSetSessionOption из wininet.dll или urlmon.dll. Вот код на Delphi:
uses ... urlmon, wininet ...
....
var PIInfo : PInternetProxyInfo;
...
New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Изменение настроек ПРОКСИ
PIInfo^.lpszProxy := PChar('some.proxy:someport'); // указать прокси напр.
195.43.67.33:8080
PIInfo^.lpszProxyBypass := PChar(''); // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
....
Dispose (PIInfo) ;

Видно подключение двух библиотек, объявление класса PInternetProxyInfo (если не ошибаюсь), использование констант INTERNET_OPEN_TYPE_PROXY и INTERNET_OPTION_PROXY.

Взято здесь: http://www.delphimaster.ru/articles/TWebBrowser.html

Может кто-то знает как это все изобразить на VB?

[Eduard]

Может кто-то знает как это все изобразить на VB?

Декларация необходимого:

Код: Выделить всё

Const ERROR_INSUFFICIENT_BUFFER = 122
Const INTERNET_OPTION_PROXY = 38
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3

Type INTERNET_PROXY_INFO
    dwAccessType As Long
    lpszProxy As String
    lpszProxyBypass As String
End Type

Declare Function UrlMkSetSessionOption _
    Lib "urlmon.dll" ( _
    ByVal dwOption As Long _
  , ByRef pBuffer As Any _
  , ByVal dwBufferLength As Long _
  , ByVal dwReserved As Long _
   ) As Long


...и назначение нового прокси для текущей сессии:

Код: Выделить всё

Function fSetProxy()
Dim proxyInfo As INTERNET_PROXY_INFO

With proxyInfo
    .dwAccessType = INTERNET_OPEN_TYPE_PROXY
    .lpszProxy = "192.33.90.69:3124"
    .lpszProxyBypass = "127.0.0.1"
End With

UrlMkSetSessionOption INTERNET_OPTION_PROXY, proxyInfo, LenB(proxyInfo), 0&

End Function


После этого компонент WebBrowser1 будет следовать этим параметрам.

[Viper]

Eduard, на дату поста посмотри. Пять лет прошло, даже шесть почти. Тему закрываю.