изменение настроек в IE

[Sirik]

такая ситуация:
открыт IE (MyIE) я программно меняю прокси. но данные изменения вступают в силу только после перезагрузки браузера.
возможно ли поменять настройки и не перезагружать браузер?

[Alexanbar]

Попробуй так:

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

SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Software\Microsoft\Internet Explorer\Main"


Ветку рееста измени, если эта не подходит.

Кстати, а как прочесть User и Password для прокси?

[Sirik]

мне User и Password не ребуеться

сейчас нет возможности пробовать код, потом расскажу получилось или нет

зы. я думаю что эти данные не лежат в рееестре, а где-небудь шифруются

[Sirik]

не получаеться нифига, вот код:

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

Option Explicit

Private Const WM_WININICHANGE As Long = &H1A
Private Const WM_SETTINGCHANGE As Long = WM_WININICHANGE
Private Const HWND_BROADCAST = &HFFFF&
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
    Put_Proxy "172.16.0.1:255" 'меняем адрес прокси и порт
    SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
End Sub



[Alexanbar]

мне User и Password не ребуеться

сейчас нет возможности пробовать код, потом расскажу получилось или нет

зы. я думаю что эти данные не лежат в рееестре, а где-небудь шифруются

Раз эти данные отсылаются при каждом сеансе связи, значит они где-то лежат, и они расшифровываются перед использованием.

[Sirik]

что на счёт кода скажешь?

[Alexanbar]

что на счёт кода скажешь?

Вроде, всё правильно.

Я это сообщение использую после того, как разрешаю/запрещаю показ картинок. Дополнительно ещё делаю

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

WEbbroesr1.Refresh2 0

[Sirik]

это когда компонент в твоей программе (как компонент);
а мне надо для отдельного приложения