Как сменить настройки прокси в IE

← →
leonidus (2003-06-18 15:09) [0]

Вот решил простенький браузер написать на базе TWebBrowser`а, но только что бы можно было в нем автоматечески через определенные промежутки времени менять настройки прокси сервера получая каждый раз разный IP. И вот встал вопрос, где TWebBrowser т.е. Internet Explorer хранит свои настройки проксей и можно ли их менять "на лету"? Заранее большое спасибо.

← →
Andrey Klimov (2003-06-18 15:32) [1]

Включить прокси
***********************************************************
var
R : TRegistry;
begin
R := TRegistry.Create;
try
R.RootKey := HKEY_CURRENT_CONFIG;
if R.OpenKey("\Software\Microsoft\windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteInteger("ProxyEnable", 1);
R.CloseKey;
end;

R.RootKey := HKEY_CURRENT_USER;
if R.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteString("ProxyServer", "localhost:8080");
R.WriteInteger("ProxyEnable", 1);
R.CloseKey;
end;
finally
R.Free;
end;

Выключить прокси
******************************************
R := TRegistry.Create;
try
R.RootKey := HKEY_CURRENT_CONFIG;
if R.OpenKey("\Software\Microsoft\windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteInteger("ProxyEnable", 0);
R.CloseKey;
end;

R.RootKey := HKEY_CURRENT_USER;
if R.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteInteger("ProxyEnable", 0);
R.CloseKey;
end;
finally
R.Free;
( 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0) Включить прокси
***********************************************************
var
R : TRegistry;
begin
R := TRegistry.Create;
try
R.RootKey := HKEY_CURRENT_CONFIG;
if R.OpenKey("\Software\Microsoft\windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteInteger("ProxyEnable", 1);
R.CloseKey;
end;

R.RootKey := HKEY_CURRENT_USER;
if R.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteString("ProxyServer", "localhost:8080");
R.WriteInteger("ProxyEnable", 1);
R.CloseKey;
end;
finally
R.Free;
end;

Выключить прокси
******************************************
R := TRegistry.Create;
try
R.RootKey := HKEY_CURRENT_CONFIG;
if R.OpenKey("\Software\Microsoft\windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteInteger("ProxyEnable", 0);
R.CloseKey;
end;

R.RootKey := HKEY_CURRENT_USER;
if R.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Internet Settings", False) then
begin
R.WriteInteger("ProxyEnable", 0);
R.CloseKey;
end;
finally
R.Free;
end;

**********************************

Чтобы ИЕ понял что с ним случилось:
uses ..., WinInet;

InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);

← →
leonidus (2003-06-19 22:07) [2]

>Andrey Klimov - спасибо за код, но дело в том, что в реестр он прописывает, но почемуто IP браузера не меняет (я заходил на http://www.proxychecker.ru/) и расчитывал там увидеть вместь своего, IP анонимного прокси, ан нет. В чем же дело?

← →
leonidus (2003-06-20 23:04) [3]

help!!!

← →
sergey2 (2003-06-22 06:09) [4]

А зачем тебе менять настройки ИЕ, если можно сменить прокси не меняя настроек ИЕ. Поищи на этом сайте. Где-то тут есть статья по этому поводу.

← →
sergey2 (2003-06-22 14:28) [5]

uses urlmon, wininet ...

var
PIInfo : PInternetProxyInfo;
...

New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;
PIInfo^.lpszProxy := PChar(proxy);
PIInfo^.lpszProxyBypass := PChar(proxy);
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
Dispose (PIInfo) ;

Вот где-то на сайте есть статья с подобным кодом.
В реестре он ничего не прописывает , но прокси меняется
только в proxy (типа string) занеси ip и порт прокси сервера, типа proxy:="212.42.65.11:8080";

← →
sergey2 (2003-06-23 17:49) [6]

2 leonidus ( твой и прокси-сервера) 2 leonidus Смотрел я только что твою прогу. С чего ты взял что она не работает? Все нормально работает.
http://www.proxychecker.ru/ показывает 2 ip (твой и прокси-сервера). Свой ip ты всегда увидишь, даже если работаешь через проксю (правда - не анонимную).

← →
Ihor Osov'yak (2003-06-23 23:44) [7]

в дополнение sergey2 (22.06.03 14:28)

Изменения действуют в рамках текущего процесса..

← →
leonidus (2003-06-24 21:56) [8]

Спасибо.

Как сменить настройки прокси в IE Найти похожие ветки